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

Вычислить:

P2

S2

S=

S1

P1

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

S:=S+A.

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

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

P:=P*A.

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

Обозначим результаты вычисления произведения по параметру i - через P1, результат вычисления суммы по параметру j - через S1, результат вычисления суммы по параметру k - через S2, результат произведения по параметру l-через P2.

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

program lab_4;

var

p1, s1, s2, p2: real; i, j, k, l: integer;

begin

p1:=1;

for i:=1 to 4 do

begin

s1:=0;

for j:=2 to 6 do

begin

s2:=0; p2:=1;

for k:=2 to 11 do s2:=s2+sqr(k);

for l:=1 to 3 do p2:=p2*l;

p2:=sin(p2);

s1:=s1+i+j-sqrt(s2+p2);

end;

p1:=p1*(sqr(i)+s1);

end;

writeln (`s= `, p1:6:3);

end.

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