Цитата:
Сообщение от кир
На языке delphi
10. Пусть задана таблица значений функции, т.е. набор значений аргумента и функции (10..20 значений, хранить их можно в массиве). С помощью линейной интерполяции вывести значения функции для середины каждого интервала. Вычисление искомых значений оформить в виде подпрограммы – процедуры.
|
На Паскале как-то так. Считаем, что число значений N, массив аргументов, расположенных в порядке возрастания, - X, массив значений - Y. Введем тип
AR=ARRAY[1..N] of REAL; , т.е.
CONST
N=10;
TYPE
AR=ARRAY[1..N] of REAL;
VAR
X,Y,X1,Y1:AR;
PROCEDURE Media_Values(Xm,Ym:AR; VAR X1m:AR; VAR Y1m:AR);
VAR i:INTEGER;
BEGIN
FOR i:=1 TO N-1 DO
BEGIN
X1m[i]:=(Xm[i]+Xm[i+1])/2;
Y1m[i]:=(Ym[i]+Ym[i+1])/2;
END;
END;
BEGIN
{ Enter values of X and Y Arrays }
Media_Values(X,Y,X1,Y1);
END.