Задание 2. Использование массивов при вычислении значений функции

Составить программу на языке Turbo Pascal для вычисления значения функции в точках .

При решении этой задачи можно задать значения Х как числовой массив, состоящий из 8 элементов:

х₁, х₂,…, х₈.

Тогда соответствующие значения У тоже можно задать в виде числового массива:

у₁, у₂, …, у₈.

Верхнюю границу индексов массива можно описать как константу N. Тогда программу можно будет использовать для расчета значений функции при произвольном количестве точек х.

Program massiv_2;

Const N=8; {Ввод количества элементов массива}

var i: integer; Х, Y: Array [1..N] of Real;

begin

Writeln('Введите элементы массива');

For i:= 1 To N Do

begin

Writeln ('Введите значение ', i, ' –го элемента массива');

Read (X[i])

end;

For i:= 1 To N Do

begin

Y[i]:=exp(sin(X[i])); {Расчет элементов массива У}

Writeln('Х[',i,']=', X[i]:6:2,' Y[',i,']=', Y[i]:6:2);

end;

end.