Рекурсивное зацикливание

[Alex_Almaty]

В общих чертах о задаче:задача про распределение масс множества материальных точек. Отсортировал по возрастанию и вытаюсь рекурсией её распределять пока одна не останется, либо несколько одинаковых.

Впервые решил использовать рекурсию и не оч разобрался

procedure Distribution(var a:array of real; n:integer);
var i,r:integer;
begin
 r:=n-1;
 i:=0;
 while (abs(a[0]-a[r])>0.000001) do
  begin
   while(i<r) do
    begin
     a[i]:=a[i]+a[r]*0.9/r;
     i:=i+1;
    end;
   n:=r;
   Distribution(a,n);
  end;

end;

Вроде функция должна возвращаться после невыполнения условия нового рекурсивного вызова. И на это моменте она и начинает циклиться. Ставит значение r = 1 и всё.

[Utkin]

Не знаю чего не так, но при заголовке

procedure Distribution(var a:array of real; n:integer);

такая строка

n:=r;

явно не по фень-шую . А как Вы думаете, почему?

[Alex_Almaty]

Вроде нет здесь часть неудаленного кодаона вроде не влияла. Вся проблема когда функция вызывалась рекурсивно несколько раз, а потом начала "возвращаться". Вот тут то и проблема возникла.

[Utkin]

А Вы бреакпоинтами его, бреакпоинтами . Рекомендую на строчке:

Distribution(a,n);

при каждом входе посмотреть чему равно n.

здесь часть неудаленного кода

В смысле? Рояль в кустах?

[Alex_Almaty]

Сообщение от Utkin

А Вы бреакпоинтами его, бреакпоинтами .

Пробовал, безуспешно

[Utkin]

Сообщение от Alex_Almaty

Пробовал, безуспешно

Что безуспешно? n изменяется как положено?

[Alex_Almaty]

Всё окзакидал весь код exit-ами и норм сталоспстема офф

[Utkin]

В приличном обществе, таком как наше , принято выкладывать результаты решения (в случае если код небольшой), чтобы следующие уже с помощью поиска находили решение и не наступали на те же грабли.

[Alex_Almaty]

okкод был не сильно изменен как и сказал Utkin, проблема была в n:=r;

Работающая функия:

procedure Distribution(var a:array of real; n:integer);
var i,r:integer;
begin
r:=n-1;
i:=0;
while (abs(a[0]-a[r])>0.000001) do
begin
while(i<r) do
begin
a[i]:=a[i]+a[r]*0.9/r;
i:=i+1;
end;
Distribution(a,r);
exit;
end;

Если будут желающие, выложу весь код программы(большой просто)

Еще раз спс за помощь
end;