5 REM KLAVYEDEN GİRİLEN TERİM SAYINA GÖRE FİBONACCİ SERİSİ ' NİN İLK N TERİMİNİ BULUP EKRANA YAZAN PROGRAM
10 CLS : PRINT "Fibonacci Serisi"
20 INPUT "Terim sayısı : ", N
30 T1=1: T2=1 : PRINT : PRINT T1,T2
40 FOR I=1 TO N-2
50 T3=T1+T2 : PRINT T3, : T1=T2 :T2=T3
60 NEXT I
70 END
QBasic Örnekler, QBasic Dökümanlar, QBasic Uygulamaları QBasic Kodlar, QBasic Dersler,QBasic Programlar, QBasic Ders Notları, QBasic Download, QBasic İndir
Kaydol:
Kayıt Yorumları
(
Atom
)
Hiç yorum yok :
Yorum Gönder