Metodo de Ordenacion : Burbuja
Publicado por Abraham Zamudio Chauca 16/01/2006
[ Hits: 3.924 ]
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.
programa pra carregear duas matrizes e achar o maior
calculo de porcentagem em vetores
Programa lê nome (básico) - Pascal para iniciantes
Calculadora Empresarial (Baseada nas fórmulas de Logística)Lazarus
Nenhum comentário foi encontrado.
IA local no bolso, novo visual no Raspberry Pi OS e mais destaques do software livre
Kernel turbinado, compatibilidade em alta e debate sobre sustentabilidade: o dia no mundo Linux
Kernel turbinado e GNOME 49 dominam o giro do dia no mundo Linux
Novidades Linux: Kernel 6.17, distros em ebulição e segurança em foco
Kernel ganha novos linters Rust e distros avançam com recursos de IA
Adicionando o repositório backports no Debian 13 Trixie
Como definir um IP estático no Linux Debian
SAMBA parou de compartilhar [RESOLVIDO] (3)
Orientação para instalar o Warsaw - módulo de proteção do Banco do Bra... (8)
systemd-resol... precisa ser reiniciado periodicamente (5)
Alguém que utilize o Warsaw do BB no Ubuntu 24.04 [RESOLVIDO] (6)
Fedora não reconhece James Donkey 102 Wireless Gaming Mouse (2)