Eveet Turbo Pascalın Eğlenceli yanları.. Sırada Adam Asmaca oyunu kodları var. program adamas; uses crt; const kelime:array of string= ; 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 ; gotoxy(25,5); writeln ; hak:=6; randomize; i:=random(44)+1; bul:=kelime; k:=length ; fillchar(s, k+1," "); s :=chr ; gotoxy(5,6);writeln ; GOTOXY(5,7);writeln ; gotoxy(40,6); writeln ; gotoxy(40,7); writeln ; gotoxy(5,8); write ; repeat gotoxy( 40,8); writeln ; m:=s; t:=readkey; for j:=1to length do begin if bul =t then begin delete(m, j,1); insert ; end; end; if m=s then hak:=hak-1; s:=m; gotoxy(5,8); write ; until(hak=0) or ; gotoxy(20,15); if (hak=0) then writeln else writeln ; gotoxy(30,20);writeln("bir daha oynamak istermisiniz? "); tus:=upcase ; 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. - Bilginin Adresinden TurkCom. Org -