Найти значение выражения - Pascal ABC (14464)
Формулировка задачи:
Дано вещественное число X (|X| < 1) и целое число N (> 0). Найти значение выражения
X − X3/3 + X5/5 − … + (−1)N·X2·N/(2·N+1).
Полученное число является приближенным значением функции arctg в точке X.
По возможности с пояснениями
Решение задачи: «Найти значение выражения»
textual
Листинг программы
var x,e,s,t,y:real; n,i:integer; begin repeat write('|x|<1 x='); readln(x); until abs(x)<1; repeat write('n>0 n='); readln(n); until n>0; t:=x; s:=t; for i:=1 to n do begin t:=-t*x*x; s:=s+t/(2*i+1); end; writeln('Сумма=',s:0:4); writeln('Проверка=',arctan(x):0:4); end.
Объяснение кода листинга программы
- Создается переменная x типа real, и ей присваивается начальное значение.
- Создается переменная e типа real, и ей присваивается начальное значение.
- Создается переменная s типа real, и ей присваивается начальное значение.
- Создается переменная t типа real, и ей присваивается начальное значение.
- Создается переменная y типа real, и ей присваивается начальное значение.
- Создается переменная n типа integer, и ей присваивается начальное значение.
- Создается переменная i типа integer, и ей присваивается начальное значение.
- В цикле repeat-until выполняется следующая последовательность действий:
- Выводится сообщение '|x|<1 x=', и считывается значение переменной x.
- Выводится сообщение 'n>0 n=', и считывается значение переменной n.
- Переменная x сохраняется в переменной t, а переменная s сохраняет предыдущее значение t.
- Для i от 1 до n выполняется следующая последовательность действий:
- Переменная t обновляется согласно формуле t = -txx.
- Переменная s обновляется согласно формуле s = s + t/(2*i+1).
- Выводится сообщение 'Сумма=', и выводится значение переменной s.
- Выводится сообщение 'Проверка=', и вычисляется значение арктангенса переменной x, и выводится результат.
- Цикл repeat-until завершается, когда абсолютное значение переменной x становится меньше 1.
- Программа завершается.