Portugol Algo de errado com meu código!!

[Gustavo Vieira2910.]

Alguém pode refazer o código?

 

Construa um programa que possibilite calcular a área total de uma residência (sala, cozinha, banheiro, quartos etc.). O programa deve solicitar a entrada do nome, a largura e o comprimento de um determinado cômodo até que o nome do cômodo seja “FIM”. O programa deve apresentar o valor total acumulado da área residencial.

 

programa
{
    funcao inicio()
    {
       cadeia  Nomecomodo,FIM
       real      area , largura, comprimento, areaTotal
        faca{
            escreva("\nNome do comodo: ")
            leia (Nomecomodo)
            escreva("\nLargura do comodo: ")
            leia(largura)
            escreva("\nComprimento do comodo: ")
            leia (comprimento)
            area = largura*comprimento
            escreva("\nÁrea do/a ",Nomecomodo," é:", area ," m²")
          }enquanto(Nomecomodo != FIM)                                                      
          areaTotal = area+area
          escreva("\nO total da sua área residencial é: ",areaTotal)
      }
}

 

[devair1010]

@Gustavo Vieira2910.    o erro seria no enquanto ,  está comparando com uma variável não inicializada ,  e também depois que digita fim ele ainda pega os dados e assim  altera o resultado , e a areatotal  também está com erro ,    e seu código poderia ser assim  :

programa
{
    funcao inicio()
    {
       cadeia  Nomecomodo,FIM
       real    area , largura, comprimento, areaTotal=0.0
        faca
        {
            escreva("Nome do comodo: ")
            leia ( Nomecomodo )
            se ( Nomecomodo != "fim")
            {
            	escreva("Largura do comodo: ")
               leia( largura )
               escreva("Comprimento do comodo: ")
               leia ( comprimento )
               area = largura * comprimento
               areaTotal = areaTotal + area
               escreva("Área do/a ",Nomecomodo," é:", area ," m²\n")
            }
          } enquanto ( Nomecomodo != "fim" )                                                      
          escreva("\nO total da sua área residencial é: ",areaTotal)
      }
}