Транспортная задача(метод min стоимости)

[Астасья]

Решить транспортную задачу методом min стоимости. Что не так???

program transport;  
uses crt;
var
i,j,n,m:integer;
sum,sum1,z1,z2,min,v:real;
c:array[1..50,1..50] of integer;
mas:array[1..50,1..50] of integer;
a:array[1..50] of integer;
b:array[1..50] of integer;



Procedure Vvod1;
Begin
write('Введите количество поставщиков= ');readln(n);
write('Введите количество потребителей= ');readln(m)
End;

Procedure Vvod2;
begin
 for i:=1 to n do
  begin
  write('Введите мощность ',i,' поставщика =');
  readln(a[i]);      //массив запасов
  end;
    for i:=1 to m do
     begin
     write('Введите спрос ',i,' потребителя =');
     readln(b[i]); //массив потребностей(спроса)
     end;
writeln;
end;

Procedure Stoimost;
begin
{ for i:=1 to n do
 for j:=1 to m do
    begin
    c[i,j]:=random(9); //массив стоимости перевозок
    end;    }
 for i:=1 to n do
 for j:=1 to m do
    begin
    write('c[',i,',',j,']=');
    readln(c[i,j]); //массив стоимости перевозок
    end;
end;

Procedure vivod;
begin
writeln('Мощность поставщиков:');
for i:=1 to n do writeln (,i,'поставщик= ',a[i]);
writeln;
writeln('Спрос потребителей:');
for i:=1 to m do writeln (,i,'потребитель= ',b[i]);
writeln;
writeln('Матрица стоимости перевозок:');
    for i:=1 to n do
     begin
      for j:=1 to m do
      write (c[i,j]:3);
      writeln;
     end;
end;

procedure minstoim;
begin
while sum>0 do
begin
    sum1:=0;
    for i:=1 to n do
    z1:=a[i];
    for j:=1 to m do
    z2:=b[j];
    sum1:=sum1+z1+z2;
    sum:=sum1;
    min:=c[1,1];
     for i:=1 to n do
     for j:=1 to m do
    begin
        if (min>c[i,j]) then min:=c[i,j];
            if a[i] >= b[j]
             then
              begin
              mas[i,j]:=b[j];
              a[i]:=a[i]-b[j];
              b[j]:=0;
              end
            else
           begin
           mas[i,j]:=a[i];
           b[j]:=b[j]-a[i];
           a[i]:=0;
           end;
     end;
end;
end;


Begin
Vvod1;
Vvod2;
Stoimost;
ClrScr;
vivod;
minstoim;
v:=0;
 for i:=1 to n do
  for j:=1 to m do
   begin
    v:=v+mas[i,j]*c[i,j];
   end;
writeln('Метод минимальной стоимости = ',v);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!
Модератор.

[s-andriano]

Мне кажется:
1. Нужно оформлять код так, чтобы его можно было читать (тег CODE).
2. "Что не так" - это сначала Вы должны объяснить. Почему Вы решили, что что-то не так?

[Астасья]

Ответ неправильный выводит,поэтому что-то не так....

[s-andriano]

А почему Вы решили, что ответ неправильный?

[Астасья]

Я сначала решила задачу в ручную,а потом попыталась программу написать....Так что не так в коде????????????????????????

[MihalNik]

1. Нужно оформлять код так, чтобы его можно было читать (тег CODE).

Очевидно, этого не достаточно. Нужно расставлять отступы так чтобы проглядывали конструкции.

writeln('Метод минимальной стоимости = ',v);

Метод равен числу... бывает же такое

Так что не так в коде????????????????????????

Да хотя бы вот это не имеет смысла (первое что бросилось в глаза, т.к. не читал):

    for i:=1 to n do
    z1:=a[i];
    for j:=1 to m do
    z2:=b[j];

[Smitt&Wesson]

Вообще, весь этот участок:

    sum1:=0;
    for i:=1 to n do
    z1:=a[i];
    for j:=1 to m do
    z2:=b[j];
    sum1:=sum1+z1+z2;
    sum:=sum1;

беcсмыслен.
Всё это пишется гораздо короче:

    sum:=0;
    for i:=1 to n do
      for j:=1 to m do
      sum:=sum+a[i]+b[j];