adam asmaca
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','iz marit','bilgisayar','saat', 'defter','kalemtiras','un','seker','makarna','pata tes','domates', 'patlican','meyve','lahana','kiraz','seftali','bal ik','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('MEHMET ACA'); hak:=6; randomize; i:=random(44)+1; bul:=kelime[i]; 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. {mehmet aca ytu bilg. muh. 1.sinif} |
çok eğlenceli yaa :)
|
iyi iyi ..ama yazması çok daha eğlenceli..
|
evet abi katılıyorum, gerçi daha yeni başladım yazmaya ve fazla zaman ayıramıyorum ama gerçekten eğlenceli:111:
|
tşkler gökhan hakkatende yazması daha eğlenceli:11::11:
|
Alıntı:
tşk yok burada ..bu bölüme girince tşk olayı yok ...yanı cebınıze bırakın tşk.. başka bölümlere kalsın yaaw..:72: hadi eyw. |
sayın Gökhan Aygün ya nasıl yazıyorsun bu programları hayret ediyorum
|
Eğer bahsettiğiln adam asmaca ise onu ben yazmadım ..yanı yazaman değil ama uğraşmadım ...artık uğraşınca yazıp yazamamadığı o zaman görürüz ..
ama şu bi gerçekki çalışan herkes yapar .. kolay gelsinn.. |
sadece adam asmaca değil tüm programlar adına konuştum :)
|
Pascal bi programlama dili. Kodları öğrenince ve mantığı kapınca yapabilirsin sanırım. Gerçi benim fazla bi bilgim yok ama Gökhan daha açıklayıcı anlatabilir sana.
|
Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 22:24 . |
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.