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

Завдання:

Програма:

Program p1;

Uses Crt;

Var p, b, c, z, s: real;

a, x, y, n, i, j: integer;

BEGIN

Clrscr;

write (‘Введіть n, x’); readln (n, x);

a:=1;

for i:=1 to x+5 do a:=a*i;

y:=sqr(x) * x + sqr(x) + 1;

s:=0;

for i:=1 to n do s:=s + sqr(i)*i;

p:=1;

for i:=1 to y do p:=p*i;

b:=s + 1.0/p;

c:=1;

for j:=3 to 5 do c;=c*exp(j*ln(a+b));

z:=a*x + b*y + c;

writeln (‘z=’, z:8:5); readln;

END.

Блок-схема