SERGE_BLIZNUK
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
uses crt;
const
norm=$17;
sel=$70;
MenuCount=3;
var
menu:array[1..MenuCount] of string;
punkt:integer;
x,z:integer;
f:text;
p,r:integer;
ch:char;
y,d,s,q,g:string;
{============================================================================}
procedure menutoscr;
var i:integer;
begin
clrscr;
for i:=1 to MenuCount do begin
gotoxy(x,z+i-1);
write(menu[i]);
end;
TextAttr:=sel;
gotoxy(x,z+punkt-1);
write(menu[punkt]);
TextAttr:=norm;
end;
{============================================================================}
procedure proverka;
var s:string;
begin
read(f,q);
if q=s then begin
p:=length(q);
delete(q,1,p);
end;
end;
{============================================================================}
procedure vashxod;
begin
clrscr;
writeln;
writeln('vvedite gorod');
read(s);
p:=length(s);
d:=copy(s,p,1);
clrscr;
repeat
proverka;
readln(f,q);
g:=copy(q,1,1);
if d=g then begin
writeln(s,' - ',q);
p:=length(q);
delete(q,1,p);
end;
until eof(f);
readln;
end;
{=========================================================================}
procedure xodcompa;
begin
clrscr;
writeln;
readln(f,q);
writeln(q);
writeln('vvedite gorod');
read(s);
writeln(s,' - ',q);
p:=length(s);
d:=copy(s,p,1);
repeat
readln(f,q);
g:=copy(q,1,1);
if d=g then begin
writeln(s,' - ',q);
end;
until eof(f);
readln;
end;
{============================================================================}
procedure igra;
var
a:integer;
begin
a:=random(2);
if a=0 then vashxod;
if a=1 then xodcompa;
end;
{===========osnova===========================================================}
begin
clrscr;
assign(f,'c:\goroda.txt');
reset(f);
clrscr;
menu[1]:='Igra';
menu[2]:='Pomosh';
menu[3]:='Vixod';
punkt:=1;
x:=35;
z:=12;
TextAttr:=norm;
MenuToScr;
repeat
ch:=Readkey;
if ch=#0 then ch:=readkey;
case ch of
#80:If punkt<MenuCount then
punkt:=punkt+1;
#72:If punkt>1 then
punkt:=punkt-1;
end;
if ch=#13 then
case punkt of
1:igra;
2:ch:=chr(27);
3:ch:=chr(27);
end;
menutoscr;
Until ch=chr(27);
end.
|
|
