Önce kodlamayı verelim.
Kod: Tümünü seç
CLS
DIM num AS INTEGER
DIM isPrime AS INTEGER
DIM i AS INTEGER
' Kullanıcıdan sayı al
PRINT "1 ile 100 arasinda bir sayi girin: ";
INPUT num
' Sayinin geçerli aralıkta olup olmadigini kontrol et
IF num < 1 OR num > 100 THEN
PRINT "Lutfen 1 ile 100 arasinda bir sayi girin."
END
END IF
' Asal sayi kontrolü
isPrime = 1 ' Baslangicta asal kabul et
IF num = 1 THEN
isPrime = 0 ' 1 asal degildir
ELSE
FOR i = 2 TO SQR(num)
IF num MOD i = 0 THEN
isPrime = 0 ' Sayi asal degil
EXIT FOR
END IF
NEXT i
END IF
' Sonucu yazdir
IF isPrime = 1 THEN
PRINT num; " bir asal sayidir."
ELSE
PRINT num; " bir asal sayi degildir."
END IF
ENDMerak etmeyin...!!! TRWE_2012 her zaman bir çözüm yolu bulur kendince (karınca misali)
Aşağıdaki ekran görüntülerine bakın...!!! Aaaa!!! diye şaşıracaksınız...!!!
https://www.programmingbasic.com/downlo ... 4-bit-2021
NOT:
Bu yazılım (portable) özellikle @Tarkan_Dost (windows hekimi)'un ve @esatiz ve de @localhost'un dikkatini çekecektir.
