лабораторная работа / вар18 / лаба3
.doc
БАЛАКОВСКИЙ
ИНСТИТУТ ТЕХНИКИ ТЕХНОЛОГИИ И УПРАВЛЕНИЯ
ФАКУЛЬТЕТ
ИНЖЕНЕРНО-СТРОИТЕЛЬНЫЙ
КАФЕДРА УПРАВЛЕНИЯ
ИНФОРМАТИКИ В ТЕХНИЧЕСКИХ СИСТЕМАХ
ЛАБОРАТОРНАЯ РАБОТА №3
ПО ДИСЦИПЛИНЕ
,,ПРОГРАММИРОВАНИЕ
И ОСНОВЫ АЛГОРИТМА,,
Выполнил: ст. гр. УИТ-21
Приняла:
2006
Цель работы: овладение практическими навыками разработки алгоритмов и программ, разветвляющейся и циклической с заданным числом повторений структур.
Задание: вычислять многократно значение функции при изменении аргумента в указанном диапазоне с заданным шагом. Организовать вывод значения аргумента и вычисленного значения функции в виде таблицы.
x=x0
i=1, n
X<-1 -1<=x<=1
x>1
Z=0
Z=0
program lab33(input,output);
const deltax=0.2;
var d,z,x,x0,xk,dx:real;
n,i:integer;
begin
writeln('x0,xk');
read(x0,xk);
writeln('z(x)');
writeln('x z(x)');
d:=(xk-x0)/deltax;
n:=trunc(d)+1;
x:=x0;
for i:=1 to n do
begin
if x<-1 then z:=0
Else if (x>=-1)and(x<=1) then z:=1-abs(x)
Else z:=0;
writeln('x=',x:10:3, 'z=',z:10:3);
x:=x+deltax;
end;
end.
X Z(x)
-1.5 0
-1.3 0
-1.1 0
-0.9 0.1
-0.7 0.3
-0.5 0.5
-0.3 0.7
-0.1 0.9
0.1 0.9
0.3 0.7
0.5 0.5
0.7 0.3
0.9 0.1
1.1 0
1.3 0
1.5 0
x=x0
x<xk
X<-1
-1<=x<=1
x>1
Z=0
Z=0
program lab3(input,output);
const deltax=0.2;
var z,x,x0,xk,dx:real;
begin
read(x0,xk,dx);
x:=x0;
while x<xk do begin
if x<-1 then z:=0
Else if (x>=-1)and(x<=1) then z:=1-abs(x)
Else z:=0;
writeln('z=',z:10:3);
x:=x+deltax;
end;
end.
X Z(x)
-1.5 0
-1.3 0
-1.1 0
-0.9 0.1
-0.7 0.3
-0.5 0.5
-0.3 0.7
-0.1 0.9
0.1 0.9
0.3 0.7
0.5 0.5
0.7 0.3
0.9 0.1
1.1 0
1.3 0
1.5 0
X:=x0
X<-1 -1<=x<=1
x>1
Z=0
Z=0
program lab3(input,output);
const deltax=0.2;
var z,x,x0,xk,dx:real;
begin
read(x0,xk,dx);
x:=x0;
repeat
if x<-1 then z:=0
Else if (x>=-1)and(x<=1) then z:=1-abs(x)
Else z:=0;
writeln('x',x:10:3,'z=',z:10:3);
x:=x+deltax;
until x>xk;
end.
X Z(x)
-1.5 0
-1.3 0
-1.1 0
-0.9 0.1
-0.7 0.3
-0.5 0.5
-0.3 0.7
-0.1 0.9
0.1 0.9
0.3 0.7
0.5 0.5
0.7 0.3
0.9 0.1
1.1 0
1.3 0
1.5 0