Question

Escreva um algoritmo que calcule a área de um círculo cujo diâmetro é de 30 cm sendo que a área de um círculo é igual a pi vezes o raio quadrado

Answer 1

algoritmo "area do circulo"

procedimento area()

inicio

Escreval("================================")

Escreval("  A R E A   D O  C I R C U L O  ")

Escreval("================================")

fimprocedimento

var

A,r,d:real

inicio

area()

Escreva("Qual o diamêtro do circulo? ")

leia(d)

r <- d/2

A <- pi*r^2

limpatela

area()

Escreva("A área do circulo é: ",A:3:2, " Cm")

fimalgoritmo