Зайцев М. Г. / Отчет по практике2 Зайцев 2 семестр
.docxОтчет по практике№2
Задача№1
Найти минимальное число из двух чисел x,y и занести в y.
program z1;
{$APPTYPE CONSOLE}
uses
SysUtils,
windows;
var x,y:Real;
begin
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
write('x = ');readln(x);
write('y = ');readln(y);
if x < y then
y:= x;
write('min(x,y) = ',y:6:2);
readln;
end.
Задача№2
Найти максимальное число из двух чисел x,y и занести в z.
program z2;
{$APPTYPE CONSOLE}
uses
SysUtils,
windows;
var x,y,z:Real;
begin
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
write('x = ');readln(x);
write('y = ');readln(y);
if x > y then
z:= x;
write('max(x,y) = ',z:6:2);
readln;
end.
Задача№3
Упорядочить значения переменных x,y в порядке возрастания их значений, так чтобы x<=y.
program z3;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
t,x,y: Real;
begin
write('x = ');readln(x);
write('y = ');readln(y);
if x > y then
begin
t:= y;
y:= x;
x:= t
end; // x <= y
write('x = ',x:6:2,' y = ',y:6:2);
readln;
end.
Номер теста |
Исходные данные |
Ожидаемый результат |
Путь прохождения |
1 |
X = 2, Y = 3 |
X = 2,Y = 3 |
Левая ветвь IFTHEN |
2 |
X = 3, Y = 2 |
X = 2,Y = 3 |
Правая ветвь IFTHEN |
Задача№4
Реализовать функцию нахождения максимального из трёх чисел d = max(x, y, z).
program Pmax;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
Max,x,y,z: Real;
begin
write('x = ');readln(x);
write('y = ');readln(y);
write('z = ');readln(z);
if x < y then
Max:= y; //Max = max(x,y)
if Max < z then
Max:= z; //Max = max(x,y,z)
write('max(x,y,z) = ',Max:6:2);
readln;
end.
Номер теста |
Исходные данные |
Ожидаемый результат |
Путь прохождения |
1 |
X = 3, Y = 2, Z = 1 |
X = 1,Y = 2, Z = 3 |
Левая, левая ветвь IFTHEN |
2 |
X = 1, Y = 2, Z = 3 |
X = 1,Y = 2, Z = 3 |
Правая, правая ветвь IFTHEN |
3 |
X = 2, Y = 1, Z = 3 |
X = 1,Y = 2, Z = 3 |
Левая, правая ветвь IFTHEN |
4 |
X = 1, Y = 3, Z = 2 |
X = 1,Y = 2, Z = 3 |
Правая, левая ветвь IFTHEN |
Задача№5
Упорядочить значения переменных x,y,z в порядке убывания их значений, так чтобы x>=y>=z.
program Preorder;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
x,y,z,t: Real;
begin
write('x = ');readln(x);
write('y = ');readln(y);
write('z = ');readln(z);
if x > y then
begin t:= x; x:= y; y:= t end;//x = min(x,y)
if x > z then
begin t:= x; x:= z; z:= t end;//x = min(x,y,z)
if y > z then
begin t:= y; y:= z; z:= t end;//x <= y <= z
write('x = ',x:6:2,' y = ',y:6:2,' z = ',z:6:2);
readln;
end.
Номер теста |
Исходные данные |
Ожидаемый результат |
Путь прохождения |
1 |
X = 1, Y = 2, Z = 3 |
X = 1,Y = 2, Z = 3 |
Левая, левая, левая ветвь IFTHEN |
2 |
X = 3, Y = 2, Z = 1 |
X = 1,Y = 2, Z = 3 |
Правая, правая, правая ветвь IFTHEN |
3 |
X = 2, Y = 1, Z = 3 |
X = 1,Y = 2, Z = 3 |
Правая, левая, левая ветвь IFTHEN |
4 |
X = 3, Y = 1, Z = 2 |
X = 1,Y = 2, Z = 3 |
Правая, правая, левая ветвь IFTHEN |
5 |
X = 2, Y = 3, Z = 1 |
X = 1,Y = 2, Z = 3 |
Левая, правая, правая ветвь IFTHEN |
6 |
X = 1, Y = 3, Z = 2 |
X = 1,Y = 2, Z = 3 |
Левая, правая, левая ветвь IFTHEN |
7 |
X = 1, Y = 2, Z = 1 |
X = 1,Y = 2, Z = 3 |
Левая, левая, правая ветвь IFTHEN |
8 |
X = 4, Y = 1, Z = 3 |
X = 1,Y = 2, Z = 3 |
Правая, левая, правая ветвь IFTHEN |
Задача№6 Сформировать значение логической переменной следующим образом: True если точка с координатами (x,y) принадлежит прямоугольной области V на плоскости, False - в противном случае
Задача№9 Преобразовать символ, изображающий р-ичную цифру в целое число
program PDigToNum;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
ch: Char;
n: integer;
begin
write('ch = '); readln(ch);
case ch of
'0'..'9': n:= Ord(ch) - Ord('0');
'A'..'F': n:= Ord(ch) - Ord('A') + 10;
'a'..'f': n:= Ord(ch) - Ord('a') + 10;
else n:= -1;
end;
write('n = ',n);
readln;
end.
Номер теста |
Исходные данные |
Ожидаемый результат |
Путь прохождения |
1 |
ch = ‘0’ |
n = 0 |
первая ветвь case |
2 |
ch = ‘9’ |
n = 9 |
первая ветвь case |
3 |
ch = ‘A’ |
n = 10 |
вторая ветвь case |
4 |
ch = ‘F’ |
n = 15 |
вторая ветвь case |
5 |
ch = ‘a’ |
n = 10 |
третья ветвь case |
6 |
ch = ‘f’ |
n = 15 |
третья ветвь case |
7 |
ch = ‘w’ |
n = -1 |
четвёртая ветвь case |