Exercício cap.3.4

4. Escreva um algoritmo para calcular a área de um círculo, fornecido o valor do raio, que deve ser

positivo ou zero.


Resposta:

1.  algoritmo "Cálculo"
2.  var
3.   area,raio:real
4.  inicio      
5.        escreva("Digite o valor de raio: ")
6.        leia(raio)
7.      Se ((raio>0) ou (raio=0)) entao
8.        area <- pi*(raio^2)
9.        escreva("Área igual a ",area:5:2)
10.     senao
11.       escreval("O raio precisa ser >=0 ")
12.       escreval("*** F IM ***")
13.     fimse
14. fimalgoritmo

Algoritmo testado no programa VisuAlg.
A variável "pi" não precisa ser declarada no VisuAlg.