она нам еще пригодится. Proce
она нам еще пригодится.
Procedure Swap (var a, b : item);
var
tmp : item;
begin
tmp := a; {Шаг 1}
a := b; {Шаг 2}
b := tmp {Шаг 3}
end;
При использовании следует лишь вместо item подставить соответствующий условию задачи тип данных.
Заметьте, что этот алгоритм не зависит от внутреннего представления данных, тогда как в теме занятия заявлено некое ограничение. Нередко переход от общей постановки задачи к более частной ситуации позволяет найти иное, отличное от общего подхода, решение.
Алгоритм обмена (2)
Имеется 2 целочисленных переменных a и b, причем их сумма не выходит за рамки диапазона значений, допускаемого заданным типом. Поменять их значения местами.
В этом случае можно использовать механизм, не требующий дополнительной переменной:
a := a + b; b := a - b; a := a - b;
*
Сравните : при тех же a=5 и b=8 получаем
a?13; b?5; a?8
Упражнение #1.
Напишите соответствующую процедуру Swap2.
Наконец, есть еще
Алгоритм обмена
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
