Задача на вычисления суммы членов ряда по заданной формуле - 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.
Объяснение кода листинга программы
- Создаются переменные x, x1, s, si, e, i, которые будут использоваться в коде.
- Задается начальное значение переменной x равным 1.
- Задается начальное значение переменной s равным 0.
- Задается начальное значение переменной si равным 1.
- Задается начальное значение переменной e равным 0.0001.
- Вычисляется значение x1 как -x1*x.
- Задается начальное значение переменной i равным 1.
- Задается начальное значение переменной si равным 1.
- Задается начальное значение переменной s равным 0.
- Задается начальное значение переменной x1 равным 1.
- Задается начальное значение переменной e равным 0.0001.
- Задается начальное значение переменной si равным 1.
- Задается начальное значение переменной s равным 0.
- Задается начальное значение переменной x1 равным 1.
- Задается начальное значение переменной e равным 0.0001.
- Задается начальное значение переменной si равным 1.
- Задается начальное значение переменной s равным 0.
- Задается начальное значение переменной x1 равным 1.
- Задается начальное значение переменной e равным 0.0001.
- Вычисляется значение sum как сумма значений переменных s и si.
- Выводится значение sum на экран.