1. Bu site çerezler kullanır. Bu siteyi kullanmaya devam ederek çerez kullanımımızı kabul etmiş olursunuz. Daha Fazla Bilgi.

Qbasic Örnek Programlar

'Bilgisayar Programlama' forumunda Powers tarafından 1 Ekim 2012 tarihinde açılan konu

  1. Powers

    Powers Administrator Site Yetkilisi

    Qbasic programlama dili günümüzde hiç kullanılmasa da bazı üniversitelerde algoritma mantığı oluşturmak amacıyla verilmeye devam ediliyor. Kaynak bulmakta sıkıntı çeken öğrencilere yardımcı olması amacıyla bazı hazır programları buraya ekledik.

    Matris işlemleri örnek programlar
    Kod:
    CLS
    
    Print "Verilen matrisin alt ucgensel olup olmadigini bulan program"
    
    INPUT "Matrisin Buyutunu girin", N
    
    DIM m(N, N)
    
    PRINT "Matrisin elemanlarini giriniz"
    
    FOR i = 1 TO N
    
    FOR j = 1 TO N
    
    PRINT i; ".satir"; j; ".sutun elemanini girin"
    
    INPUT m(i, j)
    
    NEXT j: : PRINT : NEXT i
    
    FOR i = 1 TO N
    
    FOR j = 1 TO N
    
    PRINT m(i, j);
    
    NEXT j: PRINT : NEXT i
    
    s = 1
    
    FOR i = 1 TO N
    
    FOR j = 1 TO N
    
    IF j > i AND m(i, j) <> 0 THEN
    
    s = 0
    
    EXIT FOR
    
    EXIT FOR
    
    END IF
    
    NEXT j
    
    NEXT i
    
    IF s = 0 THEN
    
    COLOR , 4
    
    PRINT "Matris alt ucgensel degil"
    
    ELSE
    
    COLOR , 1
    
    PRINT "Matris alt ucgensel"
    
    END IF
    
    Kod:
    CLS
    
    Print "Verilen matrisi alt ucgensel yapan program"
    
    INPUT "karesel matrisin boyutunu giriniz="; n
    
    DIM a(n, n)
    
    FOR i = 1 TO n
    
    FOR j = 1 TO n
    
    PRINT i; ".satir"; j; ".sutun elemanini girin"
    
    INPUT a(i, j)
    
    NEXT j
    
    NEXT i
    
    CLS
    
    PRINT "Olusturulan Matris"
    
    FOR i = 1 TO n
    
    FOR j = 1 TO n
    
    COLOR , 1
    
    PRINT USING "#####"; a(i, j);
    
    NEXT j
    
    PRINT
    
    NEXT i
    
    FOR l = n TO 2 STEP -1
    
    FOR s = l - 1 TO 1 STEP -1
    
    IF a(l, l) = 0 THEN
    
    FOR m = l - 1 TO 1 STEP -1
    
    IF a(m, l) <> 0 THEN
    
    FOR j = 1 TO n
    
    a(l, j) = a(l, j) + a(m, j)
    
    NEXT j
    
    END IF
    
    NEXT m
    
    END IF
    
    c = a(s, l) / a(l, l)
    
    FOR j = 1 TO n
    
    a(s, j) = a(s, j) - c * a(l, j)
    
    NEXT j
    
    NEXT s
    
    NEXT l
    
    PRINT
    
    COLOR , 0
    
    PRINT "Matrisin alt ucgensel hali"
    
    FOR i = 1 TO n
    
    FOR j = 1 TO n
    
    COLOR , 1
    
    PRINT USING "#####.#"; a(i, j);
    
    NEXT j
    
    PRINT
    
    NEXT i
    
    COLOR , 0
    
    Kod:
    CLS
    
    PRINT "Girilen matrisi ust ucgensel hale getiren program"
    
    INPUT "Matrisin boyutunu giriniz"; n
    
    DIM a(n, n)
    
    FOR i = 1 TO n
    
    FOR j = 1 TO n
    
    PRINT "A("; i; ","; j; ")=";
    
    INPUT a(i, j)
    
    NEXT j
    
    NEXT i
    
    PRINT
    
    PRINT
    
    FOR i = 1 TO n
    
    FOR j = 1 TO n
    
    PRINT a(i, j);
    
    NEXT j
    
    PRINT
    
    NEXT i
    
    FOR l = 1 TO n - 1
    
    FOR s = l + 1 TO n
    
    IF a(l, l) = 0 THEN
    
    FOR m = l + 1 TO n
    
    IF a(m, l) <> 0 THEN
    
    FOR j = 1 TO n
    
    a(l, j) = a(l, j) + a(m, j)
    
    NEXT j
    
    END IF
    
    NEXT m
    
    END IF
    
    c = a(s, l) / a(l, l)
    
    FOR j = 1 TO n
    
    a(s, j) = a(s, j) - c * a(l, j)
    
    NEXT j
    
    NEXT s
    
    NEXT l
    
    PRINT
    
    PRINT
    
    PRINT "ust ucgensel hali"
    
    FOR i = 1 TO n
    
    FOR j = 1 TO n
    
    PRINT USING "###.#"; a(i, j);
    
    NEXT j
    
    PRINT
    
    NEXT i
    
    Dizi işlemleri örnek programlar
    Kod:
    CLS
    
    PRINT "Verilen dizinin artan olup olmadigini hesaplayan program"
    
    start:
    
    INPUT "Dizinin Boyutu"; n
    
    IF n = 0 THEN GOTO start
    
    IF n = 1 THEN GOTO start
    
    DIM x(n)
    
    FOR i = 1 TO n
    
    PRINT "x("; i; ")";
    
    INPUT a
    
    x(i) = a
    
    NEXT i
    
    artan = 1
    
    FOR i = 1 TO n - 1
    
    IF x(i) > x(i + 1) THEN artan = 0
    
    NEXT i
    
    IF artan = 0 THEN
    
    PRINT "Dizi Artan Degil"
    
    ELSE
    
    PRINT "Dizi Artan"
    
    END IF
    
    Kod:
    CLS
    
    PRINT "Verilen dizinin azalan olup olmadigini hesaplayan program"
    
    INPUT "Dizinin Boyutu"; n
    
    DIM x(n)
    
    FOR i = 1 TO n
    
    PRINT "x("; i; ")";
    
    INPUT a
    
    x(i) = a
    
    NEXT i
    
    azalan = 1
    
    FOR i = 1 TO n - 1
    
    IF x(i) <= x(i + 1) THEN azalan = 0
    
    NEXT i
    
    IF azalan = 0 THEN
    
    PRINT "Dizi Azalan Degil"
    
    ELSE
    
    PRINT "Dizi Azalan"
    
    END IF
    
    If döngüsü kullanımı örnek program
    Kod:
    CLS
    
    Print "Girilen sayiya kadarki sayilarin faktoryelini alan program"
    
    cephanelik:
    
    INPUT "Faktoryeli alinacak sayiyi girin"; terorist#
    
       israil# = 1
    
       abd# = 0
    
    savas:
    
    abd# = abd# + 1
    
    israil# = israil# * abd#
    
    PRINT abd#; "!", israil#
    
    IF terorist# > 17 THEN PRINT "Lutfen daha dusuk bir sayi girin"
    
    IF terorist# > 17 THEN GOTO cephanelik
    
    IF abd# = terorist# THEN END ELSE GOTO savas
    
    Do loop döngüsü örnek program
    Kod:
    CLS
    
    Print "Girilen sayinin faktoryelini alan program"
    
    INPUT "Faktoryeli alalinacak sayiyi girin"; olu
    
    hasar# = 1
    
    DO WHILE olu > 1
    
    hasar# = hasar# * olu
    
    olu = olu - 1
    
    LOOP
    
    PRINT "Girilen sayinin faktoryeli"; hasar#; "dir"
    
    Go komutu kullanımı örnek program
    Kod:
    DO
    
    CLS
    
    PRINT "Fibonacci Dizisini Gosteren Program"
    
    Program:
    
    INPUT "Eleman sayisini girin=", n
    
    IF n > 35 THEN PRINT "Lutfen daha dusuk bir sayi girin": GOTO Program
    
    PRINT " 1. eleman", 1
    
    PRINT " 2. eleman", 1
    
    A = 1
    
    B = 1
    
    SAY = 2
    
    ISLEM:
    
    C = A + B
    
    SAY = SAY + 1
    
    PRINT SAY; ".eleman", C
    
    IF SAY = n THEN END
    
    A = B
    
    B = C
    
    GOTO ISLEM
    
    LOOP
    
    Do loop döngüsü ve if kullanımı örnek program
    Kod:
    CLS
    
    PRINT "Sayilarin tek/cift oldugunu gosteren program"
    
    COLOR , 4
    
    PRINT "Cikmak icin ENTER tusuna basmaniz yeterlidir"
    
    COLOR , 0
    
    DO
    
    2 INPUT "Sayiyi girin"; mutlu
    
    IF mutlu = 0 THEN END
    
    IF mutlu <> INT(mutlu) THEN GOTO 2
    
    IF mutlu = INT(mutlu) THEN
    
    IF (-1) ^ mutlu < 0 THEN
    
    PRINT "Bu sayi aslinda TEKtir"
    
    ELSE
    
    PRINT "Bu sayi aslinda CIFTtir"
    
    END IF
    
    ELSE
    
    PRINT "Lutfen tam sayi giriniz"
    
    END IF
    
    LOOP
    
    Kalanlı bölme işlemi
    Kod:
    CLS
    
    PRINT "Kalanli bolme islemi yapan program"
    
    INPUT "Boluneni girin"; n
    
    INPUT "Boleni Girin"; m
    
    PRINT
    
    PRINT n; "/"; m
    
    mumu = 0
    
    Program:
    
    T = n - m
    
    mumu = mumu + 1
    
    IF T >= m THEN
    
    n = T
    
    GOTO Program
    
    ELSE
    
    PRINT "KALAN="; T
    
    PRINT "BOLUM="; mumu
    
    END
    
    END IF
    
    Dizi işlemleri
    Kod:
    CLS
    
    PRINT "Girilen dizinin tersini gosteren program"
    
    INPUT "Dizinin eleman sayisini girin"; n
    
    DIM x(n), tersx(n)
    
    FOR i = 1 TO n
    
    INPUT x(i)
    
    NEXT i
    
    PRINT "Dizinin elemanlari:"
    
    FOR i = 1 TO n
    
    PRINT x(i);
    
    NEXT i
    
    PRINT
    
    FOR i = 1 TO n
    
    tersx(i) = x(n - i + 1)
    
    NEXT i
    
    PRINT "Dizinin elemanlarinin tersten yazilisi"
    
    FOR i = 1 TO n
    
    PRINT tersx(i);
    
    NEXT i
    
    Kod:
    CLS
    
    PRINT "Girilen 2 sayinin obebini alan program"
    
    COLOR , 2
    
    INPUT "ilk sayiyi girin"; N
    
    INPUT "ikinci sayiyi girin"; M
    
    COLOR , 0
    
    Program:
    
    R = N - INT(N / M) * M
    
    IF R = 0 THEN
    
    PRINT "OBEB="; M
    
    ELSE
    
    N = M
    
    M = R
    
    GOTO Program
    
    END IF
    
    matris işlemleri
    Kod:
    CLS
    
    PRINT "Carpim tablosu olusturan program"
    
    INPUT "n=", n
    
    DIM b(n, n)
    
    FOR i = 1 TO n
    
    FOR j = 1 TO n
    
    b(i, j) = i * j
    
    NEXT j, i
    
    FOR i = 1 TO n
    
    FOR j = 1 TO n
    
    PRINT USING "####"; b(i, j);
    
    NEXT j
    
    PRINT
    
    NEXT i
    
    Yazı tura simulasyonu
    Kod:
    CLS
    
    Print "Yazi tura simulasyonu yapan program"
    
    INPUT "Paranin kac defa atilacagini girin"; Okul
    
    TS = 0
    
    YS = 0
    
    DO
    
    IF i = Okul THEN EXIT DO
    
    i = i + 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
    
    If kullanımı örnek program
    Kod:
    CLS
    
    PRINT "Girilen sayinin asal olup olmadigini gosteren program"
    
    1 INPUT "Asalligindan endise duydugunuz sayiyi girin"; n
    
    IF n <> INT(n) THEN PRINT "Lutfen gecerli bir sayi girin": GOTO 1
    
    IF n < 2 THEN PRINT "Lutfen gecerli bir sayi girin": GOTO 1
    
    i = 2
    
    kopkop:
    
    IF i = n THEN
    
    PRINT n; "Asaldir"
    
    END
    
    END IF
    
    r = n - (INT(n / i) * i)
    
    IF r = 0 THEN
    
    PRINT n; "Asal degildir.": END
    
    ELSE i = i + 1
    
    GOTO kopkop
    
    END IF
    
    Mükemmel sayı
    Kod:
    CLS
    
    PRINT "Girilen sayinin mukemmel olup olmadigini bulan program"
    
    1 INPUT "Mukemmelliginden endise duydugunuz sayiyi girin"; n
    
    IF n <> INT(n) THEN PRINT "Lutfen tam sayi girin": GOTO 1
    
    t = 0
    
    s = 1
    
    FOR i = 1 TO n
    
    s = s + 1
    
    IF n = INT(n / s) * s THEN a = INT(n / s): t = t + a
    
    NEXT i
    
    IF n = 0 THEN PRINT "Lutfen Baska Bir Sayi Girin": GOTO 1
    
    IF t = n THEN
    
    PRINT n; "Mukemmel Sayidir"
    
    ELSE
    
    PRINT n; "Mukemmel Sayi Degildir"
    
    END IF
    
    Qbasic ile iki bilinmeyenli denklem çözümü
    Kod:
    CLS
    
    1 PRINT "a1X+b1Y=c1"
    
    2 PRINT "a2X+b2Y=c2"
    
    3 PRINT "Seklindeki denklemlerin cozumu"
    
    4 PRINT
    
    5 INPUT "a1 sayisini girin"; a1
    
    6 INPUT "b1 sayisini girin"; b1
    
    7 INPUT "c1 sayisini girin"; c1
    
    8 PRINT "ilk denklem"; ; a1; "X+"; b1; "Y="; c1
    
    9 PRINT
    
    10 INPUT "a2 sayisini girin"; a2
    
    11 INPUT "b2 sayisini girin"; b2
    
    12 INPUT "c2 sayisini girin"; c2
    
    13 PRINT "ikinci denklem"; ; a2; "X+"; b2; "Y="; c2
    
    14 determinant = (a1 * b2 - a2 * b1)
    
    15 IF determinant = 0 THEN
    
    PRINT "Cozum Yok"
    
    16 GOTO 1
    
    17 ELSE
    
    18 X = (c1 * b2 - b1 * c2) / determinant
    
    19 Y = (a1 * c2 - a2 * c1) / determinant
    
    PRINT
    
    20 PRINT "X="; X
    
    21 PRINT "Y="; Y
    
    22 END IF
    
    e sayısının q basic ile bulunması
    Kod:
    CLS
    
    PRINT "1/0!den 1/N! e kadar olan sayilarin toplanmasi"
    
    INPUT "N i girin"; n
    
    top = 1
    
    f = 1
    
    FOR i = 1 TO n
    
    f = f * i
    
    top = top + 1 / f
    
    PRINT i; top
    
    NEXT i
    
    For döngüsü örnek program
    Kod:
    CLS
    
    PRINT "1den N e kadar olan sayilarin toplanmasi"
    
    INPUT "N i girin"; n
    
    f = 0
    
    FOR i = 1 TO n
    
    f = f + i
    
    NEXT i
    
    PRINT "1 den"; n; "e kadar olan sayilarin toplami"; f; "dir."
    
    Matris işlemleri
    Kod:
    CLS
    
    PRINT "Birim matris olusturan program"
    
    INPUT "Kac birimlik matris tanimlayacaginizi girin"; n
    
    DIM b(n, n)
    
    FOR i = 1 TO n
    
    b(i, i) = 1
    
    NEXT i
    
    FOR i = 1 TO n
    
    FOR j = 1 TO n
    
    PRINT b(i, j);
    
    NEXT j
    
    PRINT
    
    NEXT i
    
    Kod:
    CLS
    
    PRINT "Girilen Matrisi yazdiran program"
    
    INPUT "Matrisin Satir Sayisini Girin"; n
    
    INPUT "Matrisin Sutun Sayisini Girin"; m
    
    DIM b(n, m)
    
    FOR i = 1 TO n
    
    FOR j = 1 TO m
    
    PRINT "("; i; ","; j; ")";
    
    INPUT b(i, j)
    
    NEXT j
    
    NEXT i
    
    CLS
    
    FOR i = 1 TO n
    
    FOR j = 1 TO m
    
    PRINT USING "#####"; b(i, j);
    
    NEXT j
    
    PRINT
    
    NEXT i
    
    Kod:
    CLS
    
    PRINT "1 ile 100 arasinda rasgele sayi ureten program"
    
    DIM mutlu(100)
    
    INPUT "Kac Sayi Uretilecegini Girin"; n
    
    FOR i = 1 TO n
    
    u = INT(RND * 100) + 1
    
    mutlu(u) = mutlu(u) + 1
    
    PRINT u;
    
    NEXT i
    
    INPUT mutlu
    
    PRINT : PRINT "Siniftaki Eleman Sayilari"
    
    FOR i = 1 TO 100
    
    PRINT i; mutlu(i)
    
    NEXT i
    
    PRINT
    
    INPUT mutlu
    
    FOR i = 1 TO 100
    
    FOR j = 1 TO mutlu(i)
    
    PRINT "*";
    
    NEXT j
    
    PRINT
    
    NEXT i
    
    enk = mutlu(1)
    
    yer = 1
    
    ebk = mutlu(1)
    
    yemez = 1
    
    FOR i = 1 TO 100
    
    IF mutlu(i) <= enk THEN
    
    enk = mutlu(i)
    
    yer = i
    
    END IF
    
    IF mutlu(i) >= ebk THEN
    
    ebk = mutlu(i)
    
    yemez = i
    
    END IF
    
    NEXT i
    
    PRINT
    
    PRINT "En Az Olan Sayi ve Kac Tane Oldugu"
    
    PRINT yer; enk
    
    PRINT "En Fazla Olan Sayi ve Kac Tane Oldugu"
    
    PRINT yemez; ebk
    
    Rasgele sayı üretimi
    Kod:
    CLS
    
    PRINT "2 sayi arasinda rasgele sayi ureten program"
    
    INPUT "Kac sayi uretilecegini girin"; m
    
    INPUT "Alt siniri girin"; v
    
    INPUT "Ust siniri girin"; c
    
    FOR i = 1 TO m
    
    x = (c - v) * RND + v
    
    PRINT INT(x); x
    
    NEXT i
    
    Basamak sayan program
    Kod:
    CLS
    
    PRINT "Verilen sayinin kac basamakli oldugunu bulan program"
    
    INPUT "Sayiyi Girin=", A
    
    N = 0
    
    Program:
    
    IF A >= 10 ^ N AND A < 10 ^ (N + 1) THEN
    
    PRINT "Sayi"; N + 1; "basamaklidir..."
    
    ELSE N = N + 1
    
    GOTO ISLEM
    
    END IF
    
    END
    
    Sayı işlemleri
    Kod:
    CLS
    
    PRINT "1den N'e kadar olan cift sayilarin toplamini bulan program"
    
    INPUT "N'i girin"; N
    
    IF (-1) ^ N < 0 THEN N = N - 1
    
    TOPLAM = 0
    
    SAY = 0
    
    A1:
    
    TOPLAM = TOPLAM + SAY
    
    SAY = SAY + 2
    
    IF SAY > N THEN
    
    PRINT "TOPLAM=", TOPLAM
    
    END
    
    END IF
    
    GOTO A1
    
    Kod:
    CLS
    
    PRINT "1den N'e kadar olan tek sayilarin toplamini bulan program"
    
    INPUT "N'i girin"; N
    
    IF (-1) ^ N > 0 THEN N = N - 1
    
    TOPLAM = 0
    
    SAY = 1
    
    A1:
    
    TOPLAM = TOPLAM + SAY
    
    SAY = SAY + 2
    
    IF SAY > N THEN
    
    PRINT "TOPLAM=", TOPLAM
    
    END
    
    END IF
    
    GOTO A1
    
    Sayısal loto tahmincisi
    Kod:
    Program:
    
    CLS
    
    PRINT "Sayisal loto oynayicisi"
    
    RANDOMIZE TIMER
    
    N = 6
    
    DIM x(N)
    
    FOR i = 1 TO N
    
    x(i) = INT(RND * 49) + 1
    
    NEXT i
    
    PRINT "Bu haftanin sansli numaralari"
    
    FOR i = 1 TO N - 1
    
    FOR j = i + 1 TO N
    
    IF x(i) = x(j) THEN GOTO Program
    
    IF x(i) > x(j) THEN SWAP x(i), x(j)
    
    NEXT j
    
    NEXT i
    
    FOR i = 1 TO N
    
    COLOR , 2
    
    PRINT x(i);
    
    NEXT i
    
    COLOR , 0
    
    Sayı işlemleri
    Kod:
    CLS
    
    PRINT "1'den N'e kadar sayilarin karelerinin toplamini bulan program"
    
    INPUT "N'i girin", N
    
    TOP = 0
    
    ISLEM:
    
    I = I + 1
    
    TOPLAM = TOPLAM + I ^ 2
    
    IF I = N THEN PRINT "TOPLAM:"; TOPLAM ELSE GOTO ISLEM
    
    END
    
    İstatistiksel simulasyonlar
    Kod:
    CLS
    
    PRINT "Bernoulli simulasyonu yapan program"
    
    Program:
    
    RANDOMIZE TIMER
    
    INPUT "Basari olasiligini girin"; p
    
    IF 0 > p OR p > 1 THEN
    
    PRINT "Olasilik 0'dan kucuk 1'den buyuk olamaz"
    
    GOTO Program
    
    ELSE
    
    INPUT "deneme sayisi="; n
    
    FOR i = 1 TO n
    
    IF RND < p THEN PRINT "basarili" ELSE PRINT "basarisiz"
    
    NEXT
    
    END IF
    
    Metin işlemleri örnek program
    Kod:
    CLS
    
    PRINT "Girilen metinde kac karakter ve cumle oldugunu sayan program"
    
    COLOR , 4
    
    PRINT "Girilen cumleden sonra . koymayi unutmayiniz..."
    
    COLOR , 0
    
    INPUT "Metni girin"; a$
    
    n = LEN(a$)
    
    PRINT "Mevcut karakter sayisi "; n; " dir."
    
    FOR i = 1 TO n
    
    IF MID$(a$, i, 1) = "." THEN cumle = cumle + 1
    
    NEXT i
    
    PRINT "Mevcut cumle sayisi "; cumle; " dir."
    
    Matris işlemleri
    Kod:
    CLS
    
    PRINT "Girilen matrisin satir ve sutununu degistiren program"
    
    INPUT "Matrisin satir sayisini giriniz=", n
    
    INPUT "Matrisin sutun sayisini giriniz=", m
    
    DIM x(n, m)
    
    FOR i = 1 TO n
    
    FOR j = 1 TO m
    
    PRINT "("; i; ","; j; ")";
    
    INPUT x(i, j)
    
    NEXT
    
    NEXT
    
    FOR i = 1 TO n
    
    FOR j = 1 TO m
    
    PRINT x(i, j);
    
    NEXT
    
    PRINT
    
    NEXT
    
    Mutlu:
    
    INPUT "Degisecek satir numarasini giriniz", sat1
    
    IF sat1 > n THEN GOTO Mutlu
    
    mumu:
    
    INPUT "Degisecek satir numarasini giriniz", sat2
    
    IF sat2 > m THEN GOTO mumu
    
    FOR j = 1 TO m
    
    SWAP x(sat1, j), x(sat2, j)
    
    NEXT j
    
    FOR i = 1 TO n
    
    FOR j = 1 TO m
    
    PRINT x(i, j);
    
    NEXT
    
    PRINT
    
    NEXT
    
    Powers:
    
    INPUT "Degisecek sutun numarasini giriniz", sut1
    
    IF sut1 > m THEN GOTO Powers
    
    Tweety:
    
    INPUT "Degisecek sutun numarasini giriniz", sut2
    
    IF sut2 > m THEN GOTO Tweety
    
    FOR i = 1 TO n
    
    SWAP x(i, sut1), x(i, sut2)
    
    NEXT i
    
    FOR i = 1 TO n
    
    FOR j = 1 TO m
    
    PRINT x(i, j);
    
    NEXT
    
    PRINT
    
    NEXT
    
    Rasgele sayı üretimi
    Kod:
    DIM x(1000)
    
    PRINT "Rasgele sayi ureten menulu program"
    
    menu:
    
    CLS
    
    LOCATE 4, 10: PRINT "secenekler"
    
    LOCATE 6, 5: PRINT "1-veri uretme"
    
    LOCATE 7, 5: PRINT "2-ortalama"
    
    LOCATE 8, 5: PRINT "3-en buyuk"
    
    LOCATE 9, 5: PRINT "4-cikis"
    
    LOCATE 12, 15: INPUT "seciminiz=", sec
    
    IF sec = 1 THEN GOSUB uret
    
    IF sec = 2 THEN GOSUB ortalama
    
    IF sec = 3 THEN GOSUB enbuyuk
    
    IF sec = 4 THEN END
    
    GOTO menu
    
    uret:
    
    CLS
    
    RANDOMIZE TIMER
    
    INPUT "veri sayisi=", n
    
    FOR i = 1 TO n
    
    x(i) = RND
    
    PRINT x(i)
    
    NEXT i
    
    GOSUB tusbas
    
    RETURN
    
    ortalama:
    
    CLS
    
    t = 0
    
    FOR i = 1 TO n
    
    t = t + x(i)
    
    NEXT i
    
    ort = t / n
    
    PRINT "ortalama=", ort
    
    tus$ = INPUT$(1)
    
    GOSUB tusbas
    
    RETURN
    
    enbuyuk:
    
    CLS
    
    eb = x(1)
    
    FOR i = 2 TO n
    
    IF x(i) > eb THEN eb = x(i)
    
    NEXT i
    
    PRINT "en buyuk=", eb
    
    tus$ = INPUT$(1)
    
    GOSUB tusbas
    
    RETURN
    
    tusbas:
    
    LOCATE 23, 1: PRINT "geri donus icin bir tusa basiniz"
    
    tus$ = INPUT$(1)
    
    RETURN
    
    Zar atılması simulasyonu
    Kod:
    CLS
    
    RANDOMIZE TIMER
    
    PRINT "Zar atilmasi deneyi"
    
    INPUT "Kac defa zar atilacagini girin"; n
    
    DIM a(n)
    
    FOR i = 1 TO n
    
    a(i) = INT(RND * 6) + 1
    
    NEXT i
    
    PRINT
    
    FOR j = 1 TO 6
    
    f(j) = 0
    
    NEXT j
    
    FOR j = 1 TO 6
    
    FOR i = 1 TO n
    
    IF a(i) = j THEN f(j) = f(j) + 1
    
    NEXT i
    
    NEXT j
    
    PRINT "Frekans:"
    
    FOR i = 1 TO 6
    
    PRINT
    
    PRINT i; ":";
    
    FOR j = 1 TO f(i)
    
    PRINT "*";
    
    NEXT j
    
    NEXT i
    
    FOR i = 1 TO n
    
    IF a(i) < min THEN min = a(i)
    
    IF a(i) > max THEN max = a(i)
    
    NEXT i
    
    PRINT
    
    t = 0
    
    FOR i = 1 TO n
    
    t = t + a(i)
    
    NEXT i
    
    ort = t / n
    
    PRINT "ortalama="; ort
    
    Matris işlemleri
    Kod:
    CLS
    
    PRINT "Verilen matrisin diagonal olup olmadigini gosteren program"
    
    INPUT "Matrisin boyutunu giriniz="; n
    
    DIM a(n, n)
    
    FOR i = 1 TO n
    
    FOR k = 1 TO n
    
    PRINT "A("; i; ","; k; ")=";
    
    INPUT a(i, k)
    
    NEXT k
    
    NEXT i
    
    PRINT
    
    FOR i = 1 TO n
    
    FOR k = 1 TO n
    
    PRINT a(i, k);
    
    NEXT k
    
    PRINT
    
    NEXT i
    
    s = 0
    
    FOR i = 1 TO n
    
    FOR j = 1 TO n
    
    IF a(i, i) <> 0 AND a(i, j) = 0 THEN s = s + 1
    
    NEXT j
    
    NEXT i
    
    IF s = 0 THEN PRINT "diagonal de§il";  ELSE PRINT ; "diagonal"
    
    Kod:
    CLS
    
    PRINT "Girilen matrisin satirlarini toplayip yanina ekleyen program"
    
    INPUT " a matrisinin satir sayisi="; n
    
    INPUT "a matrisinin sutun sayisi="; m
    
    DIM a(n, m), sat(n), sut(m), b(n, m + 1)
    
    PRINT "a matrisinin elemanlarini satir satir giriniz"
    
    FOR i = 1 TO n
    
    FOR j = 1 TO m
    
    PRINT "a("; i; ";"; j; ")=";
    
    INPUT a(i, j)
    
    NEXT j
    
    NEXT i
    
    PRINT
    
    PRINT
    
    FOR i = 1 TO n
    
    FOR j = 1 TO m
    
    PRINT a(i, j);
    
    NEXT j
    
    PRINT
    
    NEXT i
    
    PRINT
    
    FOR i = 1 TO n
    
    sat(i) = 0
    
    FOR j = 1 TO m
    
    sat(i) = sat(i) + a(i, j)
    
    NEXT j
    
    NEXT i
    
    FOR i = 1 TO n
    
    PRINT i; ". satir toplami="; sat(i)
    
    NEXT i
    
    FOR i = 1 TO m
    
    sut(i) = 0
    
    FOR j = 1 TO n
    
    sut(i) = sut(i) + a(j, i)
    
    NEXT j
    
    NEXT i
    
    PRINT
    
    FOR i = 1 TO m
    
    PRINT i; ". sutun toplami="; sut(i)
    
    NEXT i
    
    FOR i = 1 TO n
    
    FOR j = 1 TO m
    
    b(i, j) = a(i, j)
    
    b(i, m + 1) = sat(i)
    
    NEXT j
    
    NEXT i
    
    PRINT
    
    PRINT "b matrisi"
    
    FOR i = 1 TO n
    
    FOR j = 1 TO m + 1
    
    PRINT b(i, j);
    
    NEXT j
    
    PRINT
    
    NEXT i
    
    enk = a(1, 1)
    
    FOR i = 1 TO n
    
    FOR j = 1 TO m
    
    IF a(i, j) < enk THEN enk = a(i, j)
    
    NEXT j
    
    NEXT i
    
    Olasılık hesabı normal dağılım tablo değeri
    Kod:
    CLS
    
    PRINT "Standart normal dagilimin (a,b) araligindaki degeri"
    
    t = 0
    
    DEF fnf (x) = (1 / SQR(2 * 3.1415)) * EXP(-.5 * x ^ 2)
    
    INPUT "Sayiyi girin"; n
    
    INPUT "Alt siniri girin"; a
    
    INPUT "Ust siniri girin"; b
    
    FOR i = 1 TO n
    
    t = t + fnf(a + i * ((b - a) / n))
    
    NEXT i
    
    t = t * (b - a) / n
    
    PRINT "Yaklasik integral"; t
    
    Matris denemeleri
    Kod:
    CLS
    
    RANDOMIZE TIMER
    
    PRINT "Farenin 4 odaya ka‡ar defa girdigini hesaplayan program"
    
    INPUT "Olasilik="; p
    
    INPUT "Deney Sayisi="; n
    
    DIM oda(2, 2)
    
    ioda = 2
    
    FOR i = 1 TO n
    
    u = RND
    
    IF u < p THEN
    
    moda = 1
    
    ELSE
    
    moda = -1
    
    END IF
    
    ioda = ioda + moda
    
    IF ioda = 5 THEN
    
    ioda = 1
    
    END IF
    
    IF ioda = 0 THEN
    
    ioda = 4
    
    END IF
    
    IF ioda = 1 THEN
    
    oda(1, 1) = oda(1, 1) + 1
    
    END IF
    
    IF ioda = 2 THEN
    
    oda(1, 2) = oda(1, 2) + 1
    
    END IF
    
    IF ioda = 3 THEN
    
    oda(2, 2) = oda(2, 2) + 1
    
    END IF
    
    IF ioda = 4 THEN
    
    oda(2, 1) = oda(2, 1) + 1
    
    END IF
    
    CLS
    
    FOR k = 1 TO 2
    
    FOR m = 1 TO 2
    
    PRINT , oda(k, m);
    
    NEXT m: PRINT : NEXT k
    
    PRINT
    
    NEXT i
    
    Grafik işlemleri
    Kod:
    PRINT "-x^2 tarzi grafik cizen program"
    
    SCREEN 12
    
    WINDOW (-200, 200)-(200, -200)
    
    LINE (-200, 0)-(200, 0)
    
    LINE (0, -200)-(0, 200)
    
    FOR x = -3 TO 3 STEP .000001
    
    PSET (x * 50, 150 * (1 / SQR(6.28) * EXP(-x ^ 2 / 2)))
    
    NEXT x
    
    Kod:
    CLS
    
    PRINT "Boncuk karistirma Programi"
    
    DIM m(8, 8)
    
    FOR i = 1 TO 4
    
    FOR j = 1 TO 8
    
    m(i, j) = 0
    
    NEXT j
    
    NEXT i
    
    FOR i = 5 TO 8
    
    FOR j = 1 TO 8
    
    m(i, j) = 1
    
    NEXT j
    
    NEXT i
    
    FOR i = 1 TO 8
    
    FOR j = 1 TO 8
    
    PRINT m(i, j);
    
    NEXT j
    
    PRINT
    
    NEXT i
    
    PRINT
    
    INPUT "Karistirma Sayisi"; n
    
    FOR s = 1 TO n
    
    sat1 = INT(RND * 8) + 1
    
    sut1 = INT(RND * 8) + 1
    
    sat2 = INT(RND * 8) + 1
    
    sut2 = INT(RND * 8) + 1
    
    SWAP m(sat1, sut1), m(sat2, sut2)
    
    CLS
    
    FOR i = 1 TO 8
    
    FOR j = 1 TO 8
    
    PRINT m(i, j);
    
    NEXT j
    
    PRINT
    
    NEXT i
    
    mavi1 = 0
    
    mavi2 = 0
    
    kirmizi1 = 0
    
    kirmizi2 = 0
    
    FOR i = 1 TO 4
    
    FOR j = 1 TO 8
    
    IF m(i, j) = 0 THEN mavi1 = mavi1 + 1 ELSE kirmizi1 = kirmizi1 + 1
    
    NEXT j
    
    NEXT i
    
    FOR i = 5 TO 8
    
    FOR j = 1 TO 8
    
    IF m(i, j) = 0 THEN mavi2 = mavi2 + 1 ELSE kirmizi2 = kirmizi2 + 1
    
    NEXT j
    
    NEXT i
    
    LOCATE 10, 10: PRINT "1.kisim mavi sayisi="; mavi1
    
    LOCATE 12, 10: PRINT "1.kisim kirmizi sayisi="; kirmizi1
    
    LOCATE 14, 10: PRINT "2.kisim mavi sayisi="; mavi2
    
    LOCATE 16, 10: PRINT "2.kisim kirmizi sayisi="; kirmizi2
    
    NEXT s
    
    Sub komutu ile alt programlama
    Kod:
    DECLARE SUB fakt (n, sonuc)
    
    PRINT "Sub ile faktoryel bulma"
    
    INPUT "Sayiyi giriniz=", n
    
    fakt n, sonuc
    
    PRINT sonuc
    
    
    SUB fakt (n, sonuc)
    
    sonuc = 1
    
    FOR i = 1 TO n
    
    sonuc = sonuc * i
    
    NEXT i
    
    END SUB
    
    Özgün örnekler
    Kod:
    CLS
    
    PRINT "Leyla ile Mecnun'un bulusma sorunu simulasyonu"
    
    1 INPUT "Deney sayisi=", n
    
    IF n <= 0 OR INT(n) <> n THEN GOTO 1
    
    INPUT "Maximum bekleme suresi"; t
    
    IF t > 60 THEN PRINT "Mecnun bi saatten fazla beklemeye tahammul edemiyor": GOTO 1
    
    bulus = 0
    
    FOR i = 1 TO n
    
    x = 60 * RND
    
    y = 60 * RND
    
    IF ABS(x - y) <= t THEN
    
    bulus = bulus + 1
    
    END IF
    
    NEXT i
    
    olas = bulus / n
    
    PRINT "Similasyon ile bulunmasi olasiligi="; olas
    
    Kod:
    RANDOMIZE TIMER
    
    PRINT "iskambil destesi karistirma problemi"
    
    CLS
    
    DIM deste(52)
    
    DIM dizi$(13)
    
    dizi$(0) = "Papaz"
    
    dizi$(1) = "As   "
    
    dizi$(2) = "ikili"
    
    dizi$(3) = "uclu "
    
    dizi$(4) = "dortlu"
    
    dizi$(5) = "beŸli"
    
    dizi$(6) = "altili"
    
    dizi$(7) = "Yedili"
    
    dizi$(8) = "Sekizli"
    
    dizi$(9) = "Dokuzlu"
    
    dizi$(10) = "Onlu "
    
    dizi$(11) = "Vale "
    
    dizi$(12) = "Kiz  "
    
    DIM grup$(4)
    
    grup$(0) = "Ma‡a"
    
    grup$(1) = "Sinek"
    
    grup$(2) = "Karo"
    
    grup$(3) = "Kupa"
    
    FOR i = 1 TO 52
    
    deste(i) = i
    
    NEXT i
    
    n = 10000
    
    FOR i = 1 TO n
    
    sec1 = INT(52 * RND) + 1
    
    sec2 = INT(52 * RND) + 1
    
    SWAP deste(sec1), deste(sec2)
    
    NEXT i
    
    FOR i = 1 TO 52
    
    kisi = (INT((i - 1) / 13)) + 1
    
    bul = deste(i)
    
    bul1 = bul
    
    bul = bul - INT(bul / 13) * 13
    
    seri = INT((bul1 - 1) / 13)
    
    PRINT kisi; grup$(seri); " "; dizi$(bul)
    
    NEXT i
    
    Kod:
    CLS
    
    PRINT "Menulu Zar ve Para deneyi yapan Program"
    
    basla:
    
    RANDOMIZE TIMER
    
    PRINT "1-zar"
    
    PRINT "2-yazi-tura"
    
    PRINT "3-cikis"
    
    PRINT
    
    INPUT "seciminiz=", sec
    
    ON sec GOSUB zar, para
    
    IF sec = 3 THEN END
    
    GOTO basla
    
    zar:
    
    x = INT(RND * 6) + 1
    
    PRINT x
    
    RETURN
    
    para:
    
    x = RND
    
    IF x < .5 THEN PRINT "tura" ELSE PRINT "yazi"
    
    RETURN
    
    Devre simulasyonu
    Kod:
    CLS
    
    PRINT "seri-paralel parcalardan olusan devrenin calisma olasiligi"
    
    INPUT "seri parca sayisi=", m
    
    INPUT "paralel parca sayisi=", n
    
    INPUT "deneme sayisi=", deneme
    
    RANDOMIZE TIMER
    
    DIM a(n, m)
    
    DIM min(n)
    
    DIM devre(deneme)
    
    FOR K = 1 TO deneme
    
    FOR i = 1 TO n
    
    FOR j = 1 TO m
    
    a(i, j) = RND
    
    NEXT j
    
    NEXT i
    
    PRINT
    
    FOR i = 1 TO n
    
    FOR j = 1 TO m
    
    PRINT a(i, j);
    
    NEXT j
    
    PRINT
    
    NEXT i
    
    FOR i = 1 TO n
    
    min(i) = a(i, 1)
    
    FOR j = 1 TO m
    
    IF a(i, j) < min(i) THEN min(i) = a(i, j)
    
    NEXT j
    
    NEXT i
    
    FOR i = 1 TO n
    
    max = min(1)
    
    IF min(i) > max THEN max = min(i)
    
    NEXT i
    
    'PRINT max
    
    devre(K) = max
    
    NEXT K
    
    FOR K = 1 TO deneme
    
    PRINT devre(K)
    
    NEXT K
    
    top = 0
    
    FOR s = 1 TO deneme
    
    top = top + devre(s)
    
    NEXT s
    
    ort = top / deneme
    
    PRINT "Ortalama", ort
    
    Grafik işlemleri
    Kod:
    CLS
    
    PRINT "duzlem uzerinde rasgele sekil cizen program"
    
    SCREEN 12
    
    WINDOW (-200, 200)-(200, -200)
    
    LINE (-200, 0)-(200, 0)
    
    LINE (0, -200)-(0, 200)
    
    x0 = 0
    
    y0 = 0
    
    PSET (x0, y0), 5
    
    n = 10000
    
    FOR i = 1 TO n
    
    alfa = RND * 6.28
    
    adim = RND * 5
    
    x1 = x0 + adim * COS(alfa)
    
    y1 = y0 + adim * SIN(alfa)
    
    LINE (x0, y0)-(x1, y1), 2
    
    x0 = x1
    
    y0 = y1
    
    FOR s = 1 TO 100000: NEXT s
    
    NEXT i
    
    Matrislerde çarpma işlemi
    Kod:
    CLS
    
    PRINT "iki matrisi carpan program"
    
    INPUT "A matrisinin satir sayisi="; n
    
    INPUT "A matrisinin sutun sayisi="; m
    
    INPUT "B matrisinin sutun sayisi="; p
    
    DIM a(n, m), b(m, p), c(n, p)
    
    PRINT "A matrisinin elemanlarini satir satir giriniz"
    
    FOR i = 1 TO n
    
    FOR j = 1 TO m
    
    PRINT "a("; i; ";"; j; ")=";
    
    INPUT a(i, j)
    
    NEXT j
    
    NEXT i
    
    PRINT "A matrisi"
    
    COLOR , 3
    
    FOR i = 1 TO n
    
    FOR j = 1 TO m
    
    PRINT a(i, j);
    
    NEXT j
    
    PRINT
    
    NEXT i
    
    COLOR , 0
    
    PRINT "b matrisinin elemanlarini satir satir giriniz"
    
    FOR i = 1 TO m
    
    FOR j = 1 TO p
    
    PRINT "b("; i; ";"; j; ")=";
    
    INPUT b(i, j)
    
    NEXT j
    
    NEXT i
    
    PRINT "B matrisi"
    
    COLOR , 2
    
    FOR i = 1 TO m
    
    FOR j = 1 TO p
    
    PRINT b(i, j);
    
    NEXT j
    
    PRINT
    
    NEXT i
    
    COLOR , 4
    
    PRINT "AxB Matrisi"
    
    FOR i = 1 TO n
    
    FOR j = 1 TO p
    
    FOR k = 1 TO m
    
    c(i, j) = c(i, j) + a(i, k) * b(k, j)
    
    NEXT k
    
    NEXT j
    
    NEXT i
    
    FOR i = 1 TO n
    
    FOR j = 1 TO p
    
    PRINT c(i, j);
    
    NEXT j
    
    PRINT
    
    NEXT i
    
    COLOR , 0
    
    Matris işlemleri
    Kod:
    CLS
    
    Print "Matrisin kosegen olup olmadigini bulan program"
    
    INPUT "Satir sayisi="; n
    
    INPUT "Sutun sayisi="; n
    
    s = 0
    
    DIM a(n, n)
    
    PRINT "Elemanlari girin"
    
    FOR i = 1 TO n
    
    FOR j = 1 TO n
    
    PRINT "a("; i; ";"; j; ")=";
    
    INPUT a(i, j)
    
    NEXT j
    
    NEXT i
    
    PRINT
    
    PRINT
    
    FOR i = 1 TO n
    
    FOR j = 1 TO n
    
    PRINT a(i, j);
    
    NEXT j
    
    PRINT
    
    NEXT i
    
    FOR i = 1 TO n
    
    FOR j = 1 TO n
    
    IF a(i, i) <> 0 AND a(i, j) = 0 THEN s = 1
    
    NEXT j
    
    NEXT i
    
    IF s = 0 THEN
    
    PRINT "Matris kosegen degil"
    
    ELSE
    
    PRINT "Matris kosegen"
    
    END IF
    
    Kod:
    CLS
    
    PRINT "Girilen matrisin en kucuk elemanini bulan program"
    
    INPUT "Matrisin satir sayisi"; n
    
    INPUT "Matrisin sutun sayisi="; m
    
    DIM a(n, m), sat(n), sut(m), b(n, m + 1)
    
    PRINT "Matrisinin elemanlarini girin"
    
    FOR i = 1 TO n
    
    FOR j = 1 TO m
    
    PRINT "a("; i; ";"; j; ")=";
    
    INPUT a(i, j)
    
    NEXT j
    
    NEXT i
    
    PRINT
    
    FOR i = 1 TO n
    
    FOR j = 1 TO m
    
    PRINT a(i, j);
    
    NEXT j
    
    PRINT
    
    NEXT i
    
    PRINT
    
    enk = a(1, 1)
    
    FOR i = 1 TO n
    
    FOR j = 1 TO m
    
    IF a(i, j) < enk THEN enk = a(i, j)
    
    NEXT j
    
    NEXT i
    
    PRINT
    
    PRINT "Matrisin en kucuk elemani"; enk
    
    Kod:
    CLS
    
    PRINT "Girilen matrisin en buyuk elemanini bulan program"
    
    INPUT "Matrisin satir sayisi"; n
    
    INPUT "Matrisin sutun sayisi="; m
    
    DIM a(n, m), sat(n), sut(m), b(n, m + 1)
    
    PRINT "Matrisinin elemanlarini girin"
    
    FOR i = 1 TO n
    
    FOR j = 1 TO m
    
    PRINT "("; i; ";"; j; ")=";
    
    INPUT a(i, j)
    
    NEXT j
    
    NEXT i
    
    PRINT
    
    FOR i = 1 TO n
    
    FOR j = 1 TO m
    
    PRINT USING "###"; a(i, j);
    
    NEXT j
    
    PRINT
    
    NEXT i
    
    PRINT
    
    enb = a(1, 1)
    
    FOR i = 1 TO n
    
    FOR j = 1 TO m
    
    IF a(i, j) > enb THEN enb = a(i, j)
    
    NEXT j
    
    NEXT i
    
    PRINT
    
    PRINT "Matrisin en buyuk elemani"; enb
    
    Kod:
    CLS
    
    PRINT "Matrisin elemanlarinin satir satir en kucuk ve en buyugunu bulan program"
    
    INPUT "Matrisin satir sayisi"; n
    
    INPUT "Matrisin sutun sayisi="; m
    
    DIM a(n, m), satek(n), sateb(n), sutek(m)
    
    PRINT "Matrisin elemanlarini satir girin"
    
    FOR i = 1 TO n
    
    FOR j = 1 TO m
    
    PRINT "a("; i; ";"; j; ")=";
    
    INPUT a(i, j)
    
    NEXT j
    
    NEXT i
    
    PRINT
    
    PRINT
    
    FOR i = 1 TO n
    
    FOR j = 1 TO m
    
    PRINT a(i, j);
    
    NEXT j
    
    PRINT
    
    NEXT i
    
    PRINT
    
    FOR i = 1 TO n
    
    satek(i) = a(i, 1)
    
    FOR j = 1 TO m
    
    IF a(i, j) < satek(i) THEN satek(i) = a(i, j)
    
    NEXT j
    
    NEXT i
    
    FOR i = 1 TO n
    
    sateb(i) = a(i, 1)
    
    FOR j = 1 TO m
    
    IF a(i, j) > sateb(i) THEN sateb(i) = a(i, j)
    
    NEXT j
    
    NEXT i
    
    FOR i = 1 TO n
    
    PRINT i; "satirin en kucugu="; satek(i)
    
    PRINT i; "satirin en buyugu="; sateb(i)
    
    NEXT i
    
    Qbasic ile Pi sayısının bulunması
    Kod:
    CLS
    
    SCREEN 12
    
    PRINT "Pi sayisini rasgele sayi kullanarak tahmin eden program"
    
    INPUT "Deney sayisi"; n
    
    CLS
    
    dusen = 0
    
    FOR i = 1 TO n
    
    x = 1 * RND
    
    y = 1 * RND
    
    PSET (100 + x * 200, 450 - y * 200)
    
    IF x ^ 2 + y ^ 2 <= 1 THEN
    
    dusen = dusen + 1
    
    PSET (100 + x * 200, 450 - y * 200), 5
    
    END IF
    
    olas = 4 * dusen / n
    
    LOCATE 1, 1: PRINT "Similasyonla bulunma olasiligi"; olas;
    
    NEXT i
    
    Kod:
    CLS
    
    PRINT "Pi sayisinin noktadan sonraki basamaklarinda yer alan"
    
    PRINT "rakamlarin sayisinin hesaplanmasi ve dagiliminin bulunmasi"
    
    OPEN "I", #1, "pie.txt"
    
    OPEN "o", #2, "basamak.txt"
    
    DIM bsay(9)
    
    FOR i = 1 TO 1000
    
    INPUT #1, a1
    
    bsay(a1) = bsay(a1) + 1
    
    LOCATE 10, 10: PRINT a1
    
    NEXT i
    
    PRINT "basamak sayilari"
    
    FOR j = 0 TO 9
    
    PRINT j; bsay(j)
    
    PRINT #2, bsay(j)
    
    NEXT j
    
    CLOSE #1
    
    CLOSE #2
    
    Kod:
    CLS
    
    PRINT "Pi sayisinin noktadan sonraki basamaklarinda yer alan"
    
    PRINT "ikili rakamlarin sayisinin hesaplanmasi ve dagiliminin bulunmasi"
    
    OPEN "I", #1, "pie.txt"
    
    OPEN "o", #2, "bas2.txt"
    
    DIM bsay2(99)
    
    FOR i = 1 TO 1000
    
    INPUT #1, a1
    
    INPUT #1, a2
    
    pi = 10 * a1 + a2
    
    LOCATE 10, 10: PRINT pi
    
    bsay2(pi) = bsay2(pi) + 1
    
    NEXT i
    
    PRINT "basamak sayilari"
    
    FOR j = 0 TO 99
    
    PRINT j; bsay2(j)
    
    PRINT #2, bsay2(j)
    
    NEXT j
    
    CLOSE #1
    
    CLOSE #2
    
    Kod:
    CLS
    
    PRINT "Pi sayisinin noktadan sonraki basamaklarinda yer alan"
    
    PRINT "ikili rakamlarin sayisinin hesaplanmasi ve dagiliminin bulunmasi"
    
    OPEN "I", #1, "pie.txt"
    
    OPEN "o", #2, "bas3.txt"
    
    DIM bsay2(999)
    
    FOR i = 1 TO 333330
    
    INPUT #1, a1
    
    INPUT #1, a2
    
    INPUT #1, a3
    
    pi = (100 * a1) + 10 * a2 + a3
    
    LOCATE 10, 10: PRINT pi
    
    bsay2(pi) = bsay2(pi) + 1
    
    NEXT i
    
    PRINT "basamak sayilari"
    
    FOR j = 0 TO 999
    
    PRINT j; bsay2(j)
    
    PRINT #2, bsay2(j)
    
    NEXT j
    
    CLOSE #1
    
    CLOSE #2
    
     
    Tags:
  2. Onur1988

    Onur1988 Kovulmuş Eski Üye

    Saol. Çok yardımcı oldu.
     
  3. yunusyunus

    yunusyunus New Member

    çok güzel, ben qbasic ile çok benzer ama biraz daha görsel bir dille öğrenmiştim libertybasic programında, hey gibi günler heyy
     

Bu Sayfayı Paylaş

Yükleniyor...