Girilen sayının asal olup olmadığını bulan program

Dikkat: Bu yazının yazılma tarihinin üzerinden en az 60 gün geçmiş. İçerisindeki bilgiler güncelliğini yitirmiş olabilir. Yorumları ve güncellemeleri göz önünde bulundurarak yazıyı takip ediniz.
CLS
 PRINT "GIRILEN SAYININ ASAL OLUP OLMADIGINI BULAN PROGRAM"
 INPUT "SAYI = ", N
 IF N < 1 THEN
  PRINT "ASAL DEGIL"
  END
 END IF
 IF N = 1 THEN
  PRINT "ASAL DEGIL"
  END
 END IF
 IF N = 2 THEN
  PRINT "ASAL"
  END
 END IF
 A = 1

ISLEM:
 A = A + 1
 IF (INT(N / A)) * A = N THEN
  PRINT "ASAL DEGIL"
  END
 END IF
 IF A = (N - 1) THEN
  PRINT "ASAL"
  END
 END IF
 GOTO ISLEM

Örnek Çıktı :

GIRILEN SAYININ ASAL OLUP OLMADIGINI BULAN PROGRAM
SAYI = 15
ASAL DEGIL

Yorumlar

Henüz yorum yapılmamış!

Yeni Yorum *
İletişim Bilgileri
*
*
E-Posta adresiniz gösterilmeyecektir.
(unut)
Güvenlik Kodu *

Gönderiliyor