меню в паскаль

[t0x]

как сделать меню в паскале через graph, чтобы управлять стрелками вверх вниз?

[Deniska_777]

управлять кем ?

[Deniska_777]

вот тебе моё меню.(очень сырое)
в процедуре можно описывать другие процедуры.

uses crt;
var
num : integer;

procedure first;
begin
textbackground(red);
textcolor(white);
clrscr;
gotoxy(20,10);
writeln('pervaya procedura');
readkey;
end;
procedure second;
begin
textbackground(black);
textcolor(blue);
clrscr;
gotoxy(20,10);
writeln('Vtoraya procedura');
readkey;
end;
procedure conec;
begin
textbackground(yellow);
textcolor(white);
clrscr;
gotoxy(20,10);
writeln('poka, konec igri');
readkey;
end;

function menu : integer;
const ss : array [1..3] of string = ('1. pervaya procedura' ,'2.Vtoraya procedura' ,'3.Vixod');
var
m : integer;
cf,cb : byte;
x,y : integer;
c : char;
procedure out(s : string; x,y : integer; cf,cb : integer);
begin
textcolor(cf);
textbackground(cb);
gotoxy(x,y);
write(s);
end;
begin
cf :=white;
cb :=green;
x :=10;
textcolor(cf);
textbackground(cb);
clrscr;
m :=0;
for y := 11 to 13 do begin
gotoxy(x,y);
out(ss[y-10] ,x,y,cf,cb);
end;
y :=13;
out(ss[y-10] ,x,y,cb,cf);
repeat
c :=readkey;{ write (c,' ', ord(c)); readln;}
if (c>=' 1' ) and (c <=' 3' ) then begin
out(ss[y-10] ,x,y,cb,cf);
y :=10 + ord(c) - ord('0');
out(ss[y-10] ,x,y,cb,cf);
end
else if ord(c) = 0 then begin
c :=readkey;
out(ss[y-10] ,x,y,cf,cb);
case ord(c) of
72 : begin
if y=11 then y:=13 else y:=y-1;
end;
77 : ;{ rigth}
80 :begin
if y=13 then y:=11 else y:=y+1;
end;
75 : ;{left}
end; {case}
out(ss[y-10] ,x,y,cb,cf);
end;
if ord(c) = 13 then m:=y-10;
until ( m > 0) and (m <= 3);
menu :=m;
end;
begin
repeat
num := menu;
case num of
1: first;
2: second;
3: conec;
end;
until num = 3;
end.

[t0x]

ну всмысле не управлять, а выбирать. Спасибо за программу

[Grag]

Сообщение от t0x

как сделать меню в паскале через graph, чтобы управлять стрелками вверх вниз?

и вот это от Deniska_777

uses crt;

и все...

[t0x]

да, чё то deniska_777 не то скинул

[Летучий_СкилетиК]

да, чё то deniska_777 не то скинул

каков воврос таков ответ!

ну всмысле не управлять, а выбирать

что выбирать ? в каких целях вы хотите использовать стрелки?

[Deniska_777]

t0x

ты просил меню я тебе и скинул, в чём проблем ?

[t0x]

да не меню то работает хорошо, просто надо было сделать через graph

[Deniska_777]

ну так включи графику .
и рисуй
не сложно же.