Metodo de Ordenacion : Burbuja
Publicado por Abraham Zamudio Chauca 16/01/2006
[ Hits: 3.245 ]
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 que realiza o reajuste salarial de acordo com o cargo
Nenhum comentário foi encontrado.
Soluções para Acesso Remoto Seguro com SSH
Software Manivela VS Software Modinha
RapidScan - Multi-Tool WEB Vulnerability Scanner
Rofi no Void Linux - Menu para desligar e reiniciar o i3WM
Plugin do Banco do Brasil (Warsaw) no Fedora 31
Screenshot com MAIM - Um programa simples, leve e ideal para WMs
gVim/Vim - Alternância Intuitiva entre Maiúsculo e Minúsculo
Existe distro linux, com drivers antigos, que seja atual? Não é linux ... (0)
Liberação acesso a lista bloqueada no Squid3 (0)
Liberação acesso a lista bloqueada no Squid3 (0)
COMO REMOVER ATUALIZAÇÕES E UPGRADE DO LINUX UBUNTU 18.04.3 (2)