Trabalho De Eletricidade

var

comodo: caracter

a,c,l,p: real

tomada: real

inicio

escreval ("Digite cômodo: ")

leia (comodo)

escolha (comodo)

caso ("sala")

escreval ("Qual a largura: ")

leia (l)

escreval ("Qual o comprimento: ")

leia (c)

a <-l*c

p<-(l*c)+(l*c)

escreval ("A área é ", a , "m²")

escreval ("O perímetro é " , p , "m")

tomada<- p/5

escreval ("O numero de tomadas são", tomada)

escreval ("Ponto de Iluminação: Pelo menos UMA lâmpada no teto seguido de um interruptor na parede.")

caso ("cozinha")

escreval ("Qual a largura: ")

leia (l)

escreval ("Qual o comprimento: ")

leia (c)

a <-l*c

p<-(l*c)+(l*c)

escreval ("A área é ", a)

escreval ("O perímetro é " , p)

tomada<- p/3.5

escreval ("O numero de tomadas são", tomada)

caso ("copa")

escreval ("Qual a largura: ")

leia (l)

escreval ("Qual o comprimento: ")

leia (c)

a <-l*c

p<-(l*c)+(l*c)

escreval ("A área é ", a)

escreval ("O perímetro é " , p)

tomada<- p/3.5

escreval ("O numero de tomadas são", tomada)

caso ("dormitorio")

escreval ("Qual a largura: ")

leia (l)

escreval ("Qual o comprimento: ")

leia (c)

a <-l*c

p<-(l*c)+(l*c)

escreval ("A área é ", a)

escreval ("O perímetro é " , p)

tomada<- p/5

escreval ("O numero de tomadas são", tomada)

caso ("area serviço")