Ver Mensaje Individual
  #4  
Antiguo 14-03-2015
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Reputación: 21
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
gonza22salta,

Cita:
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:
Espero sea útil

Nelson.

Última edición por nlsgarcia fecha: 14-03-2015 a las 16:47:31.
Responder Con Cita