Пример 1. 1. 2

Дан ряд . Найти сумму ряда для любого заданного количества членов ряда n и значения X.

program Number_1_2;

{Этот пример показывает простейшую алгоритмизацию

При вычислении знакопеременного ряда.

Просьба обратить внимание на формирование

каждого члена ряда и знака этого члена.}

var x,s,p:real;

i,n:integer;

ch:char;

Begin

writeln('Работа второй программы');

Repeat

writeln('Ведите количество членов ряда');

readln(n);

writeln('Введите значение x');

readln(x);

s:=0;

p:=1;

for i:=1 to n do

Begin

p:=-p*x/i;

s:=s+p;

end;

writeln('Результат вычисления ряда S=',s:10:5);

writeln('Будете еще вычислять ряд?');

readln(ch);

until ch='n';

End.