Pascal/Turbo Pascal - ordenar

   
Vista:

ordenar

Publicado por daniel (13 intervenciones) el 03/12/2015 14:42:56
buenas amigo necesito una ayuda necesito ordenar un arreglo de vendedores por lo menos tengo esto

yo ingreso que el

vendedor 1 vendio 5
vendedor 2 vendio 10

cuando se ordena me parece esto

vendedor 1 vendio 10
vendedor 2 vendio 5

lo que se quiere es que lo ordene de la siguiente manera

vendedor 2 vendio 10
vendedor 1 vendio 5

lo que quiero es que tanto como el indice y el valor ingresado se ordenen. lo que tengo es esto.


procedure intercambio(var a1,b:integer);
var
aux:integer;
begin
aux:=a1;
a1:=b;
b:=aux;
end;

procedure burbuja(var a:arreglo;n:integer);
var
i,j:integer;
begin
for i:=1 to n-1 do
for j:=1 to n-i do
if (a[j]< a[j+1]) then
intercambio(a[i],a[j+1]);

end;

necesito de su ayuda
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

ordenar

Publicado por ramon (2072 intervenciones) el 05/12/2015 14:19:00
Puedes pasar mas información de como defines esos arreglos.
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