SoloCodigo

Programación General => Pascal => Mensaje iniciado por: OwlKain en Miércoles 11 de Agosto de 2010, 19:51

Título: Ordenamiento de Burbuja
Publicado por: OwlKain en Miércoles 11 de Agosto de 2010, 19:51

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.

Título: Re: Ordenamiento de Burbuja
Publicado por: epayan en Martes 17 de Agosto de 2010, 17:20

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