Basit Programlama Örnekleri -1

10.Sınıf BTT dersi Programlama Temelleri modülü kapsamında uygulanabilecek ve Quick Basic ile programlama yeni başlayanlara yönelik 2 basit uygulama.

1.Uygulama: Klavyeden girilenleri ekrana
*****
****
***
**
*
şeklinde yazdıran program kodu:

DIM karakter AS STRING
DIM krk AS STRING
DIM i, k AS INTEGER
CLS

INPUT "karakteri giriniz: ", krk

FOR k = 1 TO 5
FOR i = 1 TO 6 - k

karakter = karakter + krk
NEXT
PRINT karakter
karakter = ""
NEXT

2.Uygulama: Klavyeden girilenleri ekrana
*
**
***
****
*****
şeklinde yazdıran program kodu:

DIM karakter AS STRING
DIM krk AS STRING
DIM i AS INTEGER
CLS

INPUT "karakteri giriniz: ", krk

FOR i = 1 TO 5
karakter = karakter + krk
PRINT karakter
NEXT