лабораторная работа / вар22 / лаб4

Балаковский институт техники технологий и управления

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

Вариант 22

Выполнил студент УИТ-22

Балаково 2007 год.

Вычислить:

Y=

При вычислении конечной суммы следует организовать цикл, в кото­ром число повторений равно количеству слагаемых. Перед началом цикла переменную суммы обнуляют S:=0. Тело цикла должно содержать вычис­ления очередного слагаемого А и рекуррентного соотношения:

S:=S+A.

К переменной суммы S прибавляется переменная А, результат вы­числения присваивается переменной S.

Вычисление произведения конечного числа элементов аналогично, начальному значению произведения присваивается значение единицы P:=1, а в рекуррентной формуле меняется знак:

P:=P*A.

При организации алгоритма необходимо помнить, что открытие цик­лов следует в порядке их очередности, начиная с самого внешнего, закан­чивая самым внутренним циклом. Закрытие циклов, наоборот, начинают с самого внутреннего цикла, заканчивают самым внешним циклом.

Обозначим результаты вычисления произведения по параметру i - через p1, результат вычисления суммы по параметру k - через s1, результат вычисления суммы по параметру l- через S2, результаты вычисления произведения по параметру d - через p2.

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

program lab_4;

var

p1,s1,s2,p2,s:real;

i,d,k,l:integer;

begin

p1:=1;

for i:=1 to 7 do p1:=p1*i;

s1:=0;

for k:=1 to 6 do

begin

s2:=0;

for l:=1 to 8 do s2:=sqr(k)*exp(3*ln(l))+1+s2;

s1:=k+s2+s1;

end;

p2:=1;

for d:=1 to 10 do p2:=p2*d;

s:=p1+s1+p2;

writeln('Y= ', s:6:3);

end.

p1=1

s1=0

P1=p1*i

s2=0

s2:=sqr(k)*exp(3*ln(l))+1+s2;

s1:=k+s2+s1

p2=1

P2=p2*d

s:=p1+s1+p2

Рис.1 Блок–схема программы