örnek kod Archives

20 Kasım 200421 Temmuz 2017

6 yüzlü bir zarın atılması deneyinin simülasyonu

CLS
PRINT "6 YUZLU BIR ZARIN ATILMASI VE USTE GELEN NOKTA SAYISININ"
PRINT "GOZLEMI DENEYINDE SONUCLARIN GOZLENMESI"
INPUT "ZARIN ATILMA SAYISI = ", N
Z1 = 0
Z2 = 0
Z3 = 0
Z4 = 0
Z5 = 0
Z6 = 0
FOR I = 1 TO N
X = INT(6 * RND) + 1
IF X = 1 THEN Z1 = Z1 + 1
IF X = 2 THEN Z2 = Z2 + 1
IF X = 3 THEN Z3 = Z3 + 1
IF X = 4 THEN Z4 = Z4 + 1
IF X = 5 THEN Z5 = Z5 + 1
IF X = 6 THEN Z6 = Z6 + 1
COLOR 15
PRINT I, ". ATISTA ", X, " GELDI."
NEXT I
PRINT
COLOR 12
PRINT "1 SAYISI ", Z1; " DEFA GELDI"
PRINT "2 SAYISI ", Z2; " DEFA GELDI"
PRINT "3 SAYISI ", Z3; " DEFA GELDI"
PRINT "4 SAYISI ", Z4; " DEFA GELDI"
PRINT "5 SAYISI ", Z5; " DEFA GELDI"
PRINT "6 SAYISI ", Z6; " DEFA GELDI"

CLS

PRINT "6 YUZLU BIR ZARIN ATILMASI VE USTE GELEN NOKTA SAYISININ"

PRINT "GOZLEMI DENEYINDE SONUCLARIN GOZLENMESI"

INPUT "ZARIN ATILMA SAYISI = ", N

Z1 = 0

Z2 = 0

Z3 = 0

Z4 = 0

Z5 = 0

Z6 = 0

FOR I = 1 TO N

X = INT(6 * RND) + 1

IF X = 1 THEN Z1 = Z1 + 1

IF X = 2 THEN Z2 = Z2 + 1

IF X = 3 THEN Z3 = Z3 + 1

IF X = 4 THEN Z4 = Z4 + 1

IF X = 5 THEN Z5 = Z5 + 1

IF X = 6 THEN Z6 = Z6 + 1

COLOR 15

PRINT I, ". ATISTA ", X, " GELDI."

NEXT I

COLOR 12

PRINT "1 SAYISI ", Z1; " DEFA GELDI"

PRINT "2 SAYISI ", Z2; " DEFA GELDI"

PRINT "3 SAYISI ", Z3; " DEFA GELDI"

PRINT "4 SAYISI ", Z4; " DEFA GELDI"

PRINT "5 SAYISI ", Z5; " DEFA GELDI"

PRINT "6 SAYISI ", Z6; " DEFA GELDI"

Örnek Çıktı :

6 YUZLU BIR ZARIN ATILMASI VE USTE GELEN NOKTA SAYISININ
GOZLEMI DENEYINDE SONUCLARIN GOZLENMESI
ZARIN ATILMA SAYISI = 8
1 . ATISTA 5 GELDI.
2 . ATISTA 4 GELDI.
3 . ATISTA 4 GELDI.
4 . ATISTA 2 GELDI.
5 . ATISTA 2 GELDI.
6 . ATISTA 5 GELDI.
7 . ATISTA 1 GELDI.
8 . ATISTA 5 GELDI.

1 SAYISI 1 DEFA GELDI
2 SAYISI 2 DEFA GELDI
3 SAYISI 0 DEFA GELDI
4 SAYISI 2 DEFA GELDI
5 SAYISI 3 DEFA GELDI
6 SAYISI 0 DEFA GELDI

6 YUZLU BIR ZARIN ATILMASI VE USTE GELEN NOKTA SAYISININ

GOZLEMI DENEYINDE SONUCLARIN GOZLENMESI

ZARIN ATILMA SAYISI = 8

1 . ATISTA 5 GELDI.

2 . ATISTA 4 GELDI.

3 . ATISTA 4 GELDI.

4 . ATISTA 2 GELDI.

5 . ATISTA 2 GELDI.

6 . ATISTA 5 GELDI.

7 . ATISTA 1 GELDI.

8 . ATISTA 5 GELDI.

1 SAYISI 1 DEFA GELDI

2 SAYISI 2 DEFA GELDI

3 SAYISI 0 DEFA GELDI

4 SAYISI 2 DEFA GELDI

5 SAYISI 3 DEFA GELDI

