Se quiser, baixe esse app ¬ Visualg, copie o código, cole, teste, altere, treine, seja feliz! Sorria! Mesmo, se o mudo fizer careta (RS!).
Exercícios
algoritmo "Detector Peso c/ Procedimento"
var
I: Inteiro
N, Pesado: Caractere
P, Mai: Real
N, Pesado: Caractere
P, Mai: Real
Procedimento Topo()
Inicio
LimpaTela
EscrevaL("------------------------------------")
EscrevaL(" D E T E C T O R DE P E S A D O ")
EscrevaL(" Maior Peso ate agora: ", Mai, "Kg")
EscrevaL("------------------------------------")
EscrevaL("------------------------------------")
EscrevaL(" D E T E C T O R DE P E S A D O ")
EscrevaL(" Maior Peso ate agora: ", Mai, "Kg")
EscrevaL("------------------------------------")
FimProcedimento
inicio
Topo()
Para I <- 1 ate 5 faca
Escreva("Digite o nome: ")
Leia(N)
Escreva("Digite o peso de ", N, ": ")
Leia (P)
FimPara
Leia(N)
Escreva("Digite o peso de ", N, ": ")
Leia (P)
Se (P>Mai) entao
MAI <- P
Pesado <- N
FimSe
Pesado <- N