Задача с блок-схемой\программой\прокруткой cosx= 1-x^2/2!+x^4/4! - Pascal

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

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

Полная задача cosx= 1-x^2/2!+x^4/4!-x^6/6!...+(-1)^n*x^2n/(2n)!. [2n/(2n)! не находится в степени с n]. Нужна блок-схема, прокрутка блок-схемы, программа. Находил прохожие программы, но ничего путного слепить не мог, всё отвергалось как инопланетное(

Решение задачи: «Задача с блок-схемой\программой\прокруткой cosx= 1-x^2/2!+x^4/4!»

textual
Листинг программы
Const eps=0.0001;
Var x,a,s:real;
    i:integer;
Begin
    write('x: ');readln(x);
    a:=1;s:=1;i:=2;
    While abs(a)>eps do
    Begin
      a:=-a*x*x/(i*(i-1));
      i:=i+2;
      s:=s+a;
    End;
    writeln('cos(x) = ',cos(x):0:4);
    writeln('Приближенное значение = ',s:0:4);
    readln;
End.

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

  1. В начале кода объявляются константа eps и переменные x, a, s типа real и i типа integer.
  2. Затем происходит чтение значения переменной x с помощью функции readln.
  3. Далее переменные a и s инициализируются как 1, а переменная i устанавливается равной 2.
  4. Затем в цикле while происходит вычисление значения a как -axx/(i*(i-1)) и увеличение значения i на 2. Также значение переменной s увеличивается на a.
  5. Когда abs(a) превышает eps, цикл while прекращается.
  6. Затем вычисляется значение cos(x) с помощью функции cos(x) = cos(x) и выводится на экран.
  7. После этого выводится значение приближенного значения cos(x) равное s.
  8. В конце кода происходит вызов функции readln для чтения ввода пользователя.

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

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