Pascal'da Adam Asmaca Oyunu

[ReKoBaa_61]

PHP- Kodu:



program¤adamasma;

type
sozcuk¤=¤string[10];

var

sozluk¤:¤file¤of¤sozcuk;
asozcuk¤:¤sozcuk;
tahminler,¤sozcuklerinharfleri¤:¤set¤of¤'A'..'Z';
rakamsozcukler¤:¤integer;
denemeler¤:¤integer;
dogrutahmin¤:¤boolean;

function¤donusturme(rakam¤:¤sozcuk)¤:¤integer;

var
netice¤:¤integer;
strindeks:¤integer;

begin
netice¤:=¤0;
for¤strindeks¤:=¤1¤to¤length(asozcuk)¤do
if¤rakam[strindeks]¤in¤['0'..'9']¤then
netice¤:=¤netice¤*¤10¤+¤ord(rakam[strindeks])¤-¤ord('0');
donusturme¤:=¤netice;
end;

procedure¤basla;

begin
clrscr;
assign(sozluk,'sozcukler.dat');
reset(sozluk);
read(sozluk,asozcuk);
rakamsozcukler¤:=¤donusturme(asozcuk);
randomize;
tahminler¤:=¤[];
sozcuklerinharfleri¤:=¤[];
denemeler¤:=¤0;
dogrutahmin¤:=¤false;
end;

procedure¤sozcuksec;

var
nthsozcuk,i¤:¤integer;

begin
nthsozcuk¤:=¤1¤+¤random(rakamsozcukler);
seek(sozluk,¤nthsozcuk);
read(sozluk,asozcuk);
for¤i¤:=¤1¤to¤length(asozcuk)¤do
if¤not¤(asozcuk[i]¤in¤sozcuklerinharfleri)¤then
sozcuklerinharfleri¤:=¤sozcuklerinharfleri¤+¤[asozcuk[i]];
end;

procedure¤tahminioku;

var
tahmin¤:¤char;
hatali,¤erase¤:¤boolean;

begin
hatali¤:=¤true;
erase¤:=¤false;
while¤hatali¤do
begin
gotoxy(1,10);
write('Sonraki¤tahmin?¤');
readln(tahmin);
if¤eof(con)¤then
halt
else
if¤tahmin¤in¤tahminler¤then
begin
gotoxy(1,12);
write('Daha¤once¤denenen¤karakter:¤''',tahmin,'''. ');
erase¤:=¤true;
end
else
begin
tahminler¤:=¤tahminler¤+¤[tahmin];
hatali¤:=¤false;
end;
end;
if¤erase¤then
begin
gotoxy(1,12);
write('¤':27);
end;
if¤not¤(tahmin¤in¤sozcuklerinharfleri)¤then
denemeler¤:=¤denemeler¤+¤1;
end;

procedure¤ekranayaz;

var
sozcukindeks¤:¤integer;
tahminindeks¤:¤char;
dogrusayisi¤:¤integer;

begin
dogrusayisi¤:=¤0;
gotoxy(10,5);
for¤sozcukindeks¤:=¤1¤to¤length(asozcuk)¤do
begin
if¤asozcuk[sozcukindeks]¤in¤tahminler¤then
begin
write(asozcuk[sozcukindeks]);
dogrusayisi¤:=¤dogrusayisi¤+¤1;
end
else
write('-');
write('¤');
end;
gotoxy(10,7);
for¤tahminindeks¤:=¤'A'¤to¤'Z'¤do
if¤tahminindeks¤in¤tahminler¤then
write(tahminindeks);
if¤dogrusayisi¤=¤length(asozcuk)¤then
dogrutahmin¤:=¤true;
end;

procedure¤ekranaadamias;

begin
case¤denemeler¤of
1¤:¤begin
gotoxy(30,5);
write('0');
end;
2¤:¤begin
gotoxy(29,6);
write('---');
end;
3¤:¤begin
gotoxy(28,7);
write('/');
gotoxy(27,8);
write('/');
end;
4¤:¤begin
gotoxy(32,7);
write('\');
gotoxy(33,8);
write('');
end;
5¤:¤begin
gotoxy(30,7);
write('I');
gotoxy(30,8);
write('I');
end;
6¤:¤begin
gotoxy(29,9);
write('/');
gotoxy(28,10);
write('/');
end;
7¤:¤begin
gotoxy(31,9);
write('');
gotoxy(32,10);
write('');
end;
end;
end;

procedure¤ekranayazdir;

begin
gotoxy(5,16);
if¤dogrutahmin¤then
begin
writeln('dogru¤tahmin!!');
end
else
begin
writeln('tahmin¤edemediniz¤dogru¤sozcuk¤:¤',asozcu k);
end;
end;


begin
basla;
sozcuksec;
ekranayaz;
while¤not¤dogrutahmin¤and¤(denemeler¤