Реферат: Нахождение пути от одного населённого пункта к другому

write (mas[i]); {Вывод пунктов меню}

end;

textattr:= 77; {Цвет активного пункта}

gotoxy (25,sl+3);

write (mas[sl]); {Вывод активного пункта}

c:=readkey; {Ввод символа с клавиатуры}

textattr:=7;

case c of {Определить код нажатой клавиши}

#13: case sl of {Клавиша Enter}

1: InputData;

2: OutputData;

3: Save;

4: Load;

5: FindPath;

end;

#0: begin {Анализ функциональных клавиш}

c:=readkey;

case c of

#80: if sl<KItems then sl:=sl+1 else sl:=1;

#72: if sl>1 then sl:=sl-1 else sl:=KItems;

end

end

end;

until ((c=#13) and (sl=6) or (c=#27));

textattr:=7;

clrscr;

end.

Модуль ph

unit ph;