Metodo de Ordenacion : Burbuja
Publicado por Abraham Zamudio Chauca 16/01/2006
[ Hits: 3.948 ]
el presente programa implementa el conocido algoritmo de ordenacion :
burbuja .
Program Burbuja1;
Uses Crt;
Type Vector=array[1..2000] of Real;
Var
n,i,j:integer;
b:Vector;
opc1,opc2:Char;
aux:real;
Function Max(a,b:Real):Real;
Begin
If a<=b Then max:=b
Else max:=a;
End;
Function Min(a,b:Real):Real;
Begin
If a<=b Then min:=a
Else min:=b;
End;
Procedure leer(n:Integer;var a:vector);
Var i:integer;
Begin
For i:=1 to n do
Begin
Writeln('Ingrese el Elemento N£mero ',i);
Readln(a[i]);
End;
End;
Procedure escr(a:Vector;n:Integer);
Var i:Integer;
Begin
for i:=1 to n do
Begin
If i<n Then Write(a[i]:1:1,'; ')
Else
Begin
Writeln(a[i]:1:1);
Writeln(n,' Elementos');
End;
End;
End;
Begin
Repeat
Begin{*}
clrscr;
Writeln('Ingrese el N£mero de Elementos');
Readln(n);
leer(n,b);
Writeln('¨Quiere Ordenarlos en Forma Ascendente(A) o Descendente(D)?');
opc1:=Readkey;
If (opc1='a') or (opc1='A') Then
Begin{**}
For I:=1 to (n-1) do
Begin{* *}
for j:=2 to (n-i+1) do
Begin
aux:=b[j];
b[j]:=max(b[j-1],b[j]);
b[j-1]:=min(b[j-1],aux);
End;
End;{* *}
End{**}
Else
Begin{***}
For i:=1 to (n-1) do
Begin{* * *}
for j:=2 to (n-i+1) do
Begin
aux:=b[j];
b[j]:=min(b[j-1],b[j]);
b[j-1]:=max(b[j-1],aux);
End;
End;{* * *}
End;{***}
Writeln('La Lista Ordenada es:');
escr(b,n);
Writeln('¨Desea Realizar Otra Operaci¢n (S/N)?');
opc2:=Readkey;
End;{*}
Until (opc2='n')or(opc2='N');
End.
Função Fatorial Recursiva em Ada 95
dizer se o aluno passou ou nao
Nenhum comentário foi encontrado.
IA Turbina o Desktop Linux enquanto distros renovam forças
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
Linux é a solução para o fim do Windows10? [RESOLVIDO] (7)
Assinador JNLP do Site Portal da Nota Fiscal Eletrônica (0)
Programa fora de escala na tela do pc (29)









