Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.02.2016, 23:50   #1
Малайка
 
Регистрация: 09.05.2015
Сообщений: 4
По умолчанию Алгоритм Дейкстры

Помогите пожалуйста
Как доделать,где ошибки

procedure TForm2.Button2Click(Sender: TObject);
var q:integer;//ââîä îòêóäГ*
//f,f1,f2,f3,f4,f5,f6,f7,f8:integer;//Г°Г*ññòîÿГ*ГЁГї
pr,sr:integer;//ïðèçГ*Г*ГЄ
k,l:integer;
min:integer;
begin
q:=strtoint(edit9.Text);
if (q>n) or (q<1) or (edit1.Text='') then
begin
q:=1;
Edit1.Text:='1';
end;

{v}
v[0,0]:=-100;
v[1,0]:=-1;
v[2,0]:=strtoint(edit1.Text);
v[3,0]:=-1;
v[4,0]:=strtoint(edit2.Text);;
v[5,0]:=-1;

v[0,1]:=-1;
v[1,1]:=-100;
v[2,1]:=strtoint(edit4.Text);
v[3,1]:=strtoint(edit8.Text);
v[4,1]:=-1;
v[5,1]:=-1;

v[0,2]:=-1;
v[1,2]:=strtoint(edit4.Text);
v[2,2]:=-100;
v[3,2]:=strtoint(edit5.Text);
v[4,2]:=-1;
v[5,2]:=-1;

v[0,3]:=-1;
v[1,3]:=-1;
v[2,3]:=-1;
v[3,3]:=-100;
v[4,3]:=-1;
v[5,3]:=strtoint(edit7.Text);

v[0,4]:=strtoint(edit2.Text);;
v[1,4]:=strtoint(edit3.Text);
v[2,4]:=-1;
v[3,4]:=-1;
v[4,4]:=-100;
v[5,4]:=-1;

v[0,5]:=-1;
v[1,5]:=-1;
v[2,5]:=-1;
v[3,5]:=-1;
v[4,5]:=strtoint(edit6.Text);
v[5,5]:=-100;

{s}
s[0,0]:=-1000;
s[1,0]:=-1;
s[2,0]:=0;
s[3,0]:=-1;
s[4,0]:=0;
s[5,0]:=-1;

s[0,1]:=-1;
s[1,1]:=-1000;
s[2,1]:=0;
s[3,1]:=0;
s[4,1]:=-1;
s[5,1]:=-1;

s[0,2]:=-1;
s[1,2]:=0;
s[2,2]:=-1000;
s[3,2]:=0;
s[4,2]:=-1;
s[5,2]:=-1;

s[0,3]:=-1;
s[1,3]:=-1;
s[2,3]:=-1;
s[3,3]:=-1000;
s[4,3]:=-1;
s[5,3]:=0;

s[0,4]:=0;
s[1,4]:=0;
s[2,4]:=-1;
s[3,4]:=-1;
s[4,4]:=-1000;
s[5,4]:=-1;

s[0,5]:=-1;
s[1,5]:=-1;
s[2,5]:=-1;
s[3,5]:=-1;
s[4,5]:=0;
s[5,5]:=-1000;

{p}
for i:=1 to n do
p[4,i]:=-1;

p[4,q]:=1;


for i:=1 to n do
begin
pr:=1;
k:=q;
sr:=0;
while pr=1 do
begin
for i:=1 to n do
if (s[k,i]<>-1000) and (s[k,i]<>-1) then
if p[i,3]<>1 then
if p[i,1]>sr+s[k,i] then
begin
p[i,1]:=sr+s[k,i];
p[i,2]:=k;
p[i,3]:=0;
end;
min:=0;
for i:=1 to n do
begin
if p[i,4]=0 then
if p[i,1]<min then
begin
min:=p[i,1];
l:=i;
end;
p[l,3]:=1;
sr:=sr+p[l,1];
k:=l;
end;
pr:=1;
for i:=1 to n do
begin
if p[i,3]<>1 then pr:=pr+1;
end;
end;
end;
end;
Вложения
Тип файла: rar Курсач.rar (256.5 Кб, 11 просмотров)
Малайка вне форума Ответить с цитированием
Старый 13.02.2016, 01:44   #2
Dvoishnik
Форумчанин
 
Регистрация: 12.02.2011
Сообщений: 808
По умолчанию

весь этот код 1 большая ошибка.
какое хоть задание было??
Терпение!Дежурный экстрасенс скоро свяжется с вами!
Dvoishnik вне форума Ответить с цитированием
Старый 13.02.2016, 18:47   #3
vlad1389
Форумчанин
 
Регистрация: 02.02.2016
Сообщений: 290
По умолчанию

Цитата:
Сообщение от Малайка Посмотреть сообщение
где ошибки
Видимо там, куда указывает компилятор. Хоть бы какую нибудь информацию по ошибкам предоставили.
vlad1389 вне форума Ответить с цитированием
Старый 13.02.2016, 20:18   #4
Малайка
 
Регистрация: 09.05.2015
Сообщений: 4
По умолчанию

Цитата:
Сообщение от Dvoishnik Посмотреть сообщение
весь этот код 1 большая ошибка.
какое хоть задание было??
Программная реализация алгоритма дейкстры

и как же наддо
Малайка вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Алгоритм Дейкстры (С++) DemonScorpion Помощь студентам 4 18.11.2015 18:41
Алгоритм Дейкстры C# NastyaShuvalova C# (си шарп) 4 18.11.2015 11:15
алгоритм Дейкстры Настюн Помощь студентам 3 14.10.2013 16:41
Алгоритм Дейкстры Opiym Общие вопросы .NET 1 29.05.2010 17:04
Алгоритм Дейкстры Dimon88 Помощь студентам 2 03.11.2007 17:13