Вычислить значения функции y=cos3x+7 на отрезке от 9 до 25 с шагом 1. Полученные значения функции записать в массив и вывести на экран. паскаль
Ответы на вопрос
Ответил TaTaPmember
0
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.
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.
Новые вопросы