Программа для вычисления значения функции - 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.

Оцени полезность:

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы