Preciso de ajuda para finalizar o meu programa.
//Faça um programa para incluir e montar os dados da tabela de peso especifico dos seguintes materiais.
//o programa deve permitir ao usuario escolher o tipo de estrutura para calculo do peso proprio dos elementos estruturais(viga,pilar ou lage-seção retangular), a partir das dimensões informadas pelo teclado.
//exemplo: escolha o elemento estrutural,informe as dimensões do elemento estrutural e Calcule e imprima o peso próprio do elemento.
algoritmo "semnome"
// Função :
// Autor :
// Data : 01/11/2018
// Seção de Declarações
var
resp,opcao,viga,pilar,lage:caractere
lx_laje,ly_laje, espessura_laje, base_viga, altura_viga, comp_viga, lx_pilar, ly_pilar,comp_pilar,vol_laje, vol_viga, vol_pilar:real
concArmad,aco,madeiraMassa,madeiraAngelim:real
inicio
// Seção de Comandos
escreval("MATERIAIS PESO ESPECÍFICO ESTIMADO")
escreval( )
escreval("Concreto Armado 2.500 Kgf/m3")
escreval("Aço 7.800 Kgf/m3")
escreval("Madeira (Massaranduba) 1.000 Kgf/m3")
escreval("Madeira (Angelim Vermelho) 1.300 Kgf/m3")
escreval( )
escreval("Qual o tipo de estrutura você deseja calcular Viga,Pilar ou Lage?")
leia(resp)
escolha opcao
Viga<-1
escreval(" ")
escreva("Digite Base da Viga (m): ")
leia(base_viga)
escreva("Digite Altura da Viga (m): ")
leia(altura_viga)
escreva("Digite Comprimento da Viga (m): ")
leia(comp_viga)
vol_viga<-(base_viga*altura_viga*comp_viga)
escreval("O volume de concreto da Viga (m3) = ", vol_viga)
pausa
caso 2
escreva("Digite Lx da laje (m): ")
leia(lx_laje)
escreva("Digite Ly da laje (m): ")
leia(ly_laje)
escreva("Digite Espessura da laje: (m) ")
leia(espessura_laje)
vol_laje<-(lx_laje*ly_laje*espessura_laje)
escreval("O volume de concreto da Laje = ", vol_laje, "m3")
escreval(" ")
pausa
caso 3
escreval(" ")
escreva("Digite Lx do Pilar (m): ")
leia(lx_pilar)
escreva("Digite Ly do Pilar (m): ")
leia(ly_pilar)
escreva("Digite Comprimento do Pilar (m): ")
leia(comp_pilar)
vol_pilar<-(lx_pilar*ly_pilar*comp_pilar)
escreval("O volume de concreto do Pilar (m3)= ", vol_pilar)
escreval(" ")
fimcaso
fimalgoritmo