Exercícios 6-10 da lista 1

6. Escreva uma função chamada CUBO que recebe um valor do tipo real e retorne o cubo do número passado como parâmetro. Escreva um programa que utilize esta função.

algoritmo "Cubo"

var

   n1:real

funcao cubo (r:real):real

inicio

      r <- (r*r*r)

      retorne r

fimfuncao

inicio

      leia(n1)

      n1 <- cubo(n1)

      escreval (n1)

fimalgoritmo

7. Escreva uma função chamada METADE que divide um valor do tipo real (passado como parâmetro) pela metade. Escreva um programa que utilize esta função.

algoritmo "Metade"

var

   n1:real

funcao metade (r:real):real

inicio

      r <- (r/2)

      retorne r

fimfuncao

inicio

      leia(n1)

      n1 <- metade(n1)

      escreval (n1)

fimalgoritmo

8. Escreva uma função chamada AUMENTO que receba dois valores reais X e Y como parâmetros e aumente o valor de X em Y%. Escreva um programa que utilize esta função

9. Transforme a função da questão anterior em um procedimento e faça com que o programa utilize este procedimento.

algoritmo "Aumento"

var

   n1, n2:real

funcao aumento (x , y:real):real

inicio

      x <- (x+(x*(y/100)))

      retorne x

fimfuncao

procedimento aumentoproc (x,y:real)

inicio

      x <- (x+(x*(y/100)))

      escreva (x)

fimprocedimento

inicio

      leia(n1)

      leia(n2)

      n1 <- aumento(n1,n2)

      escreval (n1)

      aumentoproc(n1,n2)

fimalgoritmo

10. Escreva um programa que leia as dimensões de um banheiro (comprimento, largura e altura em metros) e compute a quantidade de caixas de azulejos para se colocar em todas as paredes (considere que não será descontada a área ocupada pela porta e pela janela). Cada caixa de azulejos possui 0,5m^2.

algoritmo "Azulejo"

var

   comp, larg, alt, p1, p2,r : real

inicio

      leia (comp)

      leia (larg)

      leia (alt)

      p1 <- comp*alt

      p2 <- larg*alt

      r <-(p2+p1)*4

      escreva (r)

fimalgoritmo