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

[Megapol]

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

program zad;
uses crt;
procedure swap (var a,b:integer);
var c:integer;
begin
c:=a; a:=b; b:=c;
end;
var a,b,c,d,e : integer;
begin
clrscr;
writeln('vvedite chisla:');
readln(a, b, c, d, e);
writeln('novie chisla:');
if a>e then swap(a, e);
if b>d then swap(b, d);
if b>c then swap(b, c);
if c>d then swap(c, d);
if d>e then swap(d, e);
if c>d then swap(c, d);
if b>c then swap(b, c);
write(a, ' ', b, ' ', c, ' ', d, ' ', e);
readln
end.

[Megapol]

не выводит правильно числа : 5 3 1 7 9 ; 22 44 67 87 99

[BDA]

Проверьте:

program zad;
uses crt;
procedure swap (var a,b:integer);
  var c:integer;
begin
  c:=a; a:=b; b:=c;
end;
var a,b,c,d,e : integer;
begin
  clrscr;
  writeln('vvedite chisla:');
  readln(a, b, c, d, e);
  writeln('novie chisla:');
  if a>b then swap(a, b); 
  if b>c then swap(b, c);
  if c>d then swap(c, d);
  if d>e then swap(d, e);
  if c>d then swap(c, d);
  if b>c then swap(b, c);
  if a>b then swap(a, b); 
  write(a, ' ', b, ' ', c, ' ', d, ' ', e);
  readln
end.

Контр пример 5 4 3 2 1
Нужно думать дальше...

[Poma][a]

5 4 3 2 1

Ответ :

1 4 3 2 5

Как решить - я не знаю.. Поэтому пошел с начала

Программа для 2-х чисел :

procedure Swap (var a, b : Integer);
var
	t : Integer;
	
begin
	
	t := a;
	a := b;
	b := t

end;
	
var
	a1, a2 : Integer;
	
begin
	ReadLn (a1, a2);
	
	if a1 > a2 then
		Swap (a1, a2);
		
	WriteLn (a1, ' ', a2)
end.

Для трех :

procedure Swap (var a, b : Integer);
var
	t : Integer;
	
begin
	
	t := a;
	a := b;
	b := t

end;
	
var
	a1, a2, a3 : Integer;
	
begin
	ReadLn (a1, a2, a3);
	
	if a1 > a2 then
		Swap (a1, a2);
	
	if a2 > a3 then
		Swap (a2, a3);
		
	if a1 > a2 then
		Swap (a1, a2);
	
	WriteLn (a1, ' ', a2, ' ', a3)
end.

Теперь для 4.. Мне не нравится..

procedure Swap (var a, b : Integer);
var
	t : Integer;
	
begin
	
	t := a;
	a := b;
	b := t

end;
	
var
	a1, a2, a3, a4 : Integer;
	
begin
	ReadLn (a1, a2, a3, a4);
	
	if a1 > a2 then
		Swap (a1, a2);
	if a3 > a4 then
		Swap (a3, a4);
	if a2 > a3 then
		Swap (a2, a3);
	if a1 > a2 then
		Swap (a1, a2);
	if a3 > a4 then
		Swap (a3, a4);
	if a2 > a3 then
		Swap (a2, a3);
		
	
	WriteLn (a1, ' ', a2, ' ', a3, ' ', a4)
end.

Дальше - пока не знаю..
Хочется оптимизировать вариант с 4-мя числами, тогда, возможно, мы получим что-то хорошее


Ура!
Для 4-ых я сделал!

procedure Swap (var a, b : Integer);
var
	t : Integer;
	
begin
	
	t := a;
	a := b;
	b := t

end;
	
var
	a1, a2, a3, a4 : Integer;
	
begin
	ReadLn (a1, a2, a3, a4);
	
	if a1 < a2 then // да! Именно меньше!
		Swap (a1, a2);
		
	if a4 > a3 then
		Swap (a4, a3);
		
	if a1 > a4 then
		Swap (a1, a4);
		
	if a2 > a3 then
		Swap (a2, a3);
		
	
	WriteLn (a1, ' ', a2, ' ', a3, ' ', a4)
end.

А вот и я до 5 добрался

procedure Swap (var a, b : Integer);
var
	t : Integer;
	
begin
	
	t := a;
	a := b;
	b := t

end;
	
var
	a1, a2, a3, a4, a5 : Integer;
	
begin
	ReadLn (a1, a2, a3, a4, a5);
	
	if a1 < a2 then 
		Swap (a1, a2);
		
	if a5 > a4 then
		Swap (a4, a5);
		
	if a1 > a5 then
		Swap (a1, a5);
		
	if a2 > a3 then
		Swap (a2, a3);
	
	if a3 > a4 then
		Swap (a3, a4);
		
	if a2 > a3 then
		Swap (a2, a3);
			
	
	WriteLn (a1, ' ', a2, ' ', a3, ' ', a4, ' ', a5)
end.

(Решение валится при тесте : 1 2 3 4 5)
Даже одно сравнение в запасе

[Megapol]

она всервно у тебя не правльно рабтает. та которая передлана првильнее считает

[Poma][a]

Для 5-ти.. Кажется, работает прально..

procedure Swap (var a, b : Integer);
var
	t : Integer;
	
begin
	
	t := a;
	a := b;
	b := t

end;
	
var
	a1, a2, a3, a4, a5 : Integer;
	
begin
	ReadLn (a1, a2, a3, a4, a5);
	
	if a1 > a5 then
		Swap (a5, a1);
	
	if a2 > a4 then
		Swap (a2, a4);
	
	if a1 > a2 then
		Swap (a1, a2);
	
	if a4 > a5 then
		Swap (a4, a5);
	
	if a2 > a3 then
		Swap (a2, a3);
	
	if a1 > a2 then
		Swap (a1, a2);
	
	if a4 > a5 then
		Swap (a4, a5);
	
	WriteLn (a1, ' ', a2, ' ', a3, ' ', a4, ' ', a5);
end.

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

Они обе дают не корректный ответ на каких-либо тестах? О какой правильности может идти речь?

[Аватар]

  if e<a then swap(e,a);
  if d<b then swap(d,b);
  if b<a then begin swap(b,a); swap(e,d); end;
  if c<b then begin
    x:=c; c:=b;
    if x<a then swap(x,a);
    b:=x;
  end
  else if d<c then swap(d,c);
  if e<c then begin
    x:=e; e:=d; d:=c;
    if x<b then begin c:=b; b:=x; end
           else c:=x;
  end
  else if e<d then swap(e,d);

[Poma][a]

Аватар, а Вам не кажется, что в Вашем варианте больше 7 развилок?

[s-andriano]

А какая разница, сколько ветвлений, если по любому пути их встретится не более 7?

PS. Проверил решение на нескольких миллионах примеров, включая повторяющиеся числа.
Ошибок не обнаружено.

[Poma][a]

Тогда надо спрашивать у автора задачи что он имел ввиду.

А если у Вас так все автоматизированно, не могли бы Вы вариант из поста#6 прогнать(всмысле на тестах) ? Заранее спасибо!