|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
25.05.2008, 14:55 | #1 |
Пользователь
Регистрация: 25.05.2008
Сообщений: 24
|
Поиск цикла длины 4.
Проблемка с программой. Теория Графов. Программка простенькая, но плохо знаю язык.
|
25.05.2008, 14:56 | #2 |
Пользователь
Регистрация: 25.05.2008
Сообщений: 24
|
program cycle_;
{$APPTYPE CONSOLE} uses SysUtils,Graphs; const MAX_VERTEX_COUNT=50; 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); var TmpV: integer; k: integer; begin k:=0; Used[v]:=true; for TmpV:=0 to Pred(VertexCount) do if M[TmpV,v] then begin if not Used[TmpV] then begin k:=k+1; Used[Tmpv]:=true; DSRec(TmpV); if k=4 then Used[TmpV]:=false; {k:=k-1; if not Used[TmpV] then Used[TmpV]:=false;} end; end; end; var VertexCount: Integer; { число вершин графа } F: TextFile; begin { загружаем граф из файла в формате матриц смежности } Graph_LoadFromMatrixFileName('INPUT .TXT', G, VertexCount); AssignFile(F, 'OUTPUT.TXT'); for i := 0 to VertexCount-1 do begin DSRec(i); if Used[i]=false then begin Rewrite(F); Writeln(F, i+1); end; CloseFile(F); end; end. |
25.05.2008, 14:57 | #3 |
Пользователь
Регистрация: 25.05.2008
Сообщений: 24
|
выдаёт ошибку Declaration expected but end of file found
|
25.05.2008, 15:00 | #4 |
Пользователь
Регистрация: 25.05.2008
Сообщений: 24
|
Вот Юнит с необходимыми процедурками)
|
25.05.2008, 15:03 | #5 |
Пользователь
Регистрация: 25.05.2008
Сообщений: 24
|
Варианты обхода графа)
|
25.05.2008, 15:05 | #6 |
Пользователь
Регистрация: 25.05.2008
Сообщений: 24
|
Примеры простых программ на Delphi)
|
25.05.2008, 15:26 | #7 |
Пользователь
Регистрация: 25.05.2008
Сообщений: 24
|
Помогите народ!!!!
|
25.05.2008, 15:31 | #8 |
Eclipse Foundation
Старожил
Регистрация: 19.09.2007
Сообщений: 2,604
|
Чувак, ты что ваще мозгами поплыл??? Зачем все ЭТО?!?!?!?! Тут люди знают как обходить граф. А примеры простых программ на Делфи им уж точно ни к чему!!!
ТЫ бы вместо этого мусора, нормально оформил бы пост. Показал бы где именно ошибка... |
25.05.2008, 15:33 | #9 |
Пользователь
Регистрация: 25.05.2008
Сообщений: 24
|
Отвечаю, Матвей. Спасибо, что откликнулся!!! КАК Я БЕЗУМНО РАД ВСТРЕТТЬ ЛЮДЕЙ КОТОРЫЕ УМЕЮТ ОБХОДИТЬ ГРАФ!!!
Ошибка прсто в самом конце поги... проходит компиляцию целиком... и вот у точки эта ошибка. |
25.05.2008, 15:34 | #10 |
Участник клуба
Регистрация: 26.10.2007
Сообщений: 1,244
|
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром... |
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поиск Эйлерова цикла в графе | Danion | Помощь студентам | 3 | 22.05.2010 18:47 |
Массив неопределённой длины | Влажимир | Общие вопросы Delphi | 2 | 01.04.2008 10:14 |
определение длины динамич. массива | Романнн | Общие вопросы Delphi | 3 | 11.03.2008 18:48 |
Сортировка двумерного массива произвольной длины. Visual Basic | Pekc | Помощь студентам | 0 | 25.11.2007 19:30 |
Оператор цикла с предусловием While. Оператор цикла с пост условием Repeat | McMilin | Помощь студентам | 7 | 11.11.2007 14:10 |