IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- Programlama (https://www.ircforumlari.net/programlama/)

- - Q Basic Alıştırma ok şekli (https://www.ircforumlari.net/programlama/719730-q-basic-alistirma-ok-sekli.html)

Kaf_Dağı

21 Aralık 2015 12:36

Q Basic Alıştırma ok şekli

Q Basic Alıştırma ok şekli

q basic , alıştırma, kod yazılım, visual basic kod yazılım, q basic alıştırma

Kod:

CLS

INPUT "satr says gir"; s
 

FOR i = s TO 1 STEP -1

    d$ = ""
 

    FOR k = s TO i STEP -1

        d$ = d$ + "*"

    NEXT k

    PRINT d$
 
 

NEXT i
 

FOR i = 1 TO s - 1

    d$ = ""

    FOR k = s - 1 TO i STEP -1

        d$ = d$ + "*"

    NEXT k

    PRINT d$
 
 

NEXT i

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 02:20.