МИНИСТЕРСТВО ОБЩЕГО ОБРАЗОВАНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ

САРАТОВСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕСИТЕТ

БАЛАКОВСКИЙ ИНСТИТУТ ТЕХНИКИ, ТЕХНОЛОГИИ И УПРАВЛЕНИЯ

КАФЕДРА СММ

Отчет по лабораторной работе №3

по дисциплине

Основы алгоритмизации и программирования

Выполнил ст. гр. УИТ-22

Балаково 2004

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

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

Задание:

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

Блок-схема: Программа:

program lab31;

const e=0.00005;

var s,an:real;n:integer;

begin

s:=0;n:=1;an:=1;

while abs(an)>=e do

b

S=0,N=1,AN=1

egin

s:=s+an;

inc(n);

a

нет

n:=an*(-1)*sqr(pi/6)/(2*n+1)/(2*n+2);

end;

writeln('s=',s:9:6,' n=',n,' an=',an:9:6);

e

S=S+AN

N=N+1

AN=AN*R(N)

ДА

nd.

Полученные значения:

S=0,866061, n=3, an=0.000045

Полученная сумма соответствует реальному значению с точностью до e.