ПОДСКАЖИТЕ ПОЖАЛУЙСТА,нужен оператор while-do.надо написать программу в паскале Вычислить значение заданной функции непосредственно и как сумму ряда с погрешностью 0.001. Значение аргумента выбрать самостоятельно
132
ОТВЕТЫ
Const e=0.001;
var x,a,a2,s:real; n:integer;
begin
write(x=);readln(x);
a:=x;
a2:=x*x;
s:=x;
n:=0;
while abs(a)gt;e do begin
n:=n+1;
a:=a*a2/(2*n)/(2*n+1);
s:=s+a;
end;
writeln(s = ,s:7:5);
writeln(f = ,sinh(x):7:5);
end.
Пример:
x=1.5
s = 2.12928
f = 2.12928
var x,a,a2,s:real; n:integer;
begin
write(x=);readln(x);
a:=x;
a2:=x*x;
s:=x;
n:=0;
while abs(a)gt;e do begin
n:=n+1;
a:=a*a2/(2*n)/(2*n+1);
s:=s+a;
end;
writeln(s = ,s:7:5);
writeln(f = ,sinh(x):7:5);
end.
Пример:
x=1.5
s = 2.12928
f = 2.12928
51
Отв. дан
Adogda
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Никита
C++ В этой задаче от вас потребуется написать функцию ...
2019-02-02 05:14:06
Lakumyuto
C++ Напишите функцию bool is_in_square(double x, double y), которая ...
2019-02-02 05:14:00
Ianrim
Решите пожалуйста программу в Pascal: x=y^2-sqrt(y), при y>=0; x=3/y+y, ...
2019-02-02 05:12:47
Артем
Даны два именуемых числа, найти сумму разность произведение и ...
2019-02-02 05:12:06