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"

Ö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
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
15 Kasım Pazartesi ´04
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.
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

Popüler Etiketler

db database service free api htaccess mod_rewrite url cookie php javascript assets html ruffles doritos icon ikon grafik download css xhtml rss regex gimp örnek kod mssql apple iphone ipad js developer ui ux css3 icons mysql cms jquery textarea facebook opengraph fql optimization internet windows linux fstab ntfs html5 form input mobile social media sosyal medya twitter while mootools ajax xml http server editor coding parse search google ipucu imza signature mail itunes konsol terminal cache open source lisans xmlhttprequest mfyz less language development style blog chart osx applications compile nedir date sql diff button graph share oyun radio switch kitap design ie support browser subdomain optimizasyon analyse procedure connect box auth meta apache route router firefox banner calendar logo lifestream dokuman startups music iOS www redirect crossdomain svn subversion git version control deployment bootstrap wanda spam internet explorer generator kurulum notebook laptop license job digital table login webkit browsers ios app store store in-app purchase purchase subscription verification storekit itunes connect kontrol yapıları if tebrik mdb2 pear injection ide phpstorm jetbrains workspace tarih wireless statistics ubuntu framework portfolio code proje kampanya object istatistik insanlar web app tytz plugin screen tool export macosx app newsletter widget wordpress howto nasıl integration compiler on-the-fly prepare execute pgsql select pharma hack seo zaman session link sitemap network player query