Обмен значений переменных

Задача

Написать функцию для обмена значений двух переменных

Решение

 

От пользователя требуется ввод двух чисел. Эти значения должны быть присвоены двум переменным, причем значение первой должно быть меньше второй. Конечно, можно предупредить об этом пользователя, но возможно ему удобней будет и не знать о требованиях программы. В коде программы можно реализовать процедуру, производящую обмен значений двух переменных, и вызывать ее после каждого очередного ввода пользователя.

Программа на языке Паскаль: 

 

var
    k, l: integer;
 
procedure exchange (var a,b: integer);
    var c: integer;
    begin
        if a > b then begin
            c := a;
            a := b;
            b := c;
        end;
    end;
 
begin
 
    writeln ('Введите два числа: ');
    readln (k, l);
 
    exchange (k, l);
 
    writeln ('k = ', k,'; l = ', l);
 
readln
end.

 

Тема

Процедуры, функции, рекурсии

Уровень

Простые задачи

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

CAPTCHA
Этот вопрос задается для того, чтобы выяснить, являетесь ли Вы человеком или представляете из себя автоматическую спам-рассылку.
CAPTCHA на основе изображений
Введите символы, которые показаны на картинке.