6 SAYISI 0 DEFA GELDI

16 Kasım 200421 Temmuz 2017

N’nin M’li kombinasyonunu bulan program

CLS
 PRINT "N'NIN M'LI KOMBINASYONUNU BULAN PROGRAM"
 INPUT "N = ", N
 INPUT "M = ", M
 IF M > N THEN
  COLOR 15
  PRINT "COZUM YOK"
  END
 END IF
 IF M = N THEN
  COLOR 14
  PRINT "N'NIN M'LI KOMBINASYONU = 1"
  END
 END IF
 I = 0
 S = 1

HESAP:
 I = I + 1
 S = S * I
 IF I = N THEN
  COLOR 15
  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
  COLOR 14
  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
  COLOR 15
  PRINT "N-M FAKTORIYEL = ", S
  GOTO A8
 END IF
 GOTO A2

A8:
 W = S / (L * F)
 COLOR 14
 PRINT "N'NIN M'LI KOMBINASYONU = ", W
 END

CLS

PRINT "N'NIN M'LI KOMBINASYONUNU BULAN PROGRAM"

INPUT "N = ", N

INPUT "M = ", M

IF M > N THEN

COLOR 15

PRINT "COZUM YOK"

END

END IF

IF M = N THEN

COLOR 14

PRINT "N'NIN M'LI KOMBINASYONU = 1"

END

END IF

I = 0

S = 1

HESAP:

I = I + 1

S = S * I

IF I = N THEN

COLOR 15

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

COLOR 14

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

COLOR 15

PRINT "N-M FAKTORIYEL = ", S

GOTO A8

END IF

GOTO A2

A8:

W = S / (L * F)

COLOR 14

PRINT "N'NIN M'LI KOMBINASYONU = ", W

END

Örnek Çıktı :

N'NIN M'LI KOMBINASYONUNU BULAN PROGRAM
N = 10
M = 6
N FAKTORIYEL = 3628800
M FAKTORIYEL = 720
N-M FAKTORIYEL = 3628800
N'NIN M'LI KOMBINASYONU = 210

N'NIN M'LI KOMBINASYONUNU BULAN PROGRAM

N = 10

M = 6

N FAKTORIYEL = 3628800

M FAKTORIYEL = 720

N-M FAKTORIYEL = 3628800

N'NIN M'LI KOMBINASYONU = 210

15 Kasım 200421 Temmuz 2017

PI sayısını bulan program

CLS
 PRINT "PI SAYISINI BULAN PROGRAM"
 RANDOMIZE INT(TIMER / 3)
 S = 0
 N = 0

DONGU:
 X = RND
 Y = RND
 N = N + 1
 IF X * X + Y * Y > 1 THEN GOTO DONGU
 S = S + 1
 PRINT N, S, S / N * 4
 GOTO DONGU

CLS

PRINT "PI SAYISINI BULAN PROGRAM"

RANDOMIZE INT(TIMER / 3)

S = 0

N = 0

DONGU:

X = RND

Y = RND

N = N + 1

IF X * X + Y * Y > 1 THEN GOTO DONGU

S = S + 1

PRINT N, S, S / N * 4

GOTO DONGU

Örnke çıktı yok; çünkü program kısır bir döngüden oluşuyor. Sadece gözlemek amaçlı yani… Programı çalıştırdığınızda sonsuza kadar ekrana sayılar yazdırır. Durdurmak için CTL+C’yi Kulanın.

14 Kasım 200421 Temmuz 2017

Girilen dizideki en büyük elemanı bulan program

CLS
 PRINT "GIRILEN DIZIDEKI EN BUYUK ELEMANI BULAN PROGRAM"
 INPUT "DIZININ BOYUTU = "; N
 DIM X(N)
 FOR I = 1 TO N
  INPUT X(I)
 NEXT I
 EB = X(1)
 FOR I = 1 TO N
  IF EB < X(I) THEN EB = X(I)
 NEXT I
 PRINT "DIZININ EN BUYUK ELEMANI = "; EB

CLS

PRINT "GIRILEN DIZIDEKI EN BUYUK ELEMANI BULAN PROGRAM"

INPUT "DIZININ BOYUTU = "; N

DIM X(N)

FOR I = 1 TO N

INPUT X(I)

NEXT I

EB = X(1)

FOR I = 1 TO N

IF EB < X(I) THEN EB = X(I)

NEXT I

PRINT "DIZININ EN BUYUK ELEMANI = "; EB

Örnek Çıktı :

