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   —   1 Yorum
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

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