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

Dikkat: Bu yazının yazılma tarihinin üzerinden en az 60 gün geçmiş. İçerisindeki bilgiler güncelliğini yitirmiş olabilir. Yorumları ve güncellemeleri göz önünde bulundurarak yazıyı takip ediniz.
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

Yorumlar

Üye Resmi HAYRULLAH
6 Ocak Pazar ´08 13:39
GÜZEL PROGRAM.ÜNİVERSİTE YILLARINI HATIRLATTI BİR AN   :-)
17 Mart Pazartesi ´08 13:36
programı nası indiricez anlamadım???
17 Mart Pazartesi ´08 14:44
Program zaten derlenmemiş yani exe halinde indirip çalıştıramazsın.
Ancak Qbasic programın varsa derleyip çalıştırabilirsin
17 Mart Pazartesi ´08 23:39
Buradaki program kodlarını kopyalayıp bir metin editöründe txt veya .bas dosyası olarak kaydedip qbasic'de açıp derleyebilirsin. Oradan exeyede çevirilebiliyor.

Dosyalar bölümünde qbasic klasöründe Editor & Compiler adıyla geçen dosya işini görecektir   :-)
Üye Resmi swallow
21 Mart Cuma ´08 11:25
evet sonradan anladım zaten teşekkür ederim.. ama qbasic'i kurmayı bir türlü beceremedim amma beceriksizim ya   :-D  Allah'tan ödevi vermeye daha bi kaç gün var.. benim 20000 kere atmam gerekiyor sonra tablo ve grafikte göstereceğim.. =)
Üye Resmi swallow
21 Mart Cuma ´08 11:42
indirdiğim dosya zipli ve dos penceresinde komutlar yazarak kurulumu başlatabiliyorsunuz işte bunu bir türlü beceremedim   :-P
Üye Resmi swallow
21 Mart Cuma ´08 14:04
sonunda başardım yaşasın   :-D  program paylaşımı için çok teşekkürler   ;-)
23 Mart Pazar ´08 00:48
Nerede ne bölümünde okuyorsun?
Üye Resmi swallow
28 Mart Cuma ´08 15:00
iü de iktisat okuyorum.. istatistik hocamız ödev verdi de.. aslında kodları dos'u falan hep unutmuşum lise 1 den beri bakmıyorum onun sıkıntısını çektim.. biraz destek alıp simülasyon oluşturayım dedim de olmadı..

bu arada bu yazılım sürekli aynı sonuçları verdiğinden eğer diğer arkadaşlarım da bu programı kulanıp ödevi yaparlarsa çok tuhaf olucak hoca diyecek ki 20000 kere zar atmışsınız hep aynı çıkmış mhehe...
Üye Resmi martı transfer
7 Nisan Salı ´15 07:20
http://www.dalamanhavalimanitransfer.com/
Yeni Yorum *
İletişim Bilgileri
*
*
E-Posta adresiniz gösterilmeyecektir.
(unut)
Güvenlik Kodu *

Gönderiliyor