Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

лабораторная работа / Лабораторная работа4

.doc
Скачиваний:
52
Добавлен:
10.02.2014
Размер:
43.52 Кб
Скачать

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

Дано:

БЛОК СХЕМА. ПРОГРАММА.

Program lab4;

Var i, k, l, d: integer;

p1, s1, s2, s3, y: real;

begin

p1:=1;

for k=1 to 3 do begin

s1:=0;

for i=2 to 4 do begin

s1:=s1+(k*i);

end;

s2:=0;

for l=1 to 5 do begin

s2:=s2+((k*l)*(k*l));

end;

p1:=p1*(k*s1+s2);

end;

s3:=0;

for d=1 to 3 do begin

s3:=s3+((d*d+1)*(d*d+1)*(d*d+1));

end;

y:=p1/s3;

write (‘y=’, y:12:6);

end.

Результат: y=1605,987643.