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"
var
I: Inteiro
Pesado, N: Caractere
P, Mai: Real
Pesado, N: Caractere
P, Mai: Real
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("------------------------------------")
Para I <- 1 ate 5 faca
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("A pessoa mais pesada foi ", Pesado, ", com ", Mai, " quilos.")
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("------------------------------------")
Para I <- 1 ate 5 faca
Escreva("Digite o nome: ")
Leia(N)
Escreva("Digite o peso de ", N, ": ")
Leia (P)
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("------------------------------------")
FimPara
Leia(N)
Escreva("Digite o peso de ", N, ": ")
Leia (P)
Se (P>Mai) entao
LimpaTela
MAI <- P
Pesado <- N
FimSe
Pesado <- N
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("------------------------------------")
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("A pessoa mais pesada foi ", Pesado, ", com ", Mai, " quilos.")