1 dk okuma
Girilen iki sayının OBEB'ini bulan program
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
İlgili Yazılar
- 3 min readPEAR MDB2 ile SQL Injection Saldırılarına Karşı Koymak: Prepare & Execute Kullanımı
- 4 min readPHP'de verileri sayfa sayfa göstermek!
- 6 min readPHP'de Hata Ayıklama (Debug) Teknikleri
- 2 min readPHP ile tekil anahtar oluşturmak
- 2 min readPHP'de kontrol yapıları (if,else if,switch/case)
- 1 min readProgramcılar için Temel JavaScript Bilgisi yayında
Paylaş