Metodo de Ordenacion : Burbuja
Publicado por Abraham Zamudio Chauca 16/01/2006
[ Hits: 3.621 ]
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.
Tocador de vídeo no Lazarus (Delphi 7 para Linux).
Calculadora utilizando until e case
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (1)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
pacotes 32 bit no void 64 bit (1)
erro ao clonar repo github (7)
ASRock H310CM-HG4 vs Linux (1)
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (26)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba