1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
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ı :
1 2 3 4 5 6 7 8 9 10 |
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 |