Вычислить значения функции y=cos3x+7 ** отрезке от 9 до 25 с шагом 1. Полученные значения...

Question

Вычислить значения функции y=cos3x+7 на отрезке от 9 до 25 с шагом 1. Полученные значения функции записать в массив и вывести на экран. паскаль

Answer 1

Var
x,y:real;
i:integer;
F:Array [9..25] of real;
begin
For i:=9 to 25 do begin
F[i]:=Cos(3*i)+7;
Write(' Y= ',F[i]:0:3);
end;
end.