Question

Помогите составить программу

Answer 1

Const e=0.0004;
var x,a,f,y:real; n,z:integer;
begin
x:=2.65; a:=1.5;
f:=1/(2*a);
n:=1; z:=1;
y:=a*cos(n*x)/(a*a-n*n);
while abs(y)>e do begin
f:=f+y;
n:=n+1;
z:=-z;
y:=z*a*cos(n*x)/(a*a-n*n);
end;
writeln('F(',x,') = ',f:8:5);
end.

Пример:
F(2.65) = -0.37856