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.