invalid floating point operator

[bayker]

нанисал программу решения задачи коммивояжера.
алгоритм рабочий.
на определенной стадии выполнения выскакивает ошибка invalid floating point operator

подозреваю что дело в делении, либо в логарифме.

подскажите пожалуйста кто что может.

проект приложил.

[Прик]

Деление на ноль:

   begm[i]:=c;
   endm[i]:=c+ves[i]/sm;
   c:=endm[i];

[bayker]

я тоже так подумал) но вот откуда там нулю взятся, когда есть только умножение и сложение положительных чисел)

[Прик]

Вот отсюда:

  sm:=0;
  repeat
    sm:=sm+ves[i];
    inc(i);
    inc(n1);
  until ves[i]<0;

А если ves = (0,0,0,0,-1), то понятно, что sm в этом случае равен нулю.

И надо заменить тип Real на тип Extended. Везде.

[bayker]

real заменил, не помогло.

а откуда бурется нули в массиве понять не могу.

for i:=1 to n do matrr[i,i]:=0;
for i:=2 to n do
for j:=1 to (i-1) do
begin
MatrR[i,j]:=Random(20);
MatrR[j,i]:=matrr[i,j]
end;

исправил на

for i:=1 to n do matrr[i,i]:=0;
for i:=2 to n do
for j:=1 to (i-1) do
begin
MatrR[i,j]:=1+Random(20);
MatrR[j,i]:=matrr[i,j]
end;

а нули все равно откуда-то лезут