Girilen iki sayının OBEB'ini bulan program

8 Kasım Pazartesi ´04
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 IKI SAYININ OBEBINI BULAN PROGRAM"
 INPUT "BIRINCI SAYI = ", N
 INPUT "IKINCI SAYI = ", M
 IF N < M THEN
  YEDEK = N
  N = M
  M = YEDEK
 END IF

KALANBUL:
 C = N - INT(N / M) * M
 IF C = 0 THEN
  PRINT "OBEB = ", M
  END
 END IF
 N = M
 M = C
 GOTO KALANBUL

Örnek Çıktı:

GIRILEN IKI SAYININ OBEBINI BULAN PROGRAM
BIRINCI SAYI = 126
IKINCI SAYI = 34
OBEB = 2

Yorumlar

23 Mayıs Cuma ´08 22:08
Artık OBEB değil, EBOB yeni müfredatta.   :-D
Üye Resmi anonymous
7 Aralık Çarşamba ´16 06:53
yazdigin algoritma hic bi ise yaramiyo dostum
Yeni Yorum *
İletişim Bilgileri
*
*
E-Posta adresiniz gösterilmeyecektir.
(unut)
Güvenlik Kodu *

Gönderiliyor