Merhabalar, bu yazımda Fibonacci sayıların nasıl işlediğini, QBasic ile nasıl kodlandığına değineceğim. Umarım yararlı olur.
Fibonacci sayılar kendisinden önce gelen iki sayının toplamıdır!
1) Fibonacci sayıları bulan QBasic programını yazınız.
CLS
INPUT "TERIM SAYISI", N
T1 = 1
T2 = 1
PRINT T1
PRINT T2
FOR I = 1 TO N - 2
T3 = T1 + T2
PRINT T3
T1 = T2
T2 = T3
NEXT I
END
Merhabalar, bu yazımda sizler ile hem for yapısının işleyişini göreceğiz hem de Yıldız Dik Üçgeni yapacağız.
öncelikle ne yapacağım sorusunu kendinize sormalısınız?
*
**
***
****
*****
kafanızda canlandığı anda Nasıl yapacağım sorusunu sorun?
işte bu noktada Algoritma devreye giriyor. İstesek de istemesek de kafamızda nasıl bir yol izleyeceğimizi kurguluyoruz. Algoritmadan kaçış yok :)
Yukarıda sıralanmış yıldızları öncelikle inceleyin ilk satırda tek yıldız daha sonra 1'er 1'er artarak gidiyor.
bunun için;
CLS // Ekranı Temizler
FOR a = 1 TO 5 // a değişkeni beş sayısına eşit olana kadar teker teker arttır.
FOR b = 1 TO a // b değişkeni a sayısına eşit olana kadar teker teker arttır.
PRINT "*"; // * verisini yazdır.
NEXT b // Döngü tamamlanana kadar b değişkenine dön.
PRINT // Döngüler tamamlandıktan sonra bir alt satıra in.
NEXT a // Döngü tamamlanana kadar a değişkenine dön.
END // Programı tamamla ve bitir.
Tam tersi için.
*****
****
***
**
*
CLS
FOR a = 1 TO 5
FOR b = 5 TO a STEP -1
PRINT "*";
NEXT b
PRINT
NEXT a
END
Umarım yararlı olmuştur. İyi çalışmalar dilerim.