лабораторная работа / вариант 15
.doc
БАЛАКОВСКИЙ
ИНСТИТУТ ТЕХНИКИ ТЕХНОЛОГИИ И УПРАВЛЕНИЯ
ФАКУЛЬТЕТ
ИНЖЕНЕРНО-СТРОИТЕЛЬНЫЙ
КАФЕДРА УПРАВЛЕНИЯ
ИНФОРМАТИКИ В ТЕХНИЧЕСКИХ СИСТЕМАХ
ЛАБОРАТОРНАЯ РАБОТА №3
ПО ДИСЦИПЛИНЕ
,,ПРОГРАММИРОВАНИЕ
И ОСНОВЫ АЛГОРИТМА,,
Выполнил: ст. гр. УИТ-23
Приняла: Стельмах
И. В.
Балаково 2005
Цель работы: овладение практическими навыками разработки алгоритмов и программ, разветвляющейся и циклической с заданным числом повторений структур.
Задание: вычислять многократно значение функции при изменении аргумента в указанном диапазоне с заданным шагом. Организовать вывод значения аргумента и вычисленного значения функции в виде таблицы.
x=x0
i=1, n
x≤2 2<x<5
x≥5
sin(x)
tg(x)
Program lab3.1;
Const deltax=1;
Var x, z, x0,xk, d: real;
n, i: integer;
Begin
Read (x0,xk);
Writeln ('tablica funcshii 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<=2 then z:=sin(x)
else if (2<x) and (x<5) then z:=cos(x)
else if x>=5 then z:=0.4343*ln(x);
Writeln (x:10:3, ' ',z:10:3);
x:=x+deltax;
end;
END.
X Z(x)
0.000 0.000
1.000 0.841
2.000 0.909
3.000 -0.990
4.000 -0.654
5.000 0.699
6.000 0.778
7.000 0.845
8.000 0.903
9.000 0.954
10.000 1.000
x=x0
x<xk
x≤2 2<x<5
x≥5
sin(x)
tg(x)
Program lab3.2;
Const deltax=1;
Var x, z, x0,xk, d: real;
n, i: integer;
Begin
Read(x0,xk);
Writeln ('tablica funcshii z(x)');
writeln(' x z(x)');
d:=(xk-x0)/deltax;
n:=trunc(d)+1;
x:=x0;
while x<xk do
begin
if x<=2 then z:=sin(x)
else if (2<x) and (x<5) then z:=cos(x)
else if x>=5 then z:=0.4343*ln(x);
Writeln (x:10:3, ' ',z:10:3);
x:=x+deltax;
end;
END.
X Z(x)
0.000 0.000
1.000 0.841
2.000 0.909
3.000 -0.990
4.000 -0.654
5.000 0.699
6.000 0.778
7.000 0.845
8.000 0.903
9.000 0.954
10.000 1.000
x=x0
x≤2 2<x<5
x≥5
sin(x)
tg(x)
Program lab3.3;
Const deltax=1;
Var x, z, x0,xk, d: real;
n, i: integer;
Begin
Read(x0,xk);
Writeln ('tablica funcshii z(x)');
writeln(' x z(x)');
d:=(xk-x0)/deltax;
n:=trunc(d)+1;
x:=x0;
repeat
if x<=2 then z:=sin(x)
else if (2<x) and (x<5) then z:=cos(x)
else if x>=5 then z:=0.4343*ln(x);
Writeln (x:10:3, ' ',z:10:3);
x:=x+deltax;
until x>xk;
END.
X Z(x)
0.000 0.000
1.000 0.841
2.000 0.909
3.000 -0.990
4.000 -0.654
5.000 0.699
6.000 0.778
7.000 0.845
8.000 0.903
9.000 0.954
10.000 1.000