Паскаль / курсовые / Курсовая Pascal Компьютерная фирма / ANALIZ

Program Kursovoy;
Uses crt,graph;
Const
norm=$17; {梥⠭Ґўл¤Ґ«Ґ­­®Ј® Їг­Єв }
sel=$6; {梥⠢뤥«Ґ­­®Ј® Їг­Єв  }
k=6;
Var
men:array[1 .. 2] of string[10];
punkt:integer; {­®¬Ґа ўҐ¤Ґ«Ґ­­®Ј® Їг­Єв }
h,ch:char; {ўўҐ¤Ґ­­л© бЁ¬ў®«}
FF,i,x,y:integer; {Є®®а¤Ё­ вл ЇҐаў®© бва®ЄЁ ¬Ґ­о}
{ЇҐаҐ¬Ґ­­ п д ©«  б Ў §®©}
{----------------------Їа®жҐ¤гал--------------------------------}
Procedure Analiz; {ўлў®¤ ¬Ґ­о ­  нЄа ­}
var
ff,i:integer;
begin
clrscr;
punkt:=1; x:=5; y:=5; textattr:=norm;
gotoxy(20,25); WRITELN('„‹џ ‚›•Ћ„Ђ ЌЂ†Њ€’… "Esc"');
for i:=1 to 2 do begin
gotoxy(x,y+i-1);
write ( men[i] );
end;
{textattr - ЇаҐ¤®ЇаҐ¤Ґ«Ґ­­ п ЇҐаҐ¬Ґ­­ п, ®вўҐз ой п §  梥в д®­  Ё бЁ¬ў®«®ў}
textattr:=sel;
gotoxy(x,y+punkt-1);
write( men[punkt] );
gotoxy(wherex-1,wherey);
textattr:=norm;
FF:=1;
end;
begin
Men[1]:=' Џђ€Ѓ›‹њ ';
men[2]:=' “Ѓ›’Љ€ ';
gotoxy(20,25); WRITELN('„‹џ ‚›•Ћ„Ђ ЌЂ†Њ€’… "Esc"');
Menutoscr;
REPEAT
ch:=readkey;
if ch<>chr(0) then case ch of
chr(80): begin
clrscr; gotoxy(20,25); WRITELN('„‹џ ‚›•Ћ„Ђ ЌЂ†Њ€’… "Esc"');
punkt:=1; x:=5; y:=5; textattr:=norm;
for i:=1 to 2 do begin
gotoxy(x,y+i-1);
write ( men[i] );
end;
textattr:=sel;
gotoxy(x,y+punkt);
write( men[2] );
gotoxy(wherex-1,wherey);
textattr:=norm;
FF:=2;
end; chr(72):Menutoscr;
chr(13): BEGIN
IF FF=1 THEN begin gotoxy(20,10); WRITE Џђ€Ѓ›‹њ ‡Ђ ЏђЋ…„€‰ Њ…‘џ– ');end;
IF FF=2 THEN begin gotoxy(20,10); WRITELN(' “Ѓ›’Љ€ ‡Ђ ЏђЋ…„€‰ Њ…‘џ– ');end;
END;
end;

until ch=chr(27) ;

End.