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

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