VPF::Транспортная задача - Форум программистов

neocon

Дата 20.3.2010, 16:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 18.3.2010

Репутация: нет
Всего: нет

Пишу транспортную задачу методом северо-западного угла.Алгоритм вроде написал правильно, но он не работаетю. Не могли бы вы посмотреть и сказать в каком месте я не прав.

Код


procedure TForm1.Button4Click(Sender: TObject);
var i,j,sum:integer;
need: array[1..10] of integer;
 fund: array[1..10] of integer;
 mas: array[1..10,1..10] of integer;
 koef: array[1..10,1..10] of integer;
begin
if (n8.Checked=true) or (n9.Checked=True) then begin
if n10.Checked=true then
begin
  sum:=0; ;
 i:=1;
 j:=1;
repeat
   koef[i,j]:=strtoint(stringgrid1.Cells[i,j]);
   need[j]:=strtoint(stringgrid3.Cells[0,j]);
   fund[i]:=strtoint(stringgrid2.Cells[i,0]);
   inc(i);inc(j);
until (i<=p_otpr) and (j<=p_dost);
for i:=1 to p_otpr  do
For j:=1 to p_dost do begin
if (fund[i]<>0) and (need[j]<>0) then begin
if fund[i]>=need[j] then  begin
mas[i,j]:=need[j];
fund[i]:=fund[i]-need[j];
need[j]:=0;
end
else begin
mas[i,j]:=fund[i];
need[j]:=need[j]-fund[i];
fund[i]:=0;
end
end
else mas[i,j]:=0;
end;
for i:=1 to p_otpr do
for j:=1 to p_dost do  begin
TEdit(FindComponent('L'+IntToStr(i)+IntToStr(j))).Text:=IntToStr(mas[i,j]);
sum:=sum+mas[i,j]*koef[i,j];
end;
label7.Caption:=''+inttostr(sum);
end;
end

Это сообщение отредактировал(а) neocon - 20.3.2010, 16:25

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »