Найти значение выражения - 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.

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

  1. Создается переменная x типа real, и ей присваивается начальное значение.
  2. Создается переменная e типа real, и ей присваивается начальное значение.
  3. Создается переменная s типа real, и ей присваивается начальное значение.
  4. Создается переменная t типа real, и ей присваивается начальное значение.
  5. Создается переменная y типа real, и ей присваивается начальное значение.
  6. Создается переменная n типа integer, и ей присваивается начальное значение.
  7. Создается переменная i типа integer, и ей присваивается начальное значение.
  8. В цикле 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, и выводится результат.
  9. Цикл repeat-until завершается, когда абсолютное значение переменной x становится меньше 1.
  10. Программа завершается.

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

9   голосов , оценка 3.889 из 5