Hafta içi her gün 20:00 - 21:00 arası "DJ ÖZEL" ile "Keyf-i Müzik" programını dinlemek için TIKLAYINIZ

Hafta sonu 15:00 - 16:00 arası "DJ EMRE" ile "Müzik Ekspres" programını dinlemek için TIKLAYINIZ

Canlı yayını dinlemek için bilgisayarınızda WINAMP kurulu olmalıdır.WINAMP indirmek için TIKLAYINIZ
forumENA - Knight Online , KOXP

 

XOX oyunu...

Pascal içinde XOX oyunu... konusu , Kusursuz bir XOX oyunu Umarım işinize yarar kolay gelsin! program XOX_oyunu; uses crt; var k: array [1..3,1..3] of char; sa,su,kut: array [-9..9] of integer; oyun,secxox:char; sayac,kutu:byte; d,e,f:byte; oyunbitti:boolean; begin repeat ...







Geri Dön   forumENA - Knight Online , KOXP > Program , Programlama, İnternet > Programlama > Pascal

XOX oyunu... XOX oyunu...

KAYIT OL Yönetim Takımı Üye Listesi Tüm konuları okunmuş kabul et

Cevapla

 

Konu Yönetim Seçenekleri Konu Gösterim Seçenekleri
Eski 23-04-2007, 18:47   #1 (permalink)
Asistan
 
r@nger - ait Avatar
 
Üyelik Tarihi: 26-10-2006
Mesajlar: 1,469
Rep Gücü: 62
Rep Puanı: 2281
r@nger Rütbe: +8r@nger Rütbe: +8r@nger Rütbe: +8r@nger Rütbe: +8r@nger Rütbe: +8r@nger Rütbe: +8r@nger Rütbe: +8r@nger Rütbe: +8r@nger Rütbe: +8r@nger Rütbe: +8r@nger Rütbe: +8
Tanımlı XOX oyunu...

Kusursuz bir XOX oyunu Umarım işinize yarar kolay gelsin!


program XOX_oyunu;
uses crt;
var
k: array [1..3,1..3] of char;
sa,su,kut: array [-9..9] of integer;
oyun,secxox:char;
sayac,kutu:byte;
d,e,f:byte;
oyunbitti:boolean;
begin
repeat
clrscr;

for e:=1 to 3 do
begin
for f:=1 to 3 do
k[e,f]:=#0;
end;
for e:=1 to 9 do
kut[e]:=0;

oyunbitti:=FALSE;
sayac:=1;
for d:=1 to 10 do
begin
clrscr;
writeln;
write(' ');
writeln(k[1,1],' | ',k[1,2],' | ',k[1,3]);
write(' ');
writeln('--+---+--');
write(' ');
writeln(k[2,1],' | ',k[2,2],' | ',k[2,3]);
write(' ');
writeln('--+---+--');
write(' ');
writeln(k[3,1],' | ',k[3,2],' | ',k[3,3]);
writeln;
writeln;
if sayac=10 then break;
if oyunbitti=TRUE then break;

if sayac mod 2=1 then

begin

oyun:='X';

repeat
write('X --> satir? -- sutun? '); readln(sa[d],su[d]);
kutu:=su[d]+(sa[d]-1)*3;
kut[d]:=kutu;
until (kut[d] in [1..9]) and (kut[d]<>kut[d-1]) and (kut[d]<>kut[d-2])
and (kut[d]<>kut[d-3]) and (kut[d]<>kut[d-4]) and (kut[d]<>kut[d-5])
and (kut[d]<>kut[d-6]) and (kut[d]<>kut[d-7]) and (kut[d]<>kut[d-8]);


case kutu of
1 : k[1,1]:=oyun;
2 : k[1,2]:=oyun;
3 : k[1,3]:=oyun;
4 : k[2,1]:=oyun;
5 : k[2,2]:=oyun;
6 : k[2,3]:=oyun;
7 : k[3,1]:=oyun;
8 : k[3,2]:=oyun;
9 : k[3,3]:=oyun;
end;
end;

if sayac mod 2=0 then
begin
oyun:='O';
repeat
write('O --> Satir? -- Sutun? '); readln(sa[d],su[d]);
kutu:=su[d]+(sa[d]-1)*3;
kut[d]:=kutu;
until (kut[d] in [1..9]) and (kut[d]<>kut[d-1]) and (kut[d]<>kut[d-2])
and (kut[d]<>kut[d-3]) and (kut[d]<>kut[d-4]) and (kut[d]<>kut[d-5])
and (kut[d]<>kut[d-6]) and (kut[d]<>kut[d-7]) and (kut[d]<>kut[d-8]);


