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

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

Задание. Вычислить:

S1

S2

S3

P1

Начало

P1=1

k=1,5

S1=0

i=1,4

S1=S1+(k*i)

S2=0

l=1,5

S2=S2+(k*l)²

P1=P1*(k*S1+S2)

S3=0

d=1,3

S3=S3+(d²+1)³

Y=P1/S3

Вывод Y

Конец

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

Program Lab4;

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

k,i,l,d:byte;

Begin

p1:=1;

for k:=1 to 5 do

begin

s1:=0;

for i:=1 to 4 do s1:=s1+k*i;

s2:=0;

for l:=1 to 5 do s2:=s2+sqr(k*l);

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

end;

s3:=0;

for d:=1 to 3 do s3:=s3+exp(3*ln(sqr(d)+1));

y:=p1/s3;

Writeln('y=',y:8:3);

end.

Результат выполнения программы:

y=14746853486.320

Проверка в математическом редакторе Mathcad.

4