VisualG Auxílio com programa no visualg

[roberta vivianne de lima]

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

 

[Simon Viegas]

1#

Sobre:

2 horas atrás, roberta vivianne de lima disse:

Preciso de ajuda para finalizar o meu programa.

 

Ajuda em quê? ou seja, faltou citar o quê está acontecendo... mas vamos lá...

 

 

 

2#

Dei uma revisada no código. Dá uma olhada.

algoritmo "semnome"
// Função:
// Autor : Roberta Vivianne de Lima
// Data  : 01/11/2018

//Faça um programa para incluir e montar os dados da tabela de peso específico
//dos seguintes materiais.
//O programa deve permitir ao usuário escolher o tipo de estrutura para cálculo
//do peso próprio 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.
var
   opcao :caractere //opcao escolhida pelo usuário
   base, altura, comprimento:real //dimensões do elemento estrutural
   volume:real
   
   aux   :caractere //auxiliar para pausar o código

inicio
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)}
leia(opcao)
escolha opcao
   caso "1"
      escreval()
      {escreva("Digite Base da Viga (m): ")} //sugiro que não precisa ficar "mandando digitar"
      escreval("DADOS DA VIGA")
      escreva("Base (m)      : ")
      leia(base)
      escreva("Altura(m)     : ")
      leia(altura)
      escreva("Comprimento(m): ")
      leia(comprimento)
      volume <- (base * altura *comprimento)
      escreval("O volume de concreto da Viga (m3) = ",volume:1:3)
      {pausa} //esse comando não serve "pausar" para esse contexto


   caso "2"
      escreval("EM CONSTRUÇÃO")
     
     
   caso "3"
      escreval("EM CONSTRUÇÃO")
     
     
fimEscolha
escreva ("Pressione ENTER para continuar")
leia(aux)

fimAlgoritmo

 

Dar continuidade a esse código. Faça o item 1 ficar completo.

 

***

 

Tem outros pontos para revisar, como por exemplo que não vi nada que sugira que deva usar o número 1 para vigas (o mesmo para os outro elementos), mas ignore isso. Apenas se atente a "informar as dimensões do elemento estrutural e calcular e imprimir o peso próprio dele".

 

Qualquer dúvida é só perguntar.

 

No aguardo.