Conversor

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 "Conversor"

var

Angulo , S: Real

inicio

Escreva ("Informe seu Angulo: ")
leia (angulo)
S <- Sen(GraupRad(Angulo))
Escreval ("O Seno de", angulo, " e igual a", S)

fimalgoritmo

algoritmo "Conversor de dados com oções"

var

kb, mb, gb: real
opc: inteiro

inicio

Repita

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)