• Yeni mesajlar

Menü

Giriş yap

---

Navigasyon

Uygulamayı yükle

Yükle

Daha fazla seçenek

Gündüz modu

Bize ulaşın

Kapat Menü

• Programlama
• Diğer Programlama Dilleri ve Databaseler

Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz..
Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.

Pascal ZAR OYUNU

• Konbuyu başlatan CorsaiR
• Başlangıç tarihi 11 Ağu 2007

CorsaiR

Emektar

27 Ara 2005

1,228

18

Çekirdekten

• 11 Ağu 2007

• #1

ZAR OYUNU bilgisayara karşı zar oyunu oynuyorsunuz.Tabiki parasına
yanlız kodların kopyalarken notdefteri ile yapıştırınuses crt;
var
kpara,opara,gpara:longint;
y,x,h,j,k1,k2,o,u,i:byte;
procedure at;
begin
repeat
clrscr;
x:=random(6)+1;
y:=random(6)+1;
case x of
1:begin
h:=1;
writeln('ÉÍÍÍÍÍÍÍÍÍ»');
writeln('º º');
writeln('º 1 º');
writeln('º º');
writeln('ÈÍÍÍÍÍÍÍÍͼ');
end;
2:begin
h:=2;
writeln('ÉÍÍÍÍÍÍÍÍÍ»');
writeln('º º');
writeln('º 2 2 º');
writeln('º º');
writeln('ÈÍÍÍÍÍÍÍÍͼ');
end;
3:begin
h:=3;
writeln('ÉÍÍÍÍÍÍÍÍÍ»');
writeln('º º');
writeln('º 3 3 3 º');
writeln('º º');
writeln('ÈÍÍÍÍÍÍÍÍͼ');
end;
4:begin
h:=4;
writeln('ÉÍÍÍÍÍÍÍÍÍ»');
writeln('º 4 4 º');
writeln('º º');
writeln('º 4 4 º');
writeln('ÈÍÍÍÍÍÍÍÍͼ');
end;
5:begin
h:=5;
writeln('ÉÍÍÍÍÍÍÍÍÍ»');
writeln('º 5 5 º');
writeln('º 5 º');
writeln('º 5 5 º');
writeln('ÈÍÍÍÍÍÍÍÍͼ');
end;
6:begin
h:=6;
writeln('ÉÍÍÍÍÍÍÍÍÍ»');
writeln('º 6 6 6 º');
writeln('º º');
writeln('º 6 6 6 º');
writeln('ÈÍÍÍÍÍÍÍÍͼ');
end;
end;
writeln(' OYUNCU');;
case y of
1:begin
j:=1;
writeln('ÉÍÍÍÍÍÍÍÍÍ»');
writeln('º º');
writeln('º 1 º');
writeln('º º');
writeln('ÈÍÍÍÍÍÍÍÍͼ');
end;
2:begin
j:=2;
writeln('ÉÍÍÍÍÍÍÍÍÍ»');
writeln('º º');
writeln('º 2 2 º');
writeln('º º');
writeln('ÈÍÍÍÍÍÍÍÍͼ');
end;
3:begin
j:=3;
writeln('ÉÍÍÍÍÍÍÍÍÍ»');
writeln('º º');
writeln('º 3 3 3 º');
writeln('º º');
writeln('ÈÍÍÍÍÍÍÍÍͼ');
end;
4:begin
j:=4;
writeln('ÉÍÍÍÍÍÍÍÍÍ»');
writeln('º 4 4 º');
writeln('º º');
writeln('º 4 4 º');
writeln('ÈÍÍÍÍÍÍÍÍͼ');
end;
5:begin
j:=5;
writeln('ÉÍÍÍÍÍÍÍÍÍ»');
writeln('º 5 5 º');
writeln('º 5 º');
writeln('º 5 5 º');
writeln('ÈÍÍÍÍÍÍÍÍͼ');
end;
6:begin
j:=6;
writeln('ÉÍÍÍÍÍÍÍÍÍ»');
writeln('º 6 6 6 º');
writeln('º º');
writeln('º 6 6 6 º');
writeln('ÈÍÍÍÍÍÍÍÍͼ');
end;
end;
delay(200);
until keypressed;
k1:=h+j;
writeln('TOPLAM:=>',k1);
readln;
end;
procedure rakip;
begin
repeat
clrscr;
i:=i+1;
x:=random(6)+1;
y:=random(6)+1;
case x of
1:begin
u:=1;
writeln('ÉÍÍÍÍÍÍÍÍÍ»');
writeln('º º');
writeln('º 1 º');
writeln('º º');
writeln('ÈÍÍÍÍÍÍÍÍͼ');
end;
2:begin
u:=2;
writeln('ÉÍÍÍÍÍÍÍÍÍ»');
writeln('º º');
writeln('º 2 2 º');
writeln('º º');
writeln('ÈÍÍÍÍÍÍÍÍͼ');
end;
6:begin
u:=6;
writeln('ÉÍÍÍÍÍÍÍÍÍ»');
writeln('º 6 6 6 º');
writeln('º º');
writeln('º 6 6 6 º');
writeln('ÈÍÍÍÍÍÍÍÍͼ');
end;
3:begin
u:=3;
writeln('ÉÍÍÍÍÍÍÍÍÍ»');
writeln('º º');
writeln('º 3 3 3 º');
writeln('º º');
writeln('ÈÍÍÍÍÍÍÍÍͼ');
end;
4:begin
u:=4;
writeln('ÉÍÍÍÍÍÍÍÍÍ»');
writeln('º 4 4 º');
writeln('º º');
writeln('º 4 4 º');
writeln('ÈÍÍÍÍÍÍÍÍͼ');
end;
5:begin
u:=5;
writeln('ÉÍÍÍÍÍÍÍÍÍ»');
writeln('º 5 5 º');
writeln('º 5 º');
writeln('º 5 5 º');
writeln('ÈÍÍÍÍÍÍÍÍͼ');
end;
end;
writeln(' COMPUTER');
case y of
1:begin
o:=1;
writeln('ÉÍÍÍÍÍÍÍÍÍ»');
writeln('º º');
writeln('º 1 º');
writeln('º º');
writeln('ÈÍÍÍÍÍÍÍÍͼ');
end;
2:begin
o:=2;
writeln('ÉÍÍÍÍÍÍÍÍÍ»');
writeln('º º');
writeln('º 2 2 º');
writeln('º º');
writeln('ÈÍÍÍÍÍÍÍÍͼ');
end;
3:begin
o:=3;
writeln('ÉÍÍÍÍÍÍÍÍÍ»');
writeln('º º');
writeln('º 3 3 3 º');
writeln('º º');
writeln('ÈÍÍÍÍÍÍÍÍͼ');
end;
4:begin
o:=4;
writeln('ÉÍÍÍÍÍÍÍÍÍ»');
writeln('º 4 4 º');
writeln('º º');
writeln('º 4 4 º');
writeln('ÈÍÍÍÍÍÍÍÍͼ');
end;
5:begin
o:=5;
writeln('ÉÍÍÍÍÍÍÍÍÍ»');
writeln('º 5 5 º');
writeln('º 5 º');
writeln('º 5 5 º');
writeln('ÈÍÍÍÍÍÍÍÍͼ');
end;
6:begin
o:=6;
writeln('ÉÍÍÍÍÍÍÍÍÍ»');
writeln('º 6 6 6 º');
writeln('º º');
writeln('º 6 6 6 º');
writeln('ÈÍÍÍÍÍÍÍÍͼ');
end;
end;
delay(200);
until i=20;
k2:=u+o;
writeln('RAKIP TOPLAM:=>',k2);
readln;
end;
begin
randomize;
kpara:=1000;
repeat
repeat
clrscr;
writeln('PARANIZ:=>',kpara);
write('BAHIS MIKTARI BELIRLE:=>');readln(opara);
until kpara>=opara;
kpara:=kpara-opara;
at;
readln;
clrscr;
rakip;
if kpara<=0 then
begin
writeln('KAYIP ETTINIZ');
readln;
exit;
end;
if k1>k2 then
begin
writeln(' KAZANDINIZ ');
gpara:=opara*2;
kpara:=kpara+gpara;
end
else
writeln('((KAYIP ETTINIZ((');
readln;
until opara=-13;
end.

 

L

LuiLui

Katılımcı Üye

26 Ağu 2007

345

0

• 30 Ağu 2007

• #2

hehehe iyiymiş... klavyene sağlık...

 

Cevap yazmak için giriş yap yada kayıt ol.

Paylaş:

Facebook Twitter Telegram Reddit E-posta Paylaş Link

• Programlama
• Diğer Programlama Dilleri ve Databaseler

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.