QBASIC ÖRNEKLERİ

CLS 
  10 PRINT "N'I GIRIN" 
  20 INPUT N 
  30 S = 1 
  40 T = 0 
  50 T = T + S^2 
  60 S = S + 1 
  70 IF S > N THEN GOTO 80 ELSE GOTO 50 
  80 PRINT T 
  90 END

CLS 
  10 PRINT "N'I GIRIN" 
  20 INPUT N 
  30 T = 0 
  40 S = 1 
  50 T = T + S 
  60 S = S + 1 
  70 IF S > N THEN GOTO 80 ELSE GOTO 50 
  80 PRINT T 
  90 END

CLS 
  10 PRINT "FAKTORIYELINI HESAPLAMAK ISTEDIGINIZ SAYIYI GIRIN" 
  20 INPUT N 
  30 IF N = 0 THEN PRINT 1: GOTO 100 
  40 F = 1 
  50 S = 1 
  60 F = F * S 
  70 S = S + 1 
  80 IF S > N THEN GOTO 90 ELSE GOTO 60 
  90 PRINT F 
  100 END 
  

CLS 
  10 T1=0 
  11 T2=0 
  20 I=0 
  30 I=I+1 
  40 T1=T1+I 
  41 T2=T2+I*I 
  50 IF I = 5 THEN GOTO 60 ELSE GOTO 30 
  60 E(X) = T1/5 
  61 VAR = T2/5 - E(X)^2 
  62 PRINT "E(x) =", E(X) 
  63 PRINT "E(x^2)=", T2/5 
  70 PRINT "VARYANS=", VAR 
  80 END

CLS 
   PRINT "GIRILEN SAYININ ASAL OLUP OLMADIGINI BULAN PROGRAM" 
   INPUT "SAYI = ", N 
   IF N < 1 THEN 
    PRINT "ASAL DEGIL" 
    END 
   END IF 
   IF N = 1 THEN 
    PRINT "ASAL DEGIL" 
    END 
   END IF 
   IF N = 2 THEN 
    PRINT "ASAL" 
    END 
   END IF 
   A = 1 
    
  ISLEM: 
   A = A + 1 
   IF (INT(N / A)) * A = N THEN 
    PRINT "ASAL DEGIL" 
    END 
   END IF 
   IF A = (N - 1) THEN 
    PRINT "ASAL" 
    END 
   END IF 
   GOTO ISLEM

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 
  

CLS 
  INPUT "A(M,N)", M, N 
  INPUT "B(N,P)", N, P 
  DIM A(M, N), B(N, P), C(M, P) 
  CLS 
  PRINT "A matrisinin elemanlarini giriniz" 
  FOR I = 1 TO M 
  FOR J = 1 TO N 
  PRINT "A("; I; ","; J; ")": INPUT " ", A(I, J) 
  NEXT J, I 
  PRINT "B matrisinin elemanlarini giriniz" 
  FOR I = 1 TO N 
  FOR J = 1 TO P 
  PRINT "B("; I; ","; J; ")": INPUT " ", B(I, J) 
  NEXT J, I 
  CLS 
  'matrislerin yazilmasi 
  PRINT "A matrisi" 
  FOR I = 1 TO M 
  FOR J = 1 TO N 
  PRINT A(I, J); 
  NEXT J 
  PRINT 
  NEXT I 
  PRINT 
  PRINT "B matrisi" 
  FOR I = 1 TO N 
  FOR J = 1 TO P 
  PRINT B(I, J); 
  NEXT J 
  PRINT 
  NEXT I 
  'matrislerin carpimi 
  FOR I = 1 TO M 
  FOR J = 1 TO P 
  C(I, J) = 0 
  NEXT J, I 
  FOR I = 1 TO M 
  FOR J = 1 TO P 
  FOR K = 1 TO N 
  C(I, J) = C(I, J) + A(I, K) * B(K, J) 
  NEXT K, J, I 
  PRINT : 
  PRINT "C matrisi" 
  FOR I = 1 TO M 
  FOR J = 1 TO P 
  PRINT C(I, J); 
  NEXT J: PRINT : NEXT I

 
  5 CLS 
  6 PRINT "ASAL SAYI PROGRAMI" 
  7 PRINT "SAYI GIRINIZ = "; 
  10 INPUT X 
  15 Y = 0 
  20 Y = Y + 1 
  30 Z = X / Y 
  40 C = INT(Z) 
  50 IF Z = C THEN GOTO 51 ELSE GOTO 20 
  51 PRINT "GIRILEN SAYI="; X, "BOLEN="; Y, "SONUC="; Z 
  52 G = G + 1 
  70 IF Y <> X THEN GOTO 20 
  75 PRINT "BU SAYININ"; G; "TANE BOLENI VAR" 
  80 IF G = 2 THEN PRINT "BU SAYI ASALDIR" ELSE PRINT "BU SAYI ASAL DEGIL" 
  90 END 
  

 
  5 CLS 
  6 A = 0 
  7 B = 0 
  10 FOR X = 2000 TO 3001 
  12 G = 0 
  15 Y = 0 
  20 Y = Y + 1 
  30 Z = X / Y 
  40 C = INT(Z) 
  50 IF Z = C THEN GOTO 52 ELSE GOTO 20 
  52 G = G + 1 
  70 IF Y <> X THEN GOTO 20 
  80 IF G = 2 THEN PRINT X; : A = A + 1: B = B + X 
  85 NEXT X 
  86 PRINT "BULUNAN ASAL SAYI ADEDI="; A 
  87 PRINT "ASAL SAYILARIN TOPLAMI ="; B 
  88 D = B / A 
  89 PRINT "ASAL SAYILARIN ORTALAMASI ="; D 
  90 END 
  

10 CLS 
  20 INPUT "A'YI GiR=", A 
  30 INPUT "B'YI GiR=", B 
  40 INPUT "C'YI GiR=", C 
  50 D = A * A - B * B - C * C 
  60 E = B * B - C * C - A * A 
  70 F = C * C - B * B - A * A 
  80 IF D = 0 THEN 130 
  90 IF E = 0 THEN 150 
  100 IF F = 0 THEN 170 
  110 PRINT "PISAGOR YOK" 
  120 GOTO 180 
  130 PRINT "A HPTENUS O.U. PISAGOR OLUR" 
  140 GOTO 180 
  150 PRINT "B HPOTENUS O.U PISAGOR OLUR" 
  160 GOTO 180 
  170 PRINT "C HIPTONUS O.U. PISAGOR OLUR" 
  180 PRINT 
  190 END 
   

CLS 
  DIM A(3, 3) 
  FOR I = 1 TO 3 
      FOR J = 1 TO 3 
          PRINT I; J; ".TERIMININ KATSAYISI=": INPUT A(I, J) 
          PRINT USING "####"; A(I, J), 
      NEXT 
      PRINT 
  NEXT 
  DETA1 = A(1, 1) * A(2, 2) * A(3, 3) + A(2, 1) * A(3, 2) * A(1, 3) + A(3, 1) * A(1, 2) * A(2, 3) 
  DETA2 = A(1, 3) * A(2, 2) * A(3, 1) + A(2, 3) * A(3, 2) * A(1, 1) + A(3, 3) * A(1, 2) * A(2, 1) 
  DETA = DETA2 - DETA1 
  CLS 
  IF DETA = 0 THEN 10 ELSE PRINT "LINEER BAGIMLI DEIL": END 
  10 PRINT "LINEER BAGIMLI" 
  END