Пример 2. Вычислить сумму с точностью Е

Вычислить сумму с точностью Е

Блок-схема:

Текст программы:

program Cikl;

{$APPTYPE CONSOLE}

uses

SysUtils;

var

x,e,znam,chisl,s:real;

znak,i:integer;

begin

writeln('Vvedite x i E (tochnost`)');

readln(x,e);

S:=1;

i:=0;

if x<>0 then

begin

znak:=1;

znam:=1;

chisl:=1/x;

repeat

inc(i);

chisl:= chisl*x*x;

znam:=znam*i;

znak:=znak*(-1);

S:=S+chisl/znam*znak

until ABS(chislitel/znamenatel) < e;

end;

writeln('Pri x= ',x:0:2,', E= ',E:0:6,

': S= ',S:0:6,' Kolicestvo iteraciy ',i);

readln;

end.