Вопрос по информатике:
Описать процедуру SortInc3(A,
B, C), меняющую содержимое переменных A, B, C таким
образом, чтобы их значения оказались упорядоченными по возрастанию (A, B,
C — вещественные параметры, являющиеся одновременно входными и
выходными). С помощью этой процедуры упорядочить по возрастанию два данных
набора из трех чисел: (A1, B1, C1) и (A2, B2, C2).
- 23.07.2018 03:33
- Информатика
- remove_red_eye 14627
- thumb_up 17
Ответы и объяснения 1
Procedure SwapInc(var a, b: real);
begin
a := a + b;
b := a - b;
a := a - b;
end;
procedure SortInc3(var a,b,c: real);
begin
if a > b then SwapInc(a,b);
if b > c then SwapInc(b,c);
if a > b then SwapInc(a,b);
end;
var a,b,c: real; i: integer;
begin
for i := 1 to 2 do begin
write ('a', i, '='); readln(a);
write ('b', i, '='); readln(b);
write ('c', i, '='); readln(c);
SortInc3(a, b, c);
writeln(a, ' ', b, ' ', c);
end;
end.
- 24.07.2018 14:24
- thumb_up 14
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.