Составьте алгоритм упорядочения значения трех переменных по возрастанию, т.е. при любых...

Question

Составьте алгоритм упорядочения значения трех переменных по возрастанию, т.е. при любых исходных значениях А, В и С, отсортируйте их так, чтобы стало А<В<С. <br>На паскале программу напишите)

Comments

Искал в архиве, накнулся на твой вопрос :-) Приветствую тебя, коллега!

Answer 1

Procedure swap(var a, b: real);
var t: real;
begin
     t := a;
     a := b;
     b := t;
end;

var a, b, c: real;
begin
     readln(a, b, c);
     if (a > b) then swap(a, b);
     if (b > c) then swap(b, c);
     if (a > b) then swap(a, b);
     writeln(a, ' ', b, ' ', c);
end.
===========================
Без процедур:

var a, b, c, t: integer;
begin
     readln(a, b, c);
     if (a > b) then
     begin
          t := a;
          a := b;
          b := t;
     end;
     if (b > c) then
     begin
          t := b;
          b := c;
          c := t;
     end;
     if (a > b) then
     begin
          t := a;
          a := b;
          b := t;
     end;
     writeln(a, ' ', b, ' ', c);
end.

Comments

Процедура swap объявляется отдельно, в самом начале, но сейчас перепишу:)

---

Готово)

---

Danke, danke!

---

У меня есть к вам один небольшой вопрос. t,b и a - обычные переменные? Они весьма удивительные)

---

Да, самые обычные) А что удивительного?) Просто t (tempenary - временный) я привык использовать как буфер, временно сохранять там что-нибудь) Можно хоть как их обозвать)

---

Вы умнейший человек! Благодарю вас за помощь.

---

Н-нет, обычный, я тоже не знаю, как собрать двигатель и вырастить амёбу, так что я помогаю тем, чем могу и тем, кому надо)

---

Я напишу вам еще одну задачку, вы постараетесь решить, а потом я выложу вопрос с призами ввиде пунктов и кину вам ссылку. Мне приятно, и вам не за "спасибо") Договорились?

---

А впрочем, я постараюсь решить задачу самостоятельно.

---

Решил. Vivat brain!