1 dk okuma
Fibonacci dizisini hesaplayan program
CLS
PRINT "FIBONACCI DIZISININ GIRILEN SAYI KADAR ELEMANINI BULAN PROGRAM"
INPUT "KAC TANE ELEMAN HESAPLANACAK:"; ELEMAN
XX0 = 1
XX1 = 1
COU = 2
ISLEM:
XX2 = XX1 + XX0
COU = COU + 1
PRINT COU; ".CI ELEMAN"; XX2
IF COU = ELEMAN THEN END
XX0 = XX1
XX1 = XX2
GOTO ISLEM
Örnek Çıktı :
FIBONACCI DIZISININ GIRILEN SAYI KADAR ELEMANINI BULAN PROGRAM
KAC TANE ELEMAN HESAPLANACAK:? 10
3 .CI ELEMAN 2
4 .CI ELEMAN 3
5 .CI ELEMAN 5
6 .CI ELEMAN 8
7 .CI ELEMAN 13
8 .CI ELEMAN 21
9 .CI ELEMAN 34
10 .CI ELEMAN 55