• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Hypr

[Pascal] Bubble sort

3 mensagens neste tópico

ai tem um programa de ordenação de vectores

uses wincrt;

const
   n = 10;

type
   vector = array[1..n]of integer;

var
 vet: vector;
   i,j,aux: integer;
{----------------------------------------------------------------------}
procedure gerar (var v : vector) ;

begin

   for i := 1 to n do
     v[i] := random(100) + 1;

    for i:=1 to n do
      write(V[i],' | ');


   for i := n downto 2 do
        for j := 1 to i-1 do
           if v[j] > vet[j+1] then
           begin
               aux := vet[j];
               v[j] := vet[j+1];
               v[j+1] := aux;
           end;
end;

{------------------------------------------------------------}
Procedure Mostrar(var v : vector);
var
 i : integer;
begin

for i:= 1 to n do
  write(V[i],' | ');


end;

{------------------------------------------------------------}
begin

    writeln('vector desordenado');

    randomize;   

gerar(vet);

    writeln;writeln;

    writeln('vector ordenado');

Mostrar(vet);

end.

espero que ajude alguém :P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

boas

podias ganhar alguma performace usando ponteiros inves de indices array[n], fora isso boa iniciativa, já n via pascal à mais de 10 anos, ahh bons velhos tempos

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora