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

QBasic Program Örnekleri

'Bilgisayar Programlama ve Kodlama' forumunda Powers tarafından 15 Ocak 2013 tarihinde açılan konu

  1. Powers

    Powers Administrator Site Yetkilisi

    Örnek 1.

    '1'den N'e kadar olan sayıların toplamı

    CLS

    INPUT "N=", N

    TOPLAM = 0

    SAY = 1

    A1:

    TOPLAM = TOPLAM + SAY

    SAY = SAY + 1

    IF SAY > N THEN

    PRINT "TOPLAM=", TOPLAM

    END

    END IF

    GOTO A1


    Örnek 2.

    '1'den N'e kadar olan sayıların kareleri toplamı

    CLS

    INPUT "N=", N

    I = 1

    S = 0

    TOPLA:

    S = S + I ^ 2

    I = I + 1

    IF I > N THEN

    PRINT "TOPLAM=", S

    END

    END IF

    GOTO TOPLA


    Örnek 3

    'faktoriyel

    CLS

    INPUT "N=", N

    IF N = 0 THEN

    PRINT "SONUC=", 1

    END

    END IFF = 1

    SAY = 1

    A1:

    F = F * SAY

    SAY = SAY + 1

    IF SAY > N THEN

    PRINT "SONUC=", F

    END

    END IF

    GOTO A1


    Örnek 4.

    'N'in M'li kombinasyonu

    CLS

    INPUT "N'i yazınız=", N

    INPUT "M'i yazınız=", M

    IF M > N THEN

    PRINT "çözüm YOK"

    END

    END IF

    IF M = N THEN

    PRINT "N'in M'li kombinasyonu=1"

    END

    END IF

    I = 0

    S = 1

    HESAP:

    I = I + 1

    S = S * I

    IF I = N THEN

    PRINT "N faktoriyel=", S

    GOTO HESAP1

    END IF

    GOTO HESAP

    HESAP1:

    K = 0

    L = 1

    A1:

    K = K + 1

    L = L * K

    IF K = M THEN

    PRINT "M faktoriyel=", L

    GOTO A5

    END IF

    GOTO A1:

    A5:

    H = 0

    F = 1

    A2:

    H = H + 1

    F = F * H

    IF H = (N - M) THEN

    PRINT "N-M FAKT™R˜YEL=", S

    GOTO A8

    END IF

    GOTO A2

    A8:

    W = S / (L * F)

    PRINT "N'in M'li kombinasyonu=", W

    END


    Örnek 5.

    'F(X)=exp(x) i BULAN PROGRAM

    CLS

    INPUT "N=", N

    T = 1

    F = 1

    FOR I = 1 TO N

    F = F * I

    T = T + 1 / F

    NEXT I

    PRINT "E'NIN YAK.DEGERI="; T


    Örnek 6.

    'Newton-R YONTEMI

    CLS

    INPUT "BASLANGIC DEGERI=", X0

    INPUT "DELTA=", DELTA

    A1:

    X1 = X0 + (EXP(-XQ) - 2 * X0) / (2 + EXP(-X0))

    PRINT "YAK KOK=", X1

    IF ABS(X1 - X0) < DELTA THEN

    PRINT "YAK KOK=2,X1"

    END

    END IF

    X0 = X1

    GOTO A1


    Örnek 7.

    'IKI SAYININ OBEB'INI BULMA

    CLS

    INPUT "M=", M

    INPUT "N=", N

    IF N > M THEN

    C = M

    M = N

    N = C

    END

    END IF

    A1:

    A = INT(M / N)

    K = M - N * A

    IF K = 0 THEN

    PRINT "N=", N

    END

    END IF

    M = N

    N = K

    GOTO A1


    Örnek 8.

    'S=1+1/2+1/3+.....+1/N toplamını bulma

    CLS

    INPUT "N=", N

    A = 1

    S = 1

    A1:

    A = A + 1

    I = 1 / A

    S = S + I

    IF A = N THEN

    PRINT "SONUC=", S

    END

    END IF

    GOTO A1


    Örnek 9.

    'S=1+1/1!+1/2!+1/3!+....+1/N! toplamını bulma

    CLS

    INPUT "A=", A

    T = 1

    S = 1

    F = 1

    A1:

    S = S + 1

    F = F * S

    T = T + (1 / F)

    IF S = A THEN

    PRINT "SONUC=", T

    END

    END IF

    GOTO A1


    Örnek 10.

    'S=1+1/1!+1/3!+...+1/(2N+1)!

    CLS

    INPUT "N=", N

    S = 1

    T = 1

    F = 1

    A1:

    S = S + 2

    F = S * (S - 1)

    T = T + 1 / F

    IF S = N THEN

    PRINT "T=", T

    END

    END IF

    GOTO A1


    Örnek 11.

    'S=1+1/2!+1/4!+...+1/2N!

    CLS

    INPUT "A=", A

    T = 1

    S = 0

    F = 1

    A1:

    S = S + 2

    F = F * S * (S - 1)

    T = T + 1 / F

    IF S = A THEN

    PRINT "SONUC=", T

    END

    END IF

    GOTO A1


    Örnek 12.

    'IKI BILINMEYENLI DENKLEM COZUMU

    CLS

    INPUT "A1=", A1

    INPUT "A2=", A2

    INPUT "B1=", B1

    INPUT "B2=", B2

    INPUT "C1=", C1

    INPUT "C2=", C2

    IF A1 * B2 - A2 * B1 = 0 THEN

    PRINT "TEK COZUM YOK"

    END

    END IF

    X = (C1 * B2 - B1 * C2) / (A1 * B2 - A2 * B1)

    Y = (A1 * C2 - A2 * C1) / (A1 * B2 - A2 * B1)

    PRINT "BULUNAN X DEGERI=", X

    PRINT "BULUNAN Y DEGERI=", Y

    END


    Örnek 13.

    'KAREKöK BULMA newton-raphson

    CLS

    INPUT "KAREKOKU ALINACAK SAYI=", B

    INPUT "BASLANGIC DEGERINI GIRINIZ=", X0

    INPUT "DELTA=", DELTA

    A1:

    X = (X0 + B / X0) / 2

    PRINT "...>=", X

    IF ABS(X ^ 2 - B) < DELTA THEN

    PRINT "1.IF YAK. KOK=", X

    PRINT "1. IF BULUNAN KOKUN KARESI=", X ^ 2

    END

    END IF

    IF X = X0 THEN

    PRINT "2.IF YAK.KOK="; X

    PRINT "2. IF BULUNAN KOKUN KARESI=", X ^ 2

    END

    END IF

    X0 = X

    GOTO A1


    Örnek 14.

    'BIR SAYININ KUPKOKUNU BULMA

    CLS

    INPUT "KUPKOKU BULUNACAK SAYI=", A

    CLS

    X0 = 1

    DELTA = .0001

    A1:

    X = (2 * X0 + A / X0 ^ 2) / 3

    IF ABS(X ^ 3 - A) < DELTA THEN

    PRINT "YAK. KOK=", X

    PRINT "BULUNAN KOKUN KUBU=", X ^ 3

    END

    END IF

    X0 = X

    GOTO A1


    Örnek 15.

    'BIR SAYININ KUPKOKUNU BULMA

    CLS

    INPUT "KUPKOKU BULUNACAK SAYI=", A

    CLS

    x0 = 1

    DELTA = .1

    A1:

    x = (2 * x0 + A / x0 ^ 2) / 3

    PRINT x

    IF ABS(x - x0) < DELTA THEN

    PRINT "YAK. KOK=", x

    PRINT "BULUNAN KOKUN KUBU=", x ^ 3

    END

    END IF

    x0 = x

    GOTO A1


    Örnek 16.

    'F(1)=0 F(2)=1 F(3)=2 F(N)=F(N-1)+F(N-3) N>3

    'N VERILDIGINDE F(N)I BULACAK SAYI

    CLS

    N = 10

    TERIM = 4

    A = 0

    B = 1

    C = 2

    A1:

    D = A + C

    PRINT "TERIM", D

    A = B

    B = C

    C = D

    TERIM = TERIM + 1

    IF TERIM = N THEN END

    GOTO A1


    Örnek 17.

    'Tavşan Çiftleşmesi (Fibonacci dizisi)

    CLS

    INPUT "N="; N

    TERIM = 0

    T = 1

    T1 = 1

    A2:

    TERIM = TERIM + 1

    K = T + T1

    T = T1

    T1 = K

    IF TERIM = N THEN

    PRINT "TOPLAM TAVAN=", K END

    END IF

    GOTO A2


    Örnek 18.

    '1,2,4,8,16,23,28,29,31,35,43,50,55,56,...

    'BU DIZININ 1000DEN KUCUK ELEMANLARINI BULAN PROG.

    CLS

    SAYI = 1

    A1:

    YB = INT(SAYI / 100)

    OB = INT((SAYI - YB * 100) / 10)

    BB = SAYI - (OB * 10 + YB * 100)

    RTOP = YB + OB + BB

    RTOP1 = RTOP - INT(RKOP / 9) * 9

    IF RTOP1 = 0 THEN

    RTOP1 = 9

    END

    END IF

    RTOP = RTOP1

    SAYI = SAYI + RTOP

    IF SAYI > 1000 THEN END

    PRINT "BULUNAN SAYI=", SAYI

    GOTO A1
     
    Tags:

Bu Sayfayı Paylaş

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