case kutu of
1 : k[1,1]:=oyun;
2 : k[1,2]:=oyun;
3 : k[1,3]:=oyun;
4 : k[2,1]:=oyun;
5 : k[2,2]:=oyun;
6 : k[2,3]:=oyun;
7 : k[3,1]:=oyun;
8 : k[3,2]:=oyun;
9 : k[3,3]:=oyun;
end;
end;
sayac:=sayac+1;

if sayac>=5 then
begin
for e:=1 to 3 do
if ((k[e,1]='X') and (k[e,2]='X') and (k[e,3]='X')) or
((k[e,1]='O') and (k[e,2]='O') and (k[e,3]='O')) then
begin
oyunbitti:=TRUE; break;
end;

for e:=1 to 3 do
if ((k[1,e]='X') and (k[2,e]='X') and (k[3,e]='X')) or
((k[1,e]='O') and (k[2,e]='O') and (k[3,e]='O')) then
begin
oyunbitti:=TRUE; break;
end;

if ((k[1,3]='X') and (k[2,2]='X') and (k[3,1]='X')) or
((k[1,3]='O') and (k[2,2]='O') and (k[3,1]='O')) then
begin
oyunbitti:=TRUE;
end;

if ((k[1,1]='X') and (k[2,2]='X') and (k[3,3]='X')) or
((k[1,1]='O') and (k[2,2]='O') and (k[3,3]='O')) then
begin
oyunbitti:=TRUE;
end;

end;


end;

if oyunbitti=TRUE then
begin
writeln;
write(' ');
writeln('...TEBRIKLER!!! Oyunu "',oyun,'" kazandi...');
writeln;
end;

if oyunbitti=FALSE then
begin
writeln;
write(' ');
writeln('...Malesef oyunu kimse kazanamadi......');
writeln;
end;

repeat
write('Tekrar oynamak istermisiniz? '); readln(secxox);
until (secxox='e') or (secxox='E') or (secxox='h') or (secxox='H');
until (secxox='h') or (secxox='H');


end.

__________________
Geri döndüm
r@nger isimli üyemiz çevrimdışıdır. (Offline)   Alıntı yaparak aynı kişiye cevapla
Eski 09-06-2008, 20:51   #2 (permalink)
EN Ağır
 
мя ∂αηgєяσυѕ - ait Avatar
 
Üyelik Tarihi: 09-06-2008
Yer: Bizemi Gelcen
Mesajlar: 60
Rep Gücü: 8
Rep Puanı: 293
мя ∂αηgєяσυѕ Rütbe: +6мя ∂αηgєяσυѕ Rütbe: +6мя ∂αηgєяσυѕ Rütbe: +6
мя ∂αηgєяσυѕ - MSN üzerinden mesaj gönder
Tanımlı Cevap: XOX oyunu...

saol............
мя ∂αηgєяσυѕ isimli üyemiz çevrimdışıdır. (Offline)   Alıntı yaparak aynı kişiye cevapla
Cevapla

« Önceki Konu | Sonraki Konu »
Konu Yönetim Seçenekleri
Konu Gösterim Seçenekleri
Normal şekilde göster Normal şekilde göster

Yetkileriniz
Yeni konu açamazsınız
You may not post replies
Mesajınıza dosya ekleyemezsiniz
Mesaj düzenleme yapamazsın
BB code is Açık
[IMG] Kodları Açık
HTML-Kodları Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı






En çok aranan 50 sonuç
Arama bulutu

1299 1299 data 1299 duvar hack 1299 full client 1299 gm komutları 1299 is koxp 1299 koxp 1299 wall hack 1709 seri cs andream server ardream server bedava d smart bifrost patch clan simgeleri d smart kaç para dragonfable dragonfable hileleri dönem ödevi kapağı forum ena forumena genco ko gerçek tecavüz gm komutları gta san andreas multiplayer hack shield hackshield hackshield hatası ko private server kohack mage server myko hack myko koxp mykohack noktako oto kutu toplama prokoxp pvp server ip leri pwp pwp serverlar seri cs seri cs 1709 seri skill special ko speed hack tecavüz videoları tecavüz videosu tecavüzvideo walkry patch youtubeye giriş zeusko


forumENA sistem saati: 11:19

İletişim - forumENA - Knight Online , KOXP - Arşiv - forumENA Kuralları - Yukarı Git

Powered by vBulletin Version 3.7.4
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
Content Relevant URLs by vBSEO 3.2.0
-------------------------------------------------------------------------
Türkçeleştirme izmirlinihat tarafından yapılmaktadır
forumENA sitesi ENAhosting© tarafından barındırılmaktadır