Pascal/Turbo Pascal - Ordenamiento por seleccion

   
Vista:
Imágen de perfil de federico

Ordenamiento por seleccion

Publicado por federico fnm1234@hotmail.com (2 intervenciones) el 28/09/2014 05:55:51
estoy trabajando con un arreglo con N elementos y tengo que ordenarlos de menor a mayor, y tengo que mostrarlo en un memo2, la cosa es que al tocar el boton, el memo2 sigue vacio :S y no se en que fallo :S les dejo el codigo

1
2
3
4
5
6
7
var i, j, min:integer;
begin
for i:=1 to N-1 do begin  min:=i;
for j:=i+1 to N do begin
if arre[j]<arre[min] then begin min:=j; end end;
  arre[i]:=arre[min];
end;end;

muchas gracias :D
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

Ordenamiento por seleccion

Publicado por ramon (2072 intervenciones) el 28/09/2014 18:03:14
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
{A ver si esto te ayuda suerte}
 
program ordena;
 uses
    crt;
 
  const
     n = 10;
 
 var
   i, j, min : integer;
   arre : array[1..n] of integer;
 
   begin
     clrscr;
     randomize;
     for i := 1 to n do
     begin
         j := random(n * 3) + 1;
         arre[i] := j;
     end;
     writeln('   Numeracion Tomada ');
     writeln;
     for i := 1 to n do
     write(' ',arre[i]);
     for i := 1 to N do
      for j := n downto i do
        begin
        if arre[i] > arre[j] then
        begin
            min := arre[i];
            arre[i] := arre[j];
            arre[j] := min;
        end;
    end;
      writeln;
      writeln;
      writeln('   Numeracion Ordenada ');
      writeln;
      for i := 1 to n do
       write(' ',arre[i]);
       readkey;
   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