Разработать алгоритм и программу, определяющие сумму ряда с заданной погрешностью - 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.

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

  1. Объявлены переменные: x, e, s, si, t, y (строки 2-7)
  2. Вводится значение переменной x с помощью функции readln до тех пор, пока абсолютное значение x не станет меньше 1 (строка 9)
  3. Вводится значение переменной e с помощью функции readln до тех пор, пока e не станет больше 0 и меньше 1 (строка 10)
  4. Инициализированы переменные s, si, t и i со значениями 0 (строки 12-15)
  5. Запускается цикл while, который выполняется до тех пор, пока абсолютная разница между s и si не станет меньше e (строка 16)
  6. Внутри цикла значение переменной s заменяется на значение si, значение переменной i увеличивается на 1, а значение переменной t умножается на -xx и делится на (2i+1) (строки 17-19)
  7. Значение переменной s выводится на экран с помощью функции writeln (строка 20)
  8. Вычисляется значение переменной y с помощью функции arctan(x) (строка 21)
  9. Значение переменной y выводится на экран с помощью функции writeln (строка 22)
  10. Программа ожидает ввода с помощью функции readln (строка 23)

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

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