Delphi. Логический тип данных.

[Iri4ik]

Переменным a, b, c целого типа предоставлено определенных значений. Поменять значения переменных местами так, чтобы значение
переменных a, b, c были упорядочены по возрастанию.

[BDA]

var
a, b, c, tmp : integer;
...
if (a > b) then
begin
    tmp := a;
    a := b;
    b := tmp;
end;
if (b > c) then
begin
    tmp := b;
    b := c;
    c:= tmp;
end;
if (a > b) then
begin
    tmp := a;
    a := b;
    b := tmp;
end;

[Serge_Bliznykov]

BDA, +1

иногда мысли сходятся вплоть до имён переменных...
мой старый пост с аналогичным кодом

[BDA]

Serge_Bliznykov,
Такой способ мне попался в прошлом году, как домашнее задание, когда нужно было ассемблерный код переписать на си. Вот он в голову и запал.

[veniside]

в 1/6 случаев этот код делает 1 лишнюю перестановку )

[BDA]

veniside, можете объяснить? Или пример привести?

[veniside]

точнее, 2 лишних перестановки )

например, если числа a=3, b=2 и c=1, то вместо того, чтобы просто переставить а и с, оно переставляет a и b, b и c, a и b.

вот похожий код, который иногда делает на одно сравнение больше, но никогда не делает лишних перестановок.

[Serge_Bliznykov]

вот похожий код, который иногда делает на одно сравнение больше, но никогда не делает лишних перестановок.

код, конечно, красивый.
Однако, я простым и очевидным алгоритм работы программы не назову!

[veniside]

да я сам в шоке )
но самое интересное начнётся, я думаю, когда переменных будет 4, 5, 6 и т.д.
Так недолго и новый алгоритм сортировки открыть, главное, взять лист побольше )

[Serge_Bliznykov]

да я сам в шоке )

хотя, по сути, подход правильный - инженерный (математический). Вместо того, чтобы решать задачу "в лоб", конечно же, желательно предварительно построить её математическую модель, попытаться её упростить и/или решить в общем виде.
Это всё правильно. Как говорится - "респект и уважуха"!
но, боюсь, что новичок, которому задали решить данную задачу - а) не поймёт решение б) не сможет его внятно объяснить и защитить при сдаче => работа не будет принята.
Хотя, я лично очень рад, что в данной теме появился такой код!