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 "Menu"
var
Cont, N, R, opc, C, Q, op: Inteiro
M, A, IMC, US, kb, mb, gb, REAIS, D: Real
resp: Caractere
M, A, IMC, US, kb, mb, gb, REAIS, D: Real
resp: Caractere
inicio
Repita
EscrevaL("")
EscrevaL("===================")
EscrevaL("| M E N U |")
EscrevaL("===================")
EscrevaL("| [1] Tabuada |")
EscrevaL("| [2] IMC |")
EscrevaL("| [3] U$$ para R$ |")
EscrevaL("| [4] R$ para U$$ |")
EscrevaL("| [5] Conversor |")
EscrevaL("| [6] Sair |")
EscrevaL("===================")
Leia(op)
Escolha op
Caso 1
Repita
Caso 2
EscrevaL("===================")
EscrevaL("| M E N U |")
EscrevaL("===================")
EscrevaL("| [1] Tabuada |")
EscrevaL("| [2] IMC |")
EscrevaL("| [3] U$$ para R$ |")
EscrevaL("| [4] R$ para U$$ |")
EscrevaL("| [5] Conversor |")
EscrevaL("| [6] Sair |")
EscrevaL("===================")
Leia(op)
Escolha op
Caso 1
Repita
Cont <- 1
Escreva("Quer ver a tabuada de qual numero? ")
Leia(N)
Repita
R <- N * Cont
EscrevaL(N, " x ", Cont, " = ", R)
Cont <- Cont + 1
Ate (Cont > 10)
Escreval()
Escreval("Quer continuar [S/N]? ")
Escreva ("RESP: ")
Leia (Resp)
Ate (Resp="n")
Escreva("Quer ver a tabuada de qual numero? ")
Leia(N)
Repita
R <- N * Cont
EscrevaL(N, " x ", Cont, " = ", R)
Cont <- Cont + 1
Ate (Cont > 10)
Escreval()
Escreval("Quer continuar [S/N]? ")
Escreva ("RESP: ")
Leia (Resp)
Caso 2
Escreva("Massa (Kg): ")
Leia(M)
Escreva("Altura (m): ")
Leia(A)
IMC <- M / (A ^ 2)
EscrevaL("IMC: ", IMC:5:2)
Se (IMC < 17) entao
Caso 3
Leia(M)
Escreva("Altura (m): ")
Leia(A)
IMC <- M / (A ^ 2)
EscrevaL("IMC: ", IMC:5:2)
Se (IMC < 17) entao
EscrevaL ("Muito abaixo do Peso")
senao
Se (IMC >= 17) e (IMC < 18.5) entao
FimSe
senao
Se (IMC >= 17) e (IMC < 18.5) entao
EscrevaL ("Abaixo so Peso")
senao
Se (IMC >= 18.5) e (IMC < 25) entao
FimSe
senao
Se (IMC >= 18.5) e (IMC < 25) entao
EscrevaL ("Peso ideal")
senao
Se (IMC >= 25) e (IMC < 30) entao
FimSe
senao
Se (IMC >= 25) e (IMC < 30) entao
EscrevaL ("Sobrepeso")
senao
Se (IMC >= 30) e (IMC < 35) entao
FimSe
senao
Se (IMC >= 30) e (IMC < 35) entao
EscrevaL ("Obesidade")
senao
Se (IMC >= 35) e (IMC < 40) entao
FimSe
senao
Se (IMC >= 35) e (IMC < 40) entao
EscrevaL ("Obesidade Severa")
senao
EscrevaL ("Obesidade Morbida")
FimSe
senao
EscrevaL ("Obesidade Morbida")
C <- 1
Escreva ("Quantas vezes voce quer convernter? ")
Leia(Q)
Enquanto (C <= Q) faca
Escreva("Qual o valor em US$? ")
Leia(US)
REAIS <- US*5.41
EscrevaL("O valor convertido e R$", REAIS:5:2)
C <- C + 1
FimEnquanto
Caso 4
Escreva ("Quantas vezes voce quer convernter? ")
Leia(Q)
Enquanto (C <= Q) faca
Escreva("Qual o valor em US$? ")
Leia(US)
REAIS <- US*5.41
EscrevaL("O valor convertido e R$", REAIS:5:2)
C <- C + 1
FimEnquanto
C <- 1
Escreva ("Quantas vezes voce quer convernter? ")
Leia(Q)
Enquanto (C <= Q) faca
Escreva("Qual o valor em R$? ")
Leia(REAIS)
D <- REAIS/5.41
EscrevaL("O valor convertido e US$", D:5:2)
C <- C + 1
FimEnquanto
Caso 5
Escreva ("Quantas vezes voce quer convernter? ")
Leia(Q)
Enquanto (C <= Q) faca
Escreva("Qual o valor em R$? ")
Leia(REAIS)
D <- REAIS/5.41
EscrevaL("O valor convertido e US$", D:5:2)
C <- C + 1
FimEnquanto
Repita
Ate (op = 6)
EscrevaL("")
EscrevaL("O resutado aparecerá na parte superior!")
EscrevaL("ESCOLHA UMA DAS OPÇÃO ABAIXO")
EscrevaL("")
EscrevaL(" Kbyte em Mbyte opção [1]")
Escreval("")
EscrevaL
Escreval(" Kbyte em Gbyte opção [2]")
Escreval("")
EscrevaL
EscrevaL(" Mbyte em Kbyte opção [3]")
Escreval("")
EscrevaL
EscrevaL(" Mbyte em Gbyte opção [4]")
Escreval("")
EscrevaL
Escreval(" Gbyte em Kbyte opção [5]")
Escreval("")
EscrevaL
EscrevaL(" Gbyte em Mbyte opção [6]")
Escreval("")
EscrevaL
Escreval(" Para sair digite a opção [7]")
Escreval("")
Leia (opc)
LimpaTela
Escolha (opc)
caso 1
Escreval("--------------------------------")
EscrevaL("Convertendo Kilobyte em Megabyte")
Escreval("--------------------------------")
Escreva("Informe a quantidade de KB: ")
Leia (kb)
mb <- (kb/1000)
EscrevaL(kb," KB = ", mb," MB")
caso 2
Escreval("--------------------------------")
Escreval("Convertendo Kilobyte em Gigabyte")
Escreval("---------------------------------")
Escreva("Informe a quantidade em KB: ")
Leia (kb)
gb <- (kb/1000000)
EscrevaL(kb," KB = ", gb," GB")
caso 3
Escreval("--------------------------------")
EscrevaL("Convertendo Megabyte em Kilobyte")
Escreval("--------------------------------")
Escreva("Informe a quantidade de MB ")
Leia (mb)
kb <- (mb*1000)
EscrevaL(mb," MB = ", kb," KB")
caso 4
Escreval("--------------------------------")
EscrevaL("Convertendo Megabyte em Gigabyte")
Escreval("--------------------------------")
Escreva("Informe a quantidade de MB: ")
Leia (mb)
gb <- (mb/1000)
EscrevaL(mb," MB = ", gb," GB")
caso 5
Escreval("--------------------------------")
Escreval("Convertendo Gigabyte em Kilobyte")
Escreval("--------------------------------")
Escreva("Informe a quantidade em GB: ")
Leia (gb)
kb <- (gb*1000000)
EscrevaL(gb," GB = ", kb," KB")
caso 6
Escreval("---------------------------------")
EscrevaL("Convertendo Gigabyte em Megabyte")
Escreval("---------------------------------")
Escreva("Informe a quantidade em GB: ")
Leia (gb)
mb <- (gb*1000)
EscrevaL(gb," GB = ", mb," MB")
caso 7
EscrevaL ("THE END >_ by mlssystem")
FimEscolha
Ate (opc = 7)
Caso 6
EscrevaL("O resutado aparecerá na parte superior!")
EscrevaL("ESCOLHA UMA DAS OPÇÃO ABAIXO")
EscrevaL("")
EscrevaL(" Kbyte em Mbyte opção [1]")
Escreval("")
EscrevaL
Escreval(" Kbyte em Gbyte opção [2]")
Escreval("")
EscrevaL
EscrevaL(" Mbyte em Kbyte opção [3]")
Escreval("")
EscrevaL
EscrevaL(" Mbyte em Gbyte opção [4]")
Escreval("")
EscrevaL
Escreval(" Gbyte em Kbyte opção [5]")
Escreval("")
EscrevaL
EscrevaL(" Gbyte em Mbyte opção [6]")
Escreval("")
EscrevaL
Escreval(" Para sair digite a opção [7]")
Escreval("")
Leia (opc)
LimpaTela
Escolha (opc)
caso 1
Escreval("--------------------------------")
EscrevaL("Convertendo Kilobyte em Megabyte")
Escreval("--------------------------------")
Escreva("Informe a quantidade de KB: ")
Leia (kb)
mb <- (kb/1000)
EscrevaL(kb," KB = ", mb," MB")
caso 2
Escreval("--------------------------------")
Escreval("Convertendo Kilobyte em Gigabyte")
Escreval("---------------------------------")
Escreva("Informe a quantidade em KB: ")
Leia (kb)
gb <- (kb/1000000)
EscrevaL(kb," KB = ", gb," GB")
caso 3
Escreval("--------------------------------")
EscrevaL("Convertendo Megabyte em Kilobyte")
Escreval("--------------------------------")
Escreva("Informe a quantidade de MB ")
Leia (mb)
kb <- (mb*1000)
EscrevaL(mb," MB = ", kb," KB")
caso 4
Escreval("--------------------------------")
EscrevaL("Convertendo Megabyte em Gigabyte")
Escreval("--------------------------------")
Escreva("Informe a quantidade de MB: ")
Leia (mb)
gb <- (mb/1000)
EscrevaL(mb," MB = ", gb," GB")
caso 5
Escreval("--------------------------------")
Escreval("Convertendo Gigabyte em Kilobyte")
Escreval("--------------------------------")
Escreva("Informe a quantidade em GB: ")
Leia (gb)
kb <- (gb*1000000)
EscrevaL(gb," GB = ", kb," KB")
caso 6
Escreval("---------------------------------")
EscrevaL("Convertendo Gigabyte em Megabyte")
Escreval("---------------------------------")
Escreva("Informe a quantidade em GB: ")
Leia (gb)
mb <- (gb*1000)
EscrevaL(gb," GB = ", mb," MB")
caso 7
EscrevaL ("THE END >_ by mlssystem")
FimEscolha
Ate (opc = 7)
EscrevaL("SAINDO...")
Caso 7
EscrevaL("INVALIDO!")
FimEscolha