Программа для вычисления значения функции - Turbo Pascal (28945)
Формулировка задачи:
Составить программу для вычисления значения функции: y=sh(x) с помощью разложения функции в степенной ряд
Помогите пожалуйста решить, пожалуйста!!
Решение задачи: «Программа для вычисления значения функции»
textual
Листинг программы
const eps = 1e-10; //точность вычислений
var x, a, s: real;
n: integer;
begin
write('x = ');
readln(x);
a := x;
s := a;
n := 0;
while abs(a) > eps do
begin
inc(n);
a := a * x * x / 4 / n / (n + 0.5);
s := s + a
end;
writeln(' S(x) = ', s:0:10);
readln
end.