Итерационные циклы

Балтийский государственный технический университет

 «Военмех» им. Д.Ф. Устинова

Кафедра И3

«Информационные системы и компьютерные технологии» 
 
 
 

Лабораторная  работа №3

Итерационные  циклы 
 
 
 
 
 
 
 
 
 
 
 
 
 

Вычислить сумму  ряда: 

С заданной точностью  e=0,01 и сравнить его со значением стандартной функции при х=0,6 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Программа:

program l3;

const

  eps=0.01;

var

  i:integer;

  s,x,a:real;

begin

  writeln('vv x');

  readln(x);

  s:=0; a:=1; i:=0;

  while abs(a)>eps do

    begin

      s:=s+a; i:=i+1;

      a:= a*x*(4*i-5)/(4*i);

    end;

  writeln('Сумма ряда=',s:7:6);

  writeln('(1-x)^1/4', exp(1/4*ln(1-x)):7:6);

  readln

end.

Блок-схема: