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