Автор: Anton

Anton — Mon, 11 Jan 2016 04:52:55 +0000

В ответ на olegst1975. Добавил в шапку, но вынес write(a,b,c); из процедуры.

Автор: olegst1975

olegst1975 — Sun, 10 Jan 2016 21:52:01 +0000

используя Swap из Proc6

[crayon-696036fd3ed59293941218 inline="true" ]
procedure Swap(var x,y:real);
  begin
  x:=x+y;
  y:=x-y;
  x:=x-y;
  end;

procedure SortDec3(var a,b,c:real);
  begin
   if a<b then Swap(a,b);
   if b<c then Swap(b,c);
   if a<b then Swap(a,b);
   write(a,b,c);
  end;

var
  a,b,c:real;
  i:integer;
begin
  for i:=1 to 2 do
   begin
    read(a,b,c);
    SortDec3(a,b,c);
   end;
end.

[crayon-696036fd3ed59293941218 inline="true" ]

procedure Swap(var x,y:real);

begin

x:=x+y;

y:=x-y;

x:=x-y;

end;

procedure SortDec3(var a,b,c:real);

begin

if a<b then Swap(a,b);

if b<c then Swap(b,c);

if a<b then Swap(a,b);

write(a,b,c);

end;

var

a,b,c:real;

i:integer;

begin

for i:=1 to 2 do

begin

read(a,b,c);

SortDec3(a,b,c);

end;

end.

[/crayon]

Комментарии: Решаем задачи Абрамян на Паскале. Proc 13

Автор: Anton

Автор: olegst1975