Поиск цикла длины 4.

[<Бананан>]

Он говорит нахна ты ставишь точку если ( ожидается) ; ожидается

[MaTBeu]

End где-то пропустил в программе.

[<Бананан>]

Да не пропускал, всё делал как нам препод давал. Если кому-то удасться по этому псевдо-образцу написать погу поиска цикла длины 4. Киньте , плиз!!! Просто завтра надо. Он без этой проги врядли зачёт поставит. Весь семестр делали лабы , строили графы, а тут он грузанул нас каждого индивидуальным заданием...

[MaTBeu]

Судя по твоей ошибке, то пропущен энд. Посмотри может в юните твоем где-то забыл...

[<Бананан>]

Ох ребят, как это часто бывает... смотрю, но не вижу... Если б увидел недостающий енд, не писал бы сюда... Может кто-то кинет текст в Делфи и увидит ошибку? А вообще этот алгоритм будет искать цикл длины 4???

[Карась]

Сообщение от <Бананан>

Ох ребят, как это часто бывает... смотрю, но не вижу... Если б увидел недостающий енд, не писал бы сюда... Может кто-то кинет текст в Делфи и увидит ошибку? А вообще этот алгоритм будет искать цикл длины 4???

Ну так поставь допиши перед последним ендом End;
Если ещё попросит то снова допиши.

[<Бананан>]

теперь пишет: ';' expected but '.' found
ставлю ещё один end; пишет , что BEGIN expected;

[<Бананан>]

Народ, просто я в Делфи почт ничего не шарю. Кинул, что получилось, чтоб народ знающий исправил ошибку(-и), и чтобы прога получилась, которая ищет циклы длины 4.

[puporev]

procedure Graph_LoadFromMatrixFile(var F:TextFile;var G: TGraphMatrix;
var VertexCount: integer);

procedure DeepSearch(G:TGraphMatrix;bv:intege r);
var Used: array of boolean;
i: integer;
M: array of array of boolean;

procedure DSRec(v:integer);

Вот это что за народное творчество? Где концы первых двух процедур?

[<Бананан>]

Это у меня в тетраде так написано... а как их закончить, тут просто этих бесконечностях есть какой-то смысл, которого я не понимаю....