Обмен значений переменных x и y если x больше y

Напишите программу, которая производит обмен значений переменных 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.

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

девятнадцать − 15 =