Alguém poderia me ajudar a converter o código abaixo feito no visualG para JAVA ?
Desde já agradeço.
var
Media, C, L, area, quantidade, preco, QtdPiso, PrecoPiso, QtdRejunte, PrecoRejunte, QtdArgamassa, PrecoArgamassa, QtdEspacador, PrecoEspacador, Maodeobra, Diasinstalacao, Precototal, porcentagemdeperda, Porcperd: real
tipopiso, orientacaopiso: inteiro
nome, orientpi: caracter
inicio
// 1o Passo: ENTRADAS
EscrevaL("Comprimento da área de Instalação(em metros quadrados): ")
Leia (C)
Escreva("Largura da área de instalação(em metros quadrados): ")
Leia (L)
EscrevaL("Escolha o tipo de piso: ")
EscrevaL ("1-para Cerâmica")
EscrevaL ("2-para Porcelanato")
EscrevaL ("3-para Vinílico")
EscrevaL ("4-para Laminado")
Escreva ("---> ")
Leia (tipopiso)
EscrevaL("Como será colocado o piso?")
EscrevaL ("1-reto")
EscrevaL ("2-Diagonal")
Escreva ("---> ")
Leia (orientacaopiso)
// 2o Passo: FÓRMULAS & PROCESSAMENTOS
Se (tipopiso <= 1) entao
quantidade <- 0.37
preco <- 27.29
Senao
Se (tipopiso=2) entao
quantidade <- 0.34
preco <- 52.90
Senao
Se (tipopiso=3) entao
quantidade <- 0.23
preco <- 88.90
Senao
Se (tipopiso=4) entao
quantidade <- 0.26
preco <- 35.60
Senao
Se (tipopiso<>"1") e (tipopiso<>"2") e (tipopiso<>"3") e (tipopiso<>"4") entao
Escreval("ERRO. Escolha um dos 4 tipos de Piso")
fimalgoritmo
fimse
fimse
fimse
fimse
fimse
Se (orientacaopiso=1) entao
porcentagemdeperda <- 0.1
nome <- ("RETO")
Senao
Se (orientacaopiso=2) entao
porcentagemdeperda <- 0.3
nome <- ("DIAGONAL")
Senao
Se (orientacaopiso<>"1") e (orientacaopiso<>"2") entao
Escreval("ERRO. Escolha um dos 2 tipos de orientação do piso")
fimalgoritmo
fimse
fimse
fimse
area <- (C*L)
QtdPiso <- (area*quantidade)
QtdPiso <- int(QtdPiso)+1
PrecoPiso <- (area*preco)
QtdRejunte <- (area/3)
QtdRejunte <- int(QtdRejunte)+1
PrecoRejunte <- (area/3*33.50)
QtdArgamassa <- (area/4)
QtdArgamassa <- int(QtdArgamassa)+1
PrecoArgamassa <- (area/4*28.99)
QtdEspacador <- (area/0.61*2/100)
QtdEspacador <- int(QtdEspacador)+1
PrecoEspacador <- (area/0.61*10.90)
Maodeobra <- (area*55)
Diasinstalacao <- (area/15)
Diasinstalacao <- int(Diasinstalacao)+1
Precototal <- (Precopiso+PrecoRejunte+PrecoArgamassa+PrecoEspacador+Maodeobra)
Precototal <- int(Precototal)+1
Porcperd <- (QtdPiso*porcentagemdeperda)
Porcperd <- int(Porcperd)+1
// 3o Passo: SAÍDAS
Escreval("VALOR TOTAL DA INSTALAÇÃO: R$ ",Precototal,",00")
Escreval("------------------------------------------------")
Escreval("SERÃO UTILIZADOS:")
Escreval(QtdPiso ," Pisos, ", QtdRejunte," Potes de 1kg de Rejunte, ")
Escreval(QtdArgamassa," Potes de 20Kg de Argamassa e ",QtdEspacador," Saco(s) de 100 Peças de Espaçador")
Escreval("------------------------------------------------")
Escreval("MÉDIA DE DIAS PARA A INSTALAÇÃO: ",Diasinstalacao, " dia(s)")
Escreval("------------------------------------------------")
Escreval("PARA COLOCAÇÃO DE PISO ",nome)
Escreval("TERÁ UMA PERDA DE: ",Porcperd, " piso(s)")
fimalgoritmo