лабораторная работа / вар18 / lab4

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

ФАКУЛЬТЕТ ИНЖЕНЕРНО-СТРОИТЕЛЬНЫЙ

КАФЕДРА УПРАВЛЕНИЕ И ИНФОРМАТИКА В ТЕХНИЧЕСКИХ СИСТЕМАХ

ЛАБОРАТОРНАЯ РАБОТА №4

ПО ДИСЦИПЛИНЕ

,,ПРОГРАММИРОВАНИЕ И ОСНОВЫ АЛГОРИТМА,,

Комбинированное вычисление сумм и произведений на языке TURBO PASCAL

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

Приняла:

2006

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

6 4 5

Задание: вычислить S= ∑ i² + ∑(k³ ∏(l+ k²))²

i=1 k=2 l=1

начало

S1=0

i=1,6

S1=S1+SQR(i)

S2=0

k=2,4

P1=1

P1=P1*(l+SQR(k))

S2=S2+SQR(k*k*k*P1)

Y=S1+S2

program lab4(input,output);

var Y:real;

S1,S2,P1:real;

i,k,l:byte;

begin

S1:=0;

for i:=1 to 6 do S1:=S1+SQR(i);

S2:=0;

for k:=2 to 4 do

begin

P1:=1;

for l:=1 to 5 do P1:=P1*(l+SQR(k));

S2:=S2+SQR(k*k*k*P1);

end;

Y:=S1+S2;

Write('Y=',Y:6:3);

end.