Процедура swap

@St1tches · Регистрация: 20.11.2015

Студворк — интернет-сервис помощи студентам

Поменять значение a,b,c,d так, чтобы они были расположены в порядке возрастания. При помощи процедуры swap. A,b,c,d вводятся с клавиатуры

Vadim1705 · 20.11.2015, 20:41

Pascal

var a,b,c,d:integer;
begin;
readln(a,b,c,d);
if a>b then swap(a,b);
if b>c then swap(b,c);
if c>d then swap(c,d);
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,' ',d);
end.

@volvo · 21.11.2015, 00:59

Pascal

var
  a, b, c, d: integer;
 
begin;
  readln(a, b, c, d);
  
  while c > d do
  begin
    swap(c, d);
    while b > c do
    begin
      swap(b, c);
      while a > b do
        swap(a, b);
    end;
  end;
  
  writeln(a, ' ', b, ' ', c, ' ', d);
end.

@St1tches 0 / 0 / 0 Регистрация: 20.11.2015 Сообщений: 19
		1
	Процедура swap 20.11.2015, 19:23. Показов 2503. Ответов 2 Метки нет (Все метки) Поменять значение a,b,c,d так, чтобы они были расположены в порядке возрастания. При помощи процедуры swap. A,b,c,d вводятся с клавиатуры 0

	21.11.2015, 00:59

Опции темы

Процедура swap

Решение