Разное - Доработка программы: добавить действия по пунктам меню - PascalABC.NET

[AndriyBig]

плиз, доделайте программу.

У меня есть меню и мне надо вставить туда программу в пункт «Нарисовать астроиду", и в пункт "Справка" написать текст

Код меню:

uses GraphABC;

const

x0 = 150;

y0 = 200;

w = 100;

step = 120;

n = 3;

kv1=0;

kv2=1;

kv3=2;

var f:integer;

Q: array[1..3] of string= ('Нарисовать астроиду','Справка','Выход');

procedure menu(f: integer);

var i:integer;

begin

for i:=1 to 3 do

begin

setfontsize(10);

if f=i then setfontcolor(clred) else setfontcolor(clgreen);

textout(200,100+i*30,Q);

end;

end;

Procedure choose;

begin

case f of

1: begin; textout (1,1,'да');end;

3: halt;

end;

end;

procedure up;

begin if f=1 then f:=3 else f:=f-1; clearwindow; menu(f); end;

procedure down ;

begin if f=3 then f:=1 else f:=f+1; clearwindow; menu(f); end;

procedure KeyDown(Key: integer);

begin

case Key of

VK_Up: up;

VK_Down: down;

VK_Enter: begin; choose;end;

end;

end;

begin

f:=1;

menu(f);

OnKeyDown := KeyDown;

end.

Код программы:

uses

graphabc;

var

r, xc, yc, x1, y1: integer;

x, y, t: real;

s: string;



begin

repeat

write('Vvedite radius [50..200] r=');

readln(r);

until r in [50..200];

SetWindowSize(400, 400);

xc := WindowWidth div 2;

yc := WindowHeight div 2;

line(0, yc, 2 * xc, yc);

line(xc, 0, xc, 2 * yc);

t := 0;

while t

[Iska]

Цитата AndriyBig:



мне надо

Разное - Доработка программы: добавить действия по пунктам меню - PascalABC.NET

Что именно вызывает у Вас затруднение?