|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.03.2011, 16:10 | #1 |
Пользователь
Регистрация: 15.01.2011
Сообщений: 15
|
Определяет ошыбку end expected
Ето программа обхода графа в глубину, граф представляется списком инцидентности. Определяет ошыбку end expected, но на самом деле количество end нужное.
вот сам текст програмы: program l; uses crt; Type List = ^S; S = record; inf : Byte; next : List; end; Var Gr : array[1..n] of List; Procedure Obhod(gr : Graph; k : Byte); Var g : Graph; l : List; Begin nov[k] := false; g := gr; While g^.inf <> k do g := g^.next; l := g^.smeg; While l <> nil do begin If nov[l^.inf] then Obhod(gr, l^.inf); l := l^.next; End; End; End. |
07.03.2011, 16:27 | #2 |
Форумчанин
Регистрация: 04.02.2011
Сообщений: 260
|
1. нужно заранее определять размерность массива
Код:
Код:
Код:
|
07.03.2011, 16:31 | #3 |
Пользователь
Регистрация: 01.03.2011
Сообщений: 19
|
|
07.03.2011, 16:45 | #4 |
Форумчанин
Регистрация: 04.02.2011
Сообщений: 260
|
|
07.03.2011, 16:56 | #5 |
Старожил
Регистрация: 03.01.2011
Сообщений: 2,508
|
Код:
Код:
Код:
Код:
Тогда ваш обход графа может и заработает )
"Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."
|
07.03.2011, 20:05 | #6 |
Старожил
Регистрация: 12.11.2010
Сообщений: 8,568
|
И ещё один советик:
Пишите код отформатированным, то есть, чтобы была очень хорошо видна вложенность и иерархия операторов. А то у вас всё в один столбец написано, выровнено по левому краю... вы сами даже запутались... Последний раз редактировалось Вадим Мошев; 07.03.2011 в 20:06. Причина: :) |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
найти ошыбку в програме | anurid | Помощь студентам | 3 | 13.05.2010 02:16 |
найти ошыбку в програме | anurid | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 27.04.2010 17:39 |
помогите найть ошыбку | toader | Общие вопросы C/C++ | 2 | 17.06.2009 12:04 |
expected END but : found | qqanton | Помощь студентам | 2 | 31.10.2008 17:45 |