GIRILEN DIZIDEKI EN BUYUK ELEMANI BULAN PROGRAM
DIZININ BOYUTU = ? 4
? 4
? 9
? 1
? 6
DIZININ EN BUYUK ELEMANI = 9

GIRILEN DIZIDEKI EN BUYUK ELEMANI BULAN PROGRAM

DIZININ BOYUTU = ? 4

? 4

? 9

? 1

? 6

DIZININ EN BUYUK ELEMANI = 9

13 Kasım 200421 Temmuz 2017

Faktöriyel hesaplayan program

CLS
 PRINT "GIRILEN SAYININ FAKTORIYELINI HESAPLAYAN PROGRAM"
 INPUT "SAYI = ", N
 I = 0
 T = 1

ISLEM:
 I = I + 1
 T = T * I
 IF I = N THEN
  PRINT N, " FAKTORIYEL = ", T
  END
 END IF
 GOTO ISLEM

CLS

PRINT "GIRILEN SAYININ FAKTORIYELINI HESAPLAYAN PROGRAM"

INPUT "SAYI = ", N

I = 0

T = 1

ISLEM:

I = I + 1

T = T * I

IF I = N THEN

PRINT N, " FAKTORIYEL = ", T

END

END IF

GOTO ISLEM

Örnek Çıktı :

GIRILEN SAYININ FAKTORIYELINI HESAPLAYAN PROGRAM
SAYI = 6
6 FAKTORIYEL = 720

GIRILEN SAYININ FAKTORIYELINI HESAPLAYAN PROGRAM

SAYI = 6

6 FAKTORIYEL = 720

12 Kasım 200421 Temmuz 2017

Fibonacci dizisini hesaplayan program

CLS
 PRINT "FIBONACCI DIZISININ GIRILEN SAYI KADAR ELEMANINI BULAN PROGRAM"
 INPUT "KAC TANE ELEMAN HESAPLANACAK:"; ELEMAN
 XX0 = 1
 XX1 = 1
 COU = 2

ISLEM:
 XX2 = XX1 + XX0
 COU = COU + 1
 PRINT COU; ".CI ELEMAN"; XX2
 IF COU = ELEMAN THEN END
 XX0 = XX1
 XX1 = XX2
 GOTO ISLEM

CLS

PRINT "FIBONACCI DIZISININ GIRILEN SAYI KADAR ELEMANINI BULAN PROGRAM"

INPUT "KAC TANE ELEMAN HESAPLANACAK:"; ELEMAN

XX0 = 1

XX1 = 1

COU = 2

ISLEM:

XX2 = XX1 + XX0

COU = COU + 1

PRINT COU; ".CI ELEMAN"; XX2

IF COU = ELEMAN THEN END

XX0 = XX1

XX1 = XX2

GOTO ISLEM

Örnek Çıktı :

FIBONACCI DIZISININ GIRILEN SAYI KADAR ELEMANINI BULAN PROGRAM
KAC TANE ELEMAN HESAPLANACAK:? 10
3 .CI ELEMAN 2
4 .CI ELEMAN 3
5 .CI ELEMAN 5
6 .CI ELEMAN 8
7 .CI ELEMAN 13
8 .CI ELEMAN 21
9 .CI ELEMAN 34
10 .CI ELEMAN 55

FIBONACCI DIZISININ GIRILEN SAYI KADAR ELEMANINI BULAN PROGRAM

KAC TANE ELEMAN HESAPLANACAK:? 10

3 .CI ELEMAN 2

4 .CI ELEMAN 3

5 .CI ELEMAN 5

6 .CI ELEMAN 8

7 .CI ELEMAN 13

8 .CI ELEMAN 21

9 .CI ELEMAN 34

10 .CI ELEMAN 55

11 Kasım 200421 Temmuz 2017

Girilen sayının mükemmel sayı olup olmadığını bulan program

CLS
 PRINT "GIRILEN SAYININ MUKEMMEL SAYI OLUP OLMADIGINI BULAN PROGRAM"
 F = 0
 INPUT " SAYI ="; N
 FOR I = 2 TO N
  K = N / I
  IF K = INT(K) THEN
   F = F + K
  END IF
 NEXT I
 IF F = N THEN
  PRINT " MUKEMMEL SAYI"
 ELSE
  PRINT "MUKEMMEL SAYI DEGIL"
 END IF

CLS

PRINT "GIRILEN SAYININ MUKEMMEL SAYI OLUP OLMADIGINI BULAN PROGRAM"

F = 0

INPUT " SAYI ="; N

FOR I = 2 TO N

K = N / I

IF K = INT(K) THEN

F = F + K

END IF

NEXT I

IF F = N THEN

