• Sábado 7 de Diciembre de 2019, 02:47

Autor Tema:  Ordenamiento de Burbuja  (Leído 1005 veces)

OwlKain

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Ordenamiento de Burbuja
« en: Miércoles 11 de Agosto de 2010, 19:51 »
0
Necesitaría saber cuál es el error en el programa con el siguiente código fuente:

Nota: Estoy utilizando el software Delphi.

-------------------------------------------------------------------------------------------------

Citar
program burbuja;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
vector=array[1..10] of integer;
var
v:vector; i,n:integer;

procedure  burbuja (var v:vector; n:integer);
var
i,j,aux:integer;
begin
for i:=1 to n-1 do
 for j:=1 to n-i do
   begin
      if v > v[j+1] then
        begin
              aux:=v[j];
             v[j]:=v[j+1];
           v[j+1]:=aux;
        end;
   end;
end;

begin
n:=10;
for i:=1 to n do
  begin
    writeln('Ingrese valor');
    readln(v);
  end;
burbuja(v,n);
for i:=1 to n do
  begin
    writeln(v);
  end;
readln;
end.

epayan

  • Miembro activo
  • **
  • Mensajes: 41
  • Nacionalidad: mx
    • Ver Perfil
    • http://www.pillin-slk.blogspot.com
Re: Ordenamiento de Burbuja
« Respuesta #1 en: Martes 17 de Agosto de 2010, 17:20 »
0
estoy seguro que aki encontraras el metodo de ordenamiento que buscas


Métodos de Ordenación

h t t p ://driverop.com.ar/pascal.php