Exercícios 3-5 da lista 1

3. Implemente uma função para o cálculo da área de uma circunferência.

4. Implemente uma função que calcule o comprimento de uma circunferência.

5. Escreva um programa que utilize as funções implementadas nas questões 3 e 4.

algoritmo "Circulo"

var

   area, raio, comp:real

funcao areacirc (r:real):real

var a:real

inicio

      a <- (3.14*(r*r))

      retorne a

fimfuncao

funcao comprimentocirc (r:real):real

var c:real

inicio

      c <- ((2*r)*3.14)

      retorne c

fimfuncao

inicio

      escreval ("Digite o raio da circunferencia:")

      leia(raio)

      area <- areacirc(raio)

      escreval ("Area:",area)

      comp <- comprimentocirc(raio)

      escreval ("Comprimento:",comp)

fimalgoritmo