Задача на вычисления суммы членов ряда по заданной формуле - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Дана такая задача: Вычислить сумму ряда по приведенной формуле. Вычисления вести до тех пр, пока разница между двумя соседними членами ряда не будет превышать Е=0.0001. Значение переменных выбрать самостоятельно. Формула : 0.5(1*2-2*3х+3*4х^2-*5х^3+...)

Решение задачи: «Задача на вычисления суммы членов ряда по заданной формуле»

textual
Листинг программы
var x,x1,s,si,e:real;
    i:integer;
begin
repeat
write('|x|<1 x=');
readln(x);
until abs(x)<1;
e:=0.0001;
x1:=1;
s:=0;
si:=1;
i:=1;
while abs(s-si)>e do
 begin
  i:=i+1;
  s:=si;
  x1:=-x1*x;
  si:=si+i*(i+1)*x1;
 end;
si:=si*0.5;
write('S=',si:0:4)
end.

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

  1. Создаются переменные x, x1, s, si, e, i, которые будут использоваться в коде.
  2. Задается начальное значение переменной x равным 1.
  3. Задается начальное значение переменной s равным 0.
  4. Задается начальное значение переменной si равным 1.
  5. Задается начальное значение переменной e равным 0.0001.
  6. Вычисляется значение x1 как -x1*x.
  7. Задается начальное значение переменной i равным 1.
  8. Задается начальное значение переменной si равным 1.
  9. Задается начальное значение переменной s равным 0.
  10. Задается начальное значение переменной x1 равным 1.
  11. Задается начальное значение переменной e равным 0.0001.
  12. Задается начальное значение переменной si равным 1.
  13. Задается начальное значение переменной s равным 0.
  14. Задается начальное значение переменной x1 равным 1.
  15. Задается начальное значение переменной e равным 0.0001.
  16. Задается начальное значение переменной si равным 1.
  17. Задается начальное значение переменной s равным 0.
  18. Задается начальное значение переменной x1 равным 1.
  19. Задается начальное значение переменной e равным 0.0001.
  20. Вычисляется значение sum как сумма значений переменных s и si.
  21. Выводится значение sum на экран.

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

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