Описать процедуру которая для трех чисел a b c осуществляет перераспределение значений по правилу а>= b>=c

[maksim1908]

Описать процедуру которая для трех чисел a b c осуществляет перераспределение значений по правилу а>= b>=c

[Stilet]

procedure aga(var a,b,c:integer);
var q:integer;
begin
 if a<b then begin q:=a;a:=b;b:=q;end;
 if b<c then begin q:=b;c:=b;c:=q;end;
end;

Вроде так. Но пишу с потолка. Не проверял.

[Serge_Bliznykov]

ну, во-первых, опечатка:

if b<c then begin q:=b;c:=b;c:=q;end;

if b<c then begin q:=c;c:=b;b:=q;end;

добавим брутальности..
как вам такой вариант:

procedure aga(var a,b,c:integer);
var q:integer;
begin
 while (a<b) or (a<c) or (b<c) do begin
   if a<c then begin q:=a;a:=c;c:=q;end;
   if a<b then begin q:=a;a:=b;b:=q;end;
   if b<c then begin q:=c;c:=b;b:=q;end;
 end;
end;

[Poma][a]

А как Вас такой?

uses Math;

b := a+b+c-Min(Min(a, c), b)-Max(Max(a, c), b);
c := Min(Min(a, c), b);
a := Max(Min(a, c), b);

[Аватар]

Poma][a, если в с или a попадет b, то уже что-то не так. А вообще для a=1, b=2, c=3 получим из твоего кода a=2, b=2, c=1

[Poma][a]

Угу.. Теряем значение.. спасибо.. проглядел..