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

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

Comments

почему в сумме получается -?

---

и что значит z?

---

1) ряд знакочередующийся; 2) z - знак слагаемого

---

program p1;
var F,x,S,eps,a:real;
n:integer;
begin
write('Vvedite a=');
readln(a);
write('Vvedite x=');
readln(x);
write('Vvedite eps=');
readln(eps);
F:=1/2*a;
n:=1;
S:=a*cos(n*x)/(sqr(a)-sqr(n));
while abs(S)>eps do
begin
F:=F+S;
n:=n+1;
if n mod 2=0 then S:=-(a*cos(n*x)/(sqr(a)-sqr(n)))
else S:=a*cos(n*x)/(sqr(a)-sqr(n));
end;
write('pri x=',x:5:2,' a=',a:5:2,' eps=',eps:7:4,' summa F=',F:7:3);
readln;
end.

---

а что тут не правильно?

---

В моей программе опечатки нашлись. Исправьте две строки:
n:=1; z:=-1;
y:=-a*cos(n*x)/(a*a-n*n);

---

В Вашей программе тоже есть опечатка: вместо F:=1/2*a; нужно F:=1/(2*a); И ещё знаки "+" и "-" у слагаемых надо поменять. Начальное S: S:=-a*cos(n*x)/(sqr(a)-sqr(n)); а в цикле if n mod 2 = 1 ...