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