Программная реализация алгоритмов поиска в глубину и ширину в неориентированных графах

goto y;

end;

'N': Vvod;

'V': halt;

end;

end;

end;

begin

clrscr;

x: Vvod;

repeat

write ('S – poisk v shirinu, G – poisk v glubinu, ');

writeln (' N – izmenenie matrici, V – vixod iz programmi');

repeat

q:=ReadKey;

case upcase(q) of

'N': goto x;

'S': begin

Ochistka;

VShiriny;

end;

'G': begin

Ochistka;

VGlu

biny;

end;

'V': halt;

end;

until (upcase(q)='G') or (upcase(q)='S');

vtorichnaja;

until upcase(q)='V';

end.

Размещено на Allbest.ru

 Скачать реферат