Trabalho feito em aula na Faculdade.
Procedimento OrdenaPilha(var pilhaO:vetor[1....n] de inteiro; var topoO:inteiro)
var
Aux1, Aux2 : vetor [1...n] de inteiro;
Topo1, Topo2 : Inteiro;
elemento, maior : inteiro;
Inicio
Inicializa_pilha(Topo1);
Enquanto retirar_pilha (pilhaO, TopoO, maior) então
Inicializa_pilha(Topo2);
Enquanto (retirar_pilha(pilhaO, topoO, elemento) faça
Se elemento > maior então
Inserir_pilha(Aux1, Topo1, maior);
maior <- elemento;
Senão
Inserir_pilha(Aux1, Topo1, elemento);
Fim_se
Fim_enquanto;
Inserir_pilha(Aux2, Topo2, maior);
Se retirar_pilha(Aux1, Topo1, elemento) então
Enquanto retirar_pilha(Aux1, Topo1, elemento) faça
Se elemento > [...]
Arquivado em: Algoritmos | Deixar um comentário »
