Практические / prakt12 / 12,1

program menu;
uses crt;
var i,a: integer; code:char;
n:array[1..11] of string[20];
procedure vv;
begin
textbackground(9); textcolor(4);
gotoxy(30,10+i); write (n [i]);
textbackground(8); textcolor(13);
gotoxy(30,10+i+a); write(n[i+a]);
end;
begin
clrscr;
n[1]:='1 ';
n[2]:='2 ';
n[3]:='3 ';
n[4]:='4 ';
n[5]:='5 ';
n[6]:='6 ';
n[7]:='7 ';
n[8]:='8 ';
n[9]:='9 ';
n[10]:='10';
i:=1;a:=9;vv;
gotoxy(30,11);write(n[1]);
gotoxy(30,12);write(n[2]);
gotoxy(30,13);write(n[3]);
gotoxy(30,14);write(n[4]);
gotoxy(30,15);write(n[5]);
gotoxy(30,16);write(n[6]);
gotoxy(30,17);write(n[7]);
gotoxy(30,18);write(n[8]);
gotoxy(30,19);write(n[9]);
gotoxy(30,20);write(n[10]);
repeat
code:=readkey;
case code of
#38: if i=1 then begin i:=10;a:=-9;vv; end
else
begin i:=i-1;a:=1;vv; end;
#40: if i=10 then begin i:=1;a:=9;vv; end
else
begin i:=i+1;a:=-1;vv; end;
#13: begin gotoxy(30,7);

case i of
1:writeln(' Пункт 1 ');
2:writeln(' Пункт 2 ');
3:writeln(' Пункт 3 ');
4:writeln(' Пункт 4 ');
5:writeln(' Пункт 5 ');
6:writeln(' Пункт 6 ');
7:writeln(' Пункт 7 ');
8:writeln(' Пункт 8 ');
9:writeln(' Пункт 9 ');
10:writeln('Пункт 10');
end;end;
end;
until code=#27;
textbackground(0); textcolor(8);
end.