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

putpixel(200+i,100,0);

end ;

cleardevice;

end ;

PROCEDURE main_menu;

begin

settextstyle(chrus,0,2);

draw_menu;

repeat

setcolor(0);

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

setcolor(7);

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

pressed:=readkey;

if pressed=#0 then

begin

pressed:=readkey;

move:=false;

if (pressed=#80) and (cursor=nline) then

begin

lastcursor:=nline; cursor:=1;

move:=true;

end ;

if (pressed=#72) and (cursor=1) then

begin

lastcursor:=1;

cursor:=nline;

move:=true;

end ;