Реферат: Решение задачи о кратчайшем маршруте

for j:=1 to nline*30+10 do

begin

setcolor(8);

line(210,110+j,470,110+j);

setcolor(4);

line(200,100+j,460,100+j);

end ;

setcolor(0);

for j:=1 to nline do

outtextxy(220,110+(j-1)*25,menu[menulevel,j]);

end ;

PROCEDURE redraw_menu;

begin

for j:=nline*30+10 downto 1 do

begin

setcolor(0);

line(210,110+j,470,110+j);

line(200,100+j,210,100+j);

setcolor(8);

if j<10 then

begin

setcolor(0);

line(210,100+j,470,100+j);

end

else

line(210,100+j,470,100+j);

end ;

for i:=260 downto 0 do

begin