лабораторная работа / Лабораторная работа2
.docЛАБОРАТОРНАЯ РАБОТА №2.
Цель работы: овладение практическими навыками разработки алгоритмов и программ разветвляющейся и циклической с заданным числом повторений структур.
Дано:
x є [0,2; 2,2], t=0,22
БЛОК СХЕМА 1.
ПРОГРАММА 1.
program lab_21(input, output);
const t=0,22;
var x, xo, xk, dx, z: real;
begin
writeln(‘Введите xo, xk, dx’);
read(xo, xk, dx);
x:=xo;
while x<=xk do begin
if x<0,5 then z:=sqr(LN(x))*LN(x)
+ (x*x)/sqrt(x+1)
else begin
if x=0,5 then z:=sqrt(x+t)+1/x
else z:=cos(x)+t*sqr(sin(x));
end;
write(‘x=’, ’z=’);
write(x:6:3, z:6:3);
x:=x+dx;
end;
end.
Результаты:
X=0,2 z=-0,637; X=0,4 z=-0,774;
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.
БЛОК СХЕМА 2. ПРОГРАММА 2.
program lab_22(input, output);
const t=0,22;
var x, xo, xk, dx, z: real;
begin
writeln(‘Введите xo, xk, dx’);
read(xo, xk, dx);
x:=xo;
repeat
if x<0,5 then
z:=sqr(LN(x))*LN(x) +
(x*x)/sqrt(x+1)
else begin
if x=0,5 then z:=sqrt(x+t)+1/x
else z:=cos(x)+t*sqr(sin(x));
end;
writeln(‘x=’, x:6:3, ’z =’, z:6:3);
x:=x+dx;
until x>xk;
end;
end.
Результаты:
X=0,2 z=-0,637; X=0,4 z=-0,774;
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.
БЛОК СХЕМА 3. ПРОГРАММА 3.
program lab_23(input, output);
const t=0,22;
var x, xo, xk, dx, z: real;
begin
writeln(‘Введите xo, xk, dx’);
read(xo, xk, dx);
for x:=xo to xk do begin
if x<0,5 then z:=sqr(LN(x))*LN(x) +
(x*x)/sqrt(x+1)
else begin
if x=0,5 then z:=sqrt(x+t)+1/x
else z:=cos(x)+t*sqr(sin(x));
end;
writeln(‘x=’, x:6:3, ’z =’, z:6:3);
x:=x+dx;
end;
end.
Результаты:
X=0,2 z=-0,637; X=0,4 z=-0,774;
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.