Расположить 3 числа в порядке возрастания

[locked]

Нужно написать программу (используя промежуточные переменные min, mid, max), которая бы выводила 3 числа в порядке возрастания.
Помогите разобраться с промежуточным числом mid, как его обозначить в программе...

uses crt;
var a,b,c,max,mid,min: real;
begin
  clrscr;
  writeln('Input a,b,c');
  readln(a,b,c);
  if (a>=b) then max:=a
               else max:=b;
  if (max<c) then max:=c;
  if (a>=b) then min:=b
               else min:=a;
  if c<min then min:=c;
  ??????????????????????
  writeln(min:5:2, mid:5:2, max:5:2);
  readln
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

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

вот один из таких способов, близкий к вашему алгоритму:

uses crt;
var a,b,c,max,mid,min: real;
begin
  clrscr;
  writeln('Input a,b,c');
  readln(a,b,c);
  if (a>b) and (a>c) then max:=a
  else
    if (b>a) and (b>c) then max:=b
    else max := c;

  if (a<b) and (a<c) then min:=a
  else
    if (b<a) and (b<c) then min:=b
    else min := c;

  if (a>min) and (a<max) then mid := a
  else 
    if (b>min) and (b<max) then mid := b
    else mid := c;

  writeln(min:5:2,' ', mid:5:2,' ', max:5:2);
  readln
end.

[Вадим Мошев]

Кстати, нахождение экстремального значения из N чисел, которые записаны в несвязные переменные (не массив), подобно нахождению экстремального значения в массиве. Например, для нахождения максимума из трёх чисел вполне подойдёт такой код:

max:=a;

if b > max then max:=b;
if c > max then max:=c;

ну, а найти среднее можно тогда

mid:=a+b+c - max - min

[locked]

большое спасибо!

[Serge_Bliznykov]

Сообщение от Вадим Мошев

ну, а найти среднее можно тогда

mid:=a+b+c - max - min

Остроумно!!

Только хочу предостеречь.
Такой код может выдать в качестве среднего не одно из чисел, а ПРИБЛИЖЁННОЕ значение (это может произойти из-за потери точности).
Например, проверьте для таких чисел: 10000000000 0.1 9999999