Asal Sayı Kontrolü

Seçim ekranında 1 tane parametre olacak. Parametreye 1’den 10000’e(5 karakter uzunluğunda) kadar sayı girilebilecek. Parametre zorunlu olacak. Selection text’ler yazılacak. Program yürütüldüğünde, seçim ekranında girilen değere bakılacak. Eğer girilen değer asal sayı ise ‘P asal sayıdır.’, asal sayı değilse ‘P asal sayı değildir.’ yazısı yazılacak.

Örnek :  
P1 = 11(Asal Sayı) 
11 asal sayıdır.  
Örnek : 
P2 = 14(Asal Sayı)
14 asal sayı değildir.

CEVAP-KOD SATIRLARI

*&---------------------------------------------------------------------*
*& Report ZCRM_TEST_10
*&---------------------------------------------------------------------*
*&* emreaydin.
*&---------------------------------------------------------------------*
REPORT zcrm_test_10.

*asal sayı bulan program
DATA lv_value TYPE i VALUE 0.

SELECTION-SCREEN  BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.
PARAMETERS lv_sayi TYPE zcrm_asal OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.

DATA: lv_temp TYPE i.
DO lv_sayi TIMES.

  lv_temp = lv_sayi MOD sy-index.
  IF lv_temp EQ 0.
    lv_value = lv_value + 1.
  ENDIF.

ENDDO.

IF lv_value <> 2.
  WRITE:/ 'Girilen ' , lv_sayi , 'asal değildir.'.
ELSE.
  WRITE:/ 'Girilen ' , lv_sayi , ' asaldır.'.
ENDIF.

Yorum bırakın Cevabı iptal et

Bu site, istenmeyenleri azaltmak için Akismet kullanıyor. Yorum verilerinizin nasıl işlendiği hakkında daha fazla bilgi edinin.