Пример выполнения лабораторной работы №4

Вычислить значение U, напечатав значения выражения в скобках при каждом k.

при x=0.35, y=-1.7.

Для упрощения понимания схемы вычисления имеет смысл ввести следующие обозначения:

,

b=

,

p=, t = a – p.

Программа в этих обозначениях будет выглядеть следующим образом:

program lab4;

const x=0.35; y=-1.7;

var u,s,p,t:real;

k,n:byte;

{ **************************************** }

function a:real;

var c1,c2:real;

begin

c1:=3*sqr(cos(k*x))+exp(k*x+y);

c2:=x*k/(1+x*k);

c2:=arctan(c2/sqrt(1-c2*c2));

a:=c1/c2

end;

{ **************************************** }

function b:real;

var c1,c2:real;

begin

c1:=1+k*x/n+y;

c2:=1+n*n+1/(k*k);

b:=c1/c2

end;

{ **************************************** }

begin

u:=0;

for k:=1 to 5 do begin

p:=1;

for n:=3 to 6 do p:=p*b;

t:=a-p;

writeln(' k=',k,'скобка =',t:7:3);

u:=u+t

end;

writeln;

writeln(' u=',u:7:3)

end.