Напишите программу, которая производит обмен значений переменных x и y если x больше y. Задачу можно решить несколькими способами. Предлагаю два.
Простая задача, с помощью которой можно продемонстрировать использование условного оператора if.
Решение
Напомним, как нужно использовать этот оператор.
Мы вводим с клавиатуры числа в переменные x и y типа integer, затем в операторе if проверяем условие x>y: если оно истинно, то выполняется then-блок оператора. Если x больше y, то происходит обмен значений переменных и на экран выводятся новые значения x и y.
x:=x+y;
y:=x-y;
x:=x-y;
writeln(‘x=’,x);
writeln(‘y=’,y);
или с использованием дополнительной переменной z
z:=x;
x:=y;
y:=z;
writeln(‘x=’,x);
writeln(‘y=’,y);
1 способ
Без использования дополнительной переменной.
Код:
program Obmen;
var x,y: integer;
begin
writeln(‘Введите значения x и y’);
readln(x,y);
if x>y then
begin
x:=x+y;
y:=x-y;
x:=x-y;
writeln(‘x=’,x);
writeln(‘y=’,y);
end;
end.
2 способ
С использованием дополнительной переменной.
Код:
program Obmen2;
var x,y,z: integer;
begin
writeln(‘Введите значения x и y’);
readln(x,y);
if x>y then
begin
z:=x;
x:=y;
y:=z;
writeln(‘x=’,x);
writeln(‘y=’,y);
end;
end.