Предмет: Информатика,
автор: mailbox151098
Помогите составить программу
Приложения:
![](https://files.topotvet.com/i/d99/d993190998d477c88af6aa5f51e3e899.png)
Ответы
Автор ответа:
0
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
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
Автор ответа:
0
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.
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.
Автор ответа:
0
а что тут не правильно?
Похожие вопросы
Предмет: Французский язык,
автор: reginaaaww
Предмет: Математика,
автор: zuldyzmaj34
Предмет: Геометрия,
автор: akilovaleksandr77
Предмет: Литература,
автор: kolpakov00
Предмет: Алгебра,
автор: SilenceGold