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

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