düşünmek kolaydır ama yapmak zordur, hayatta en zor olan şey düşünüleni yapmaktır.

XML

craps

#include 
#include 
#include 

#define		OYNAMA_SAYISI		100000

int zar_at(void);
int oyun_basla(void);
int oyun_devam(int toplam);

int main() {
	
	int k;
	int kazanma_sayisi = 0;

	srand(time(0));

	for (k = 0; k < OYNAMA_SAYISI; ++k)
		kazanma_sayisi += oyun_basla();

	printf("kazanma olasiligi = %lf\n", (double) kazanma_sayisi / OYNAMA_SAYISI);
	
	return 0;
}

int zar_at(void) {

	int zar1 = rand() % 6 + 1;
	int zar2 = rand() % 6 + 1;

	//printf("%d\n", zar1 + zar2);

	return zar1 + zar2;

}

int oyun_basla() {

	int zar_toplam = zar_at();

	switch (zar_toplam) {
		case 7:
		case 11:return 1;
		case 2:
		case 3:
		case 12: return 0;
		default: return oyun_devam(zar_toplam);
	}
}

int oyun_devam(int zar_toplam) {

	while (1) 
	{
		int zar_toplam_yeni = zar_at();

		if (zar_toplam_yeni == zar_toplam)
			return 1;
		else if (zar_toplam_yeni == 7)
			return 0;
	}
}

Thursday, July 13, 2006

Yorumlar

Isim
 
Email

Yorum (HTML kapali)
 
Resimdeki sayiyi asagidaki kutuya yazin:

(Not: Sayiyi okuyamiyorsaniz, yeni bir sayi üretmek için sayfayi yeniden yükleyin.)