Dada una lista de números enteros, encontrar la sublista ordenada mas grande

[[nlsgarcia]]

gonza22salta,

Empezado por gonza22salta

...Dada una lista de números enteros, encontrar la sublista ordenada mas grande y mostrarla...

Revisa este código:

Código Delphi [-]
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
   A1 : Array[0..9]  of Integer = (5, 3, 8, 1, 9, 7, 4, 2, 10, 6);
   i : Integer;

procedure BubbleSort(var A : Array of Integer);
var
   i , j : Integer;
   Aux: Integer;

begin

   for j := Low(A) to High(A) - 1 do
      for i := j + 1 to High(A) do
      begin
         if A[j] > A[i] then
         begin
            Aux := A[j];
            A[j] := A[i];
            A[i] := Aux;
         end;
      end;

end;

begin

   writeln('Arreglo numerico sin ordenamiento');

   for i := Low(A1) to High(A1) do
      write(IntToStr(A1[i]) + ' ');

   writeln(#10);
   writeln('Arreglo numerico con ordenamiento');

   BubbleSort(A1);

   for i := Low(A1) to High(A1) do
      write(IntToStr(A1[i]) + ' ');

   readln;

end.

El código anterior en Delphi 7 sobre Windows 7 Professional x32, ordena un arreglo numérico de forma ascendente por medio del algoritmo BubbleSort, como se muestra en la siguiente imagen:



Revisa esta información:

1- Bubble sort
2- Shell sort
3- Selection sort
4- Implementing QuickSort Sorting Algorithm in Delphi

Espero sea útil

Nelson.