лабораторная работа / Lab3

Программирование алгоритмов итерационной циклической структуры.

Цель работы: овладение практическими навыками разработки и программирования алгоритмов итерационной циклической структуры.

Задание:

Вычислить значения числового ряда с точностью до :

при x=0.75

program lab3(input,output);

var x,e,an,s:real;

n:integer;

begin

readln(x,e);

s:=0;

n:=1;

an:=1;

while abs(an)>e do begin

s:=s+an;

n:=n+1;

an:=an*(-x*x)/((2*n-1)*(2*n+2));

end;

writeln( 's= ',s:6:3,' n=',n-1:3,' an=',an:6:3);

end.