Pascal/Turbo Pascal - pascal metodo burbujas

   
Vista:

pascal metodo burbujas

Publicado por darwin perdomo (3 intervenciones) el 27/06/2009 18:35:46
Buenas el motivo de esta nota es para q me presten ayuda con un problema q tengo se me ha mandado a ordenar un vector de 20 espacios con un rango de numeros comprendidos entre -20 y 20 estoy utilizando el metodo de burbujas si ingreso puros numeros positivos me los ordena sin problemas (los debo ordenar de forma descendente y ascendente) el problema viene cuando el vector tiene numeros negativos los cuales me los cambia por 0 (ceros) no se xq y los positivos si me los ordena...

espero que me puedan ayudar... ya no consigo la solucion...! :S

gracias de antemano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:pascal metodo burbujas

Publicado por Miguel (162 intervenciones) el 27/06/2009 23:21:21
Darwin pasa el codigo!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:pascal metodo burbujas

Publicado por juan (44 intervenciones) el 28/06/2009 21:06:43
aca te dejo el algoritmo

procedure burbujeo(Var Vec:Vector:Array of integer; nroEle:integer);
var
x,y,z,pos:integer;
aux:integer;
begin
For x:=nroEle downto 2 do
begin
z:=x-1;
for y:=1 to z do begin
pos:=y+1;
IF (Vector [ Y ] > Vector[ Pos ] ) Then
begin
Aux:=Vector[Y];
Vector[ Y ]:= Vector[POS];
Vector[POS]:= Aux;
end;
end;
end;
end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar