Разработайте, отладьте и протестируйте программу, которая производит обмен значений числовых переменных x и y, если x больше y. Для проверки правильности программы используйте тест:
| Входные данные | Выходные данные |
|---|---|
| x = 5, y = 6 | x = 5, y = 6 |
| x = 6, y = 5 | x = 5, y = 6 |
Если x > y, требуется переставить значения. Одного присваивания недостаточно: при x := y старое значение x потерялось бы. Поэтому используем временную переменную t и три присваивания, заключённые в begin ... end как одну ветвь условного оператора.
var
x, y, t: real;
begin
write('x>>');
readln(x);
write('y>>');
readln(y);
if x > y then
begin
t := x;
x := y;
y := t
end;
writeln('x=', x);
writeln('y=', y)
end.
Первый тест: t := x имеем t = x := y имеем x = y := t имеем y =
Для (
