Реферат: Итерационные циклы - Refy.ru - Сайт рефератов, докладов, сочинений, дипломных и курсовых работ

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

Рефераты по информатике » Итерационные циклы

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

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

Кафедра И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.

Блок-схема: