Цитата:
|
Сообщение от xxxmaximal
В общем мне кажется что с функцией sro что-то не так т.к не работает вывод массива этой функции в мемо, и поиск наименьшего и наибольшего отклонения при помощи массива so[i]
|
С этой функцией не так то, что результат своей работы она сохраняет в свой локальный массив
so, который после завершении работы этой функции естественно бесследно уничтожается.
Да ещё эта функция в своих расчётах использует глобальную переменную s1 хотя не известно отработала ли до этого функция sr которая в эту переменную записывает корректное значение.
Вот эта же функция, только слегка отформатированная для большей наглядности:
Код:
function sro(a: mas; n: integer; i: integer): mas;
var
so: mas;
begin
for i := 0 to (n - 1) do
begin
so[i] := a[i] - s1;
end;
end;
Да, и ещё параметр-переменная
i для цикла...
