Вычислить гиперболический косинус по формуле - Turbo Pascal (29475)

Узнай цену своей работы

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

Найти значение функции: y = cℎ(x) -x, если x>0 или y=cℎ(2x − 1) + х^2 , если x ≤ 0.Написать подпрограмму, вычисляющую гиперболический косинус по формуле: ch(x) = 1 + х^2 /2! + х^4 /4! + х^6 /6! + ⋯ + х^2n/ (2n)! + ⋯ с точностью 0.0001. нужно из функции сделать процедуру

Решение задачи: «Вычислить гиперболический косинус по формуле»

textual
Листинг программы
procedure ch(x:real;var s:real);
var n:longint;//счетчик
    t:real;//значение текущего члена ряда
begin
n:=0; //нулевой член
t:=1; //=1
s:=t; //начльная сумма=1
while abs(t)>=eps do//пока модуль очередного члена больше точности
 begin
  n:=n+1;//следующий член
  t:=t*x*x/(2*n)/(2*n-1); //домножаем предыдущий на x^2, делим на 2 очередных числа,
                          // получаем х^2n/(2n)!
  s:=s+t; //прибавляем к сумме
 end;
end;

Объяснение кода листинга программы

  1. В процедуре ch объявлены три переменные: x, s и n.
  2. Переменная n инициализируется значением 0.
  3. Переменная t инициализируется значением 1.
  4. Переменная s инициализируется значением t.
  5. Затем в цикле while выполняется следующие действия:
    • n увеличивается на 1.
    • t умножается на x, возведенный в квадрат, и делится на 2n-1. Это дает значение следующего члена ряда.
    • Сумма s увеличивается на значение t.
  6. Цикл while продолжается до тех пор, пока модуль значения t не станет больше или равен eps, где eps - это значение точности.
  7. После завершения цикла while переменные n и t инициализируются новыми значениями.
  8. В конце процедуры значение переменной s возвращается.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

5   голосов , оценка 4.2 из 5
Похожие ответы