Программа для вычисления значения функции - Turbo Pascal (28945)

Формулировка задачи:

Составить программу для вычисления значения функции: y=sh(x) с помощью разложения функции в степенной ряд Помогите пожалуйста решить, пожалуйста!!

Код к задаче: «Программа для вычисления значения функции - Turbo Pascal (28945)»

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

8   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