Programación General > Pascal

 Ordenamiento de Burbuja

(1/1)

OwlKain:
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.

--- Fin de la cita ---

epayan:
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

Navegación

[0] Índice de Mensajes