Пример 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.

 








Дата добавления: 2015-04-10; просмотров: 717;


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию.

Поделитесь с друзьями:

Если вам перенёс пользу информационный материал, или помог в учебе – поделитесь этим сайтом с друзьями и знакомыми.
helpiks.org - Хелпикс.Орг - 2014-2024 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.004 сек.