Forum
Aktif konular
Üyeler
Kurallar
Arama
Adam Asmaca Oyunu Adam Asmaca Oyunu
-
Eveet Turbo Pascalın Eğlenceli yanları..Sırada Adam Asmaca oyunu kodları var.
program adamas;
uses crt;
const
kelime:array[1..44]of string=("mehmet","ahmet","yusuf","yasin","suleyman","riza","suat","serhat","cemil","muharrem",
"televizyon","radyo","otobus","feribot","muhendis","fabrika","kamyon","sinek","telefon","sigara","izmarit","bilgisayar","saat",
"defter","kalemtiras","un","seker","makarna","patates","domates",
"patlican","meyve","lahana","kiraz","seftali","balik","kasaba","intihar","mahkum","hakim","avukat","tekstil","sekerpare",
"dut");
var
k,i,j,hak:integer;
bul:string;
m,s:string;
t,tus:char;
begin
repeat
clrscr;
textbackground(1);
textcolor(14);
gotoxy(1,3);
writeln(":::::ADAM ASMACA:::::: hadi bakalim.....KOLAY GELSIN.");
gotoxy(25,5);
writeln("Hakan AKSAN");
hak:=6;
randomize;
i:=random(44)+1;
bul:=kelime;
k:=length(bul);
fillchar(s,k+1,"*");
s[0]:=chr(k);
gotoxy(5,6);writeln("bulunacak kelime"); GOTOXY(5,7);writeln("__________");
gotoxy(40,6); writeln("hakkiniz"); gotoxy(40,7); writeln("______");
gotoxy(5,8); write(s);
repeat
gotoxy( 40,8); writeln(hak);
m:=s;
t:=readkey;
for j:=1to length (bul) do
begin
if bul[j]=t then
begin
delete(m,j,1);
insert(t,m,j);
end;
end;
if m=s then hak:=hak-1;
s:=m;
gotoxy(5,8); write(s);
until(hak=0) or (s=bul);
gotoxy(20,15);
if (hak=0) then writeln("kaybettiniz kelime"," ",bul," ","olacakti")
else writeln("tebrikler. bildiniz.");
gotoxy(30,20);writeln("bir daha oynamak istermisiniz? (E/H)");
tus:=upcase(readkey);
until tus="H";
end.
Bu programda "kelime" dizisinde kullanıcıya sorulacak kelimeler mevcut.Arasından birtane seçilip soruluyor.
Kolay Gelsin...
iyi Eğlenceler.
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Toplam Hit: 2592 Toplam Mesaj: 1
Cevapla