Trabalho Algoritmos II
Por: Abranti • 4/4/2015 • Trabalho acadêmico • 950 Palavras (4 Páginas) • 519 Visualizações
TRABALHO EXTRA-CLASSE 3
LA:
a) Algoritmo Credores
ListaLSE ListaADJ
NoLSE No, Aux
Literal Nome
Escreva(“Digite um nome a ser buscado os credores:”)
Leia(Nome)
No<-LA.Pesquisar(Nome)
Se No = nulo então
Escreva(“Pessoa não encontrada.”)
Senão
Inicio
ListaADJ<-No.get_info().get_lista_adj ()
Aux<- ListaADJ.get_prim()
Enquanto Aux != Nulo faça
Inicio
Escreva(“Credor ”,Aux.get_info.get_nome())
Aux<-Aux.get_prox()
Fim
Fim
Fim
MA:
b) Algoritmo Dividas
Inteiro I, J
Literal Nome
MA[][]
Real MaisDividas, DividaIndividual
Literal Nome, Nomeindividual
MaisDividas <-0
DividaIndividual <-0
Para J de 0 até qtde_vertices()-1
Inicio
Para I de 0 até qtde_vertices()-1
Inicio
Se MA[I][J] != nulo então
DividaIndividual <- DividaIndividual + MA[I][J].get_valor()
Nomeindividual<- MA[I][J].get_nome()
Fim
SE MaisDividas < DividaIndividual
Inicio
MaisDividas<- DividaIndividual
Nome<- Nomeindividual
Fim
Fim
Fim
Escreva(“Maior devedor”,Nome)
Fim
LA:
c) Algoritmo MaiorDivida
ListaLSE ListaADJ, ListaADJ2
Literal Devedor, Credor
Real MaiorDivida
NoLSE No, Aux
MaiorDivida<-0
Aux <- ListaADJ.get_prim()
Enquanto Aux != nulo faça
Inicio
Aux2 <- ListaADJ2.get_prim()
Enquanto Aux2 != nulo faça
Inicio
Se MaiorDivida < Aux2. Get_valor() então
Inicio
MaiorDivida<- Aux2. Get_valor()
Devedor <- Aux. Get_nome()
Credor<- Aux2. Get_nome()
Fim
Aux2<-Aux2.get_prox()
Fim
Aux<-Aux.get_prox()
Fim
Escreva(“Maior divida é”, MaiorDivida,”do devedor”,Devedor,”do credor”,Credor)
Fim
MA:
d) Algoritmo Dividas
Inteiro I, Ind
Literal Nome
Escreva(“Digite um nome a ser buscado os credores:”)
...