Kare İçine Daire Çizen Program

CLS : SCREEN 12

LINE (100,100)-(350,350),,B

CIRCLE (225,225),125

END

1 ile 100 Arasında Rastgele Seçilen 10 Tamsayıyı Toplayan Program

CLS : RANDOMİZE TİMER

FOR X = 1 TO 10
C=FIX(RND*99)+1
P=P+C
PRINT "RASTGELE SEÇİLEN 10 SAYİ = " , C
NEXT
PRINT "SAYILARIN TOPLAMI = " , P
END

Data dan Girilen Sayilari Buyukten Kucuge Dogru Sıralayan Program

CLS : OPTION BASE 1: DATA  1,2,3,4,5,6,7,8,9,10
DIM A(10)
FOR X = 1 TO 10
PRINT : READ A(X)
NEXT
FOR X = 1 TO 10 - 1
FOR y = X + 1 TO 10
IF A(y) > A(X) THEN SWAP A(y), A(X)
NEXT y, X
FOR X = 1 TO 10
PRINT "A("; X; ")="; A(X)
NEXT
PRINT "EN KüçüK SAYI = "; A(1); "EN BüYüK SAYI = "; A(10)

Girilen Kelime-Cümle Tersini Yazdıran Program

CLS
DIM toplama AS STRING
toplama = ""
INPUT "Kelimeyi Giriniz : ", kelime$
FOR x = LEN(kelime$) TO 1 STEP -1
toplama = toplama + MID$(kelime$, x, 1)
NEXT
PRINT "Girilen Kelimenin Tersi : "; toplama

Klavyeden Girilen N elemanlı A dizisini Küçükten Büyüğe Doğru Sıralayan Program

CLS
INPUT "dizi eleman sayısını giriniz = ", n
DIM a(n)
FOR x = 1 TO n
PRINT "A("; x; ")="; : INPUT "", a(x)
NEXT
FOR p = 1 TO n - 1
FOR r = p + 1 TO n
IF a(r) < a(p) THEN SWAP a(p), a(r)
NEXT r, p
PRINT "SIRALAMA ": PRINT STRING$(10, 178)
FOR p = 1 TO n: PRINT "A("; p; ")="; a(p)
NEXT
END

Yazı Tura Programı

CLS

Print "Yazi tura atan program"

INPUT "Paranin atılıcağı sayıyı girin"; Okul

TS = 0

YS = 0

DO

IF k = Okul THEN EXIT DO

k = k + 1

x = RND

IF x < 1 / 2 THEN YS = YS + 1 ELSE TS = TS + 1

IF x < 1 / 2 THEN

COLOR , 1

PRINT "Yazi"

ELSE

COLOR , 2

PRINT " Tura"

END IF

LOOP

COLOR , 0

PRINT

PRINT "Yazilarin Sayisi"; YS

PRINT "Turalarin Sayisi"; TS