PRINT " MUKEMMEL SAYI"

ELSE

PRINT "MUKEMMEL SAYI DEGIL"

END IF

Örnek Çıktı :

GIRILEN SAYININ MUKEMMEL SAYI OLUP OLMADIGINI BULAN PROGRAM
SAYI =? 50
MUKEMMEL SAYI DEGIL

GIRILEN SAYININ MUKEMMEL SAYI OLUP OLMADIGINI BULAN PROGRAM

SAYI =? 50

MUKEMMEL SAYI DEGIL

10 Kasım 200421 Temmuz 2017

1’den Girilen sayıya kadar olan tamsayıların toplamını bulan program

CLS
 PRINT "1DEN GIRILEN SAYINA KADAR OLAN TAMSAYILARIN TOPLAMINI BULAN PROGRAM"
 INPUT "HANGI SAYIYA KADAR = ", N
 I = 0
 T = 0

ISLEM:
 I = I + 1
 T = T + I
 IF I = N THEN
  PRINT "TOPLAM =", T
  END
 END IF
 GOTO ISLEM

CLS

PRINT "1DEN GIRILEN SAYINA KADAR OLAN TAMSAYILARIN TOPLAMINI BULAN PROGRAM"

INPUT "HANGI SAYIYA KADAR = ", N

I = 0

T = 0

ISLEM:

I = I + 1

T = T + I

IF I = N THEN

PRINT "TOPLAM =", T

END

END IF

GOTO ISLEM

Örnek Çıktı :

1DEN GIRILEN SAYINA KADAR OLAN TAMSAYILARIN TOPLAMINI BULNA PROGRAM
HANGI SAYIYA KADAR = 15
TOPLAM = 120

1DEN GIRILEN SAYINA KADAR OLAN TAMSAYILARIN TOPLAMINI BULNA PROGRAM

HANGI SAYIYA KADAR = 15

TOPLAM = 120

9 Kasım 200421 Temmuz 2017

Girilen sayının asal olup olmadığını bulan program

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

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

Örnek Çıktı :

GIRILEN SAYININ ASAL OLUP OLMADIGINI BULAN PROGRAM
SAYI = 15
ASAL DEGIL

GIRILEN SAYININ ASAL OLUP OLMADIGINI BULAN PROGRAM

SAYI = 15

ASAL DEGIL

8 Kasım 200421 Temmuz 2017

Girilen iki sayının OBEB’ini bulan program

CLS
 PRINT "GIRILEN IKI SAYININ OBEBINI BULAN PROGRAM"
 INPUT "BIRINCI SAYI = ", N
 INPUT "IKINCI SAYI = ", M
 IF N < M THEN
  YEDEK = N
  N = M
  M = YEDEK
 END IF

KALANBUL:
 C = N - INT(N / M) * M
 IF C = 0 THEN
  PRINT "OBEB = ", M
  END
 END IF
 N = M
 M = C
 GOTO KALANBUL

CLS

PRINT "GIRILEN IKI SAYININ OBEBINI BULAN PROGRAM"

INPUT "BIRINCI SAYI = ", N

INPUT "IKINCI SAYI = ", M

IF N < M THEN

YEDEK = N

N = M

M = YEDEK

END IF

KALANBUL:

C = N - INT(N / M) * M

IF C = 0 THEN

PRINT "OBEB = ", M

END

END IF

N = M

M = C

GOTO KALANBUL

Örnek Çıktı:

GIRILEN IKI SAYININ OBEBINI BULAN PROGRAM
BIRINCI SAYI = 126
IKINCI SAYI = 34
OBEB = 2

GIRILEN IKI SAYININ OBEBINI BULAN PROGRAM

BIRINCI SAYI = 126

IKINCI SAYI = 34

OBEB = 2

Etiket: örnek kod

6 yüzlü bir zarın atılması deneyinin simülasyonu

Örnek Çıktı :

N’nin M’li kombinasyonunu bulan program

Örnek Çıktı :

PI sayısını bulan program

Girilen dizideki en büyük elemanı bulan program

Örnek Çıktı :

Faktöriyel hesaplayan program

Örnek Çıktı :

Fibonacci dizisini hesaplayan program

Örnek Çıktı :

Girilen sayının mükemmel sayı olup olmadığını bulan program

Örnek Çıktı :

1’den Girilen sayıya kadar olan tamsayıların toplamını bulan program

Örnek Çıktı :

Girilen sayının asal olup olmadığını bulan program

Örnek Çıktı :

Girilen iki sayının OBEB’ini bulan program

Örnek Çıktı:

mfyz.com E-posta Listesine Katılın