Pascal da BARBUT Oyunu

En Büyük İslami Forum Sitesi/Pascal da BARBUT Oyunu => Zarlarla oynanan bir oyun. İlk atışınızda 7 atarsanız kazanıyorsunuz. 2,3 veya 12 atarsanız kaybediyorsunuz. Başka bir rakam atarsanız tekrar

Gönderen Konu: Pascal da BARBUT Oyunu  (Okunma sayısı 2584 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı administrator

  • Administrator
  • General
  • *****
  • İleti: 24515
  • Karma: +3/-1
    • Profili Görüntüle
    • Toplist Ekle Site Ekle
Pascal da BARBUT Oyunu
« : Nisan 30, 2009, 12:30:27 ÖS »
Zarlarla oynanan bir oyun. İlk atışınızda 7 atarsanız kazanıyorsunuz. 2,3 veya 12 atarsanız kaybediyorsunuz. Başka bir rakam atarsanız tekrar atıyorsunuz. İkinci atışınızda ilk attığınız sayı gelirse kazanıyorsunuz, 7 gelirse kaybediyorsunuz.
program barbut;
uses crt;
var
x,y,p,o:integer;
n,a,b,t,f,g,s:integer;
k,m:boolean;
Begin
clrscr;
randomize;
x:=random(6)+1;
y:=random(6)+1;
t:=x+y;
k:=true;
begin
if (k=true) then
writeln('Oyuncu ',x,'+',y,'=',x+y,' atti!' );
if (t=7) then writeln('Kazandin:)') else
if (t=2) or (t=3) or (t=12) then writeln('kaybettin:(') else
k:=false;
end;
if (k=false) then
begin
writeln('Oyuncunun kazanacagi zar:',t);
m:=true;

while t<>s do
begin
if (m=true) then
p:=random(6)+1;
o:=random(6)+1;
s:=p+o;
writeln('Oyuncu ',p,'+',o,'=',o+p,' atti!' );
if (s=7) then writeln('Kaybettiniz:(') else
if (s=t) then writeln('Kazandiniz!');
if (s=7) then s:=t;
end;

end;

repeat until keypressed;
End.
BilX.Net

 

Related Topics

  Konu / Başlatan Yanıt Son İleti
0 Yanıt
2715 Gösterim
Son İleti Nisan 30, 2009, 12:24:50 ÖS
Gönderen: administrator
0 Yanıt
3730 Gösterim
Son İleti Nisan 30, 2009, 12:26:16 ÖS
Gönderen: administrator
0 Yanıt
2147 Gösterim
Son İleti Nisan 30, 2009, 12:28:47 ÖS
Gönderen: administrator
0 Yanıt
3159 Gösterim
Son İleti Nisan 30, 2009, 12:29:31 ÖS
Gönderen: administrator
0 Yanıt
3228 Gösterim
Son İleti Nisan 30, 2009, 12:32:47 ÖS
Gönderen: administrator