[poli-smen]

Сообщение от Басота

Спасибо, но проблема с глобальными/локальными переменными связана с
procedure coef1(j: word; var a, b, c, d: float; w, w1: float);
поскольку в этой процедуре я вычисляю коэффициенты А,В,С, Д.
Как мне, не используя глобальные переменные i,j найти эти коэффициенты?

А здесь у тебя вообще что-то чудное.

Код:

procedure coef1(j: word; var a, b, c, d: float; w, w1: float);
.....
for i := 2 to n1 - 1 do
  begin
    for j := 1 to m1 do  ui[j] := Unew[i, j];
    Prog(1, m1, ui, 1, ui[1], 0, 1, ui[m1], 0, 1, 0, coef1); // Где у тебя здесь присваивается значение переменной j для процедуры coef1?
    for j := 1 to m1 do unew1[i, j] := ui[j];
  end;
.....