лабораторная работа / Лабораторная работа2 (2)

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

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

Дано: x є [0,2:2,2], Δx=0,2, t=0,22.

БЛОК СХЕМА.

Программа:

program lab_23(input, output);

const t=0.22; deltax=0.2; var x, xo, xk, d, z: real; n, i: integer; begin writeln(‘Введите xo, xk’); read(xo, xk);

d:=(xk-x0)/deltax;

n:=trunk(d)+1;

x:=x0;

for i=1 to n do begin

if x<0,5 then z:=sqr(LN(x))*LN(x)+(x*x)/sqrt(x+1)

else if x=0,5 then z:=sqrt(x+t)+1/x else z:=cos(x)+t*sqr(sin(x));

writeln(‘x=’, x:6:3, ’z =’, z:6:3); x:=x+deltax;

end;

end.

Результаты:

X=0,2 z=-4,132;

X=0,4 z=-0,634;

X=0,6 z=0,895;

X=0,8 z=0,810;

X=1 z=0,696;

X=1,2 z=0,533;

X=1,4 z=0,384;

X=1,6 z=0,191;

X=1,8 z=-0,019;

X=2 z=-0,234;

X=2,2 z=-0,445.