Отчет по Практической работе №2
Задача 1.
Найти из двух чисел X,Y минимальное число и занести в Y
Текст программы на Object Pascal:
program Zad1;
{$APPTYPE CONSOLE}
uses
SysUtils, Windows;
var
x,y: Real;
begin
write('x = ');readln(x);
write('y = ');readln(y);
if x < y then
y:= x;
write('min(x,y) = ',y:6:2);
readln;
end.
Тестовые наборы данных для тестирования приложения.
Номер теста |
Исходные данные |
Ожидаемый результат |
Примечание |
1 |
X = 2, Y = 3 |
Y = 2 |
Левая ветвь IFTHEN |
2 |
X = 3, Y = 2 |
Y = 2 |
Правая ветвь IFTHEN |
2 |
X = 1, Y = 1 |
Y = 1 |
Правая ветвь IFTHEN |
Задача 2.
Найти из двух чисел X,Y минимальное число и занести в Z.
Текст программы на Object Pascal:
program Zad2;
{$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
else
z:= y; // z= min(x,y)
write('min(x,y) = ',z:6:2);
readln;
end.
Тестовые наборы данных для тестирования приложения.
Номер теста |
Исходные данные |
Ожидаемый результат |
Примечание |
1 |
X = 2, Y = 3 |
Z = 2 |
Левая ветвь IFTHEN |
2 |
X = 3, Y = 2 |
Z = 2 |
Правая ветвь IFTHEN |
Задача 3.
Упорядочить значения переменных X, Y в порядке возрастания их значений, так чтобы
X <= Y.
Текст программы на Object Pascal:
program Zad3;
{$APPTYPE CONSOLE}
uses
SysUtils, Windows;
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;
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).
Текст программы на Object Pascal:
program Zad4;
{$APPTYPE CONSOLE}
uses
SysUtils, Windows;
var
Max,x,y,z: Real;begin
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
write('x = ');readln(x);
write('y = ');readln(y);
write('z = ');readln(z);
if x < y then
Max:= 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.
Текст программы на Object Pascal:
program Zad5;
{$APPTYPE CONSOLE}
uses
SysUtils,
Windows;
var
x,y,z,t: Real;
begin
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
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 |