Разработать алгоритм и программу, определяющие сумму ряда с заданной погрешностью - Pascal (96865)
Формулировка задачи:
Разработать алгоритм и программу, определяющие сумму ряда с заданной погрешностью ипсилон для произвольно заданного аргумента x. x-(x^3/3)+(x^5/5)-(x^7/7)+...+(-1)^n*(x^(2*n+1)/(2*n+1))+...
Функция для проверки arctg(x). Помогите пожалуйста!!!! Зашиваюсь
Решение задачи: «Разработать алгоритм и программу, определяющие сумму ряда с заданной погрешностью»
textual
Листинг программы
uses crt; var x,e,s,si,t,y:real; i:integer; begin clrscr; repeat write('|x|<1 x=');readln(x); until abs(x)<1; repeat write('e (0,1) e='); readln(e); until (e>0)and(e<1); s:=0; si:=x; t:=x; i:=0; while abs(s-si)>e do begin s:=si; i:=i+1; t:=-t*x*x; si:=si+t/(2*i+1); end; writeln('S=',s:0:6); y:=arctan(x); write('Arcctg(',x:0:2,')=',y:0:6); readln end.
Объяснение кода листинга программы
- Объявлены переменные: x, e, s, si, t, y (строки 2-7)
- Вводится значение переменной x с помощью функции readln до тех пор, пока абсолютное значение x не станет меньше 1 (строка 9)
- Вводится значение переменной e с помощью функции readln до тех пор, пока e не станет больше 0 и меньше 1 (строка 10)
- Инициализированы переменные s, si, t и i со значениями 0 (строки 12-15)
- Запускается цикл while, который выполняется до тех пор, пока абсолютная разница между s и si не станет меньше e (строка 16)
- Внутри цикла значение переменной s заменяется на значение si, значение переменной i увеличивается на 1, а значение переменной t умножается на -xx и делится на (2i+1) (строки 17-19)
- Значение переменной s выводится на экран с помощью функции writeln (строка 20)
- Вычисляется значение переменной y с помощью функции arctan(x) (строка 21)
- Значение переменной y выводится на экран с помощью функции writeln (строка 22)
- Программа ожидает ввода с помощью функции readln (строка 23)