kazimyaver | Tüm yazılar etiketlendi 'yıldız dik üçgeni'

Yıldız Üçgeni ( QBasic )

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.