Выборочная сортировка. Странный баг

@HiNeX · Регистрация: 05.01.2013

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

Добра пользователям сего форума, пожаловал я к вам с проблемой в задачке одной:

"- Написать программу, которая методом прямого выбора сортирует по убыванию введенный с клавиатуры одномерный массив."

Не внимательно вкурив задание данное, накодил я сортировку по возрастанию:

Кликните здесь для просмотра всего текста

Pascal

program HIN3;
 
uses crt;
var min, c, i, j, buffer:integer;
    num:array[1..10] of integer;
 
BEGIN
    ClrScr;
                    
    WriteLn('Введите 10 чисел: ');
        
    min := 1;
 
    for c:=1 to 10 do
        begin       
            Write(c,'. ');
            Read(num[c]);
            
            if (num[min] > num[c]) then
                begin
                    min := c;
                end;
        end;
 
    WriteLn;
    WriteLn('Минимальное число, ', num[min], ' под номером ', min);
    WriteLn;
    WriteLn('Отсортированный массив:');
    
    for i:=1 to 10 do
        begin
            buffer := num[i];
            num[i] := num[min];
            num[min] := buffer;
 
            min:=num[i+1];
            
            for j:=i+1 to 10 do
                begin
                    if (num[min] > num[j]) then
                        begin
                            min:=j;
                        end;
                end;
                
            WriteLn(i, '. ', num[i]);
        
        end;
        
    Repeat until keypressed;
END.

Но позже опомнился. Теперь вопрос, как правильно переделать вывод массива по убыванию без костылей? Ибо при попытках, получалось у меня такое:

Код варианта последнего, с косяком после шага 5-го:

Кликните здесь для просмотра всего текста

Pascal

program HIN3;
 
uses dos, crt;
var max, c, i, j, buffer:integer;
    num:array[1..10] of integer;
 
BEGIN
    ClrScr;
                    
    WriteLn('Введите 10 чисел: ');
        
 
    for c:=1 to 10 do
        begin       
            Write(c,'. ');
            Read(num[c]);
            
            if (num[c] > num[max]) then
                begin
                    max := c;
                end;
        end;
 
    WriteLn;
    WriteLn('Максимальное число, ', num[max], ' под номером ', max);
    WriteLn;
    WriteLn('Отсортированный массив:');
    
    for i:=1 to 10 do
        begin
            buffer := num[i];
            num[i] := num[max];
            num[max] := buffer;
 
            max:=num[i+1];
            
            for j:=i+1 to 10 do
                begin
                    if (num[j] > num[max]) then
                        begin
                            max:=j;
                        end;
                end;
                
            WriteLn(i, '. ', num[i]);
        
        end;
    
 
        
    Repeat until keypressed;
END.

Очень надеюсь на помощь светлых умов, с идеями правильного решения данной задачи. В поиск прошу не отправлять. Ибо интересно очень увидеть не готовые решения, а то, как можно переделать уже написанный мной код. Спасибо за внимание, с нетерпением жду ответов ваших.

P.S. Третий цикл прошу не предлагать

@ermolay · 05.01.2013, 19:01

и тебе добра, HiNeX, и добро пожаловать на форум наш.
компилилось сие в pascal.abc, потому не забудь раскомментить строки..

Pascal

program HIN3;
//uses dos, crt;
var
  max, c, i, j, buffer: integer;
  num: array[1..10] of integer;
 
begin
//  ClrScr;
  max:=1;
  WriteLn('Ââåäèòå 10 ÷èñåë: ');
  for c := 1 to 10 do
  begin
    Write(c, '. ');
    Read(num[c]);
    if (num[c] > num[max]) then
      max := c;
  end;
  WriteLn;
  WriteLn('Ìàêñèìàëüíîå ÷èñëî, ', num[max], ' ïîä íîìåðîì ', max);
  WriteLn;
  WriteLn('Îòñîðòèðîâàííûé ìàññèâ:');
 
  for i := 1 to 9 do
    for j := i + 1 to 10 do
      if (num[j] > num[i]) then
      begin
        buffer := num[i];
        num[i] := num[j];
        num[j] := buffer;
      end;
 
  for i:=1 to 10 do
    writeln(i,'. ',num[i]);
  // Repeat until keypressed;
end.

@HiNeX · 05.01.2013, 20:01 **[ТС]**

Сообщение от ermolay

и тебе добра, HiNeX, и добро пожаловать на форум наш.
компилилось сие в pascal.abc, потому не забудь раскомментить строки..

За ответ Ваш, искренней благодарю

. Но имеется проблема одна, код Ваш, он методом пузырька выполнен. Не подходит по заданию техническому... Голову ломал я, но ответа пока не нашел. И всё-таки интересно, где-же я в логике ошибся-то.) Уже и на священном C++ алгоритмы проверить успел, всё та же ересь после шага 5-го

@ermolay · 05.01.2013, 20:43

хмм, да, то отбором была сортировка (но не пузырьком)..
вот две выбором, если не ошибаюсь снова )

Pascal

program HIN3;
//uses dos, crt;
var
  max, c, i, j, buffer,m: integer;
  num: array[1..10] of integer;
 
begin
//  ClrScr;
  max:=1;
  WriteLn('Введите 10 чисел: ');
  for c := 1 to 10 do
  begin
    Write(c, '. ');
    Read(num[c]);
    if (num[c] > num[max]) then
      max := c;
  end;
  WriteLn;
  WriteLn('Максимальное число, ', num[max], ' под номером ', max);
  WriteLn;
  WriteLn('Отсортированный массив:');
  
  {for i:=1 to 9 do // сортировка выбором
  begin
    m:=i;
    buffer:=num[i];
    for j:=i+1 to 10 do
    if buffer>num[j] then
    begin
      m:=j;
      buffer:=num[j];
    end;
    num[m]:=num[i];
    num[i]:=buffer;
  end;}
  
  for i:=1 to 9 do //cортировка выбором без запоминания минимума
  begin
    m:=i;
    for j:=i+1 to 10 do
      if num[j]<num[m] then
        m:=j;
    buffer:=num[i];
    num[i]:=num[m];
    num[m]:=buffer;
  end;
   
  for i:=1 to 10 do
    writeln(i,'. ',num[i]);
  // Repeat until keypressed;
end.

Добавлено через 1 минуту
дополнил..

@HiNeX · 05.01.2013, 21:01 **[ТС]**

Нашел решение сей задачи после длительного полового акта с алгоритмом окаянным, всем спасибо за внимание. ermolay спасибо за ответ.
P.S. Решение прилагается, для тех кому интересно. Проблема в вычислении последующего максимального числа имелась.

Кликните здесь для просмотра всего текста

Pascal

program HiNeX5;
 
uses dos, crt;
var max, c, i, j, buffer:integer;
    num:array[1..10] of integer;
 
BEGIN
    ClrScr;
                    
    WriteLn('Enter 10 numbers: ');
 
 
    for c:=1 to 10 do
        begin
            Write(c,'. ');
            Read(num[c]);
 
            if (num[c] > num[max]) then
                begin
                    max := c;
                end;
        end;
 
    WriteLn;
    WriteLn('Maximum number: ', num[max], ', ID: ', max);
    WriteLn;
    WriteLn('Sorted array:');
 
    for i:=1 to 10 do
        begin
            buffer := num[i];
            num[i] := num[max];
            num[max] := buffer;
 
            max := i+2;
 
            for j:=i+1 to 10 do
                begin
                    if (num[j] > num[max]) then
                        begin
                            max:=j;
                        end;
                end;
 
            WriteLn(i, '. ', num[i]);
 
        end;
 
 
 
    Repeat until keypressed;
END.

@HiNeX 0 / 0 / 0 Регистрация: 05.01.2013 Сообщений: 4
	05.01.2013, 20:01 [ТС]	3
	Сообщение от ermolay и тебе добра, HiNeX, и добро пожаловать на форум наш. компилилось сие в pascal.abc, потому не забудь раскомментить строки.. За ответ Ваш, искренней благодарю . Но имеется проблема одна, код Ваш, он методом пузырька выполнен. Не подходит по заданию техническому... Голову ломал я, но ответа пока не нашел. И всё-таки интересно, где-же я в логике ошибся-то.) Уже и на священном C++ алгоритмы проверить успел, всё та же ересь после шага 5-го 0

	05.01.2013, 21:01