Escreva um algoritmo para calcular a área de um círculo, fornecido o valor do raio, que deve ser.
algoritmo "Cálculo" var area,raio:real inicio
escreva ("Digite o valor de raio: ")
leia (raio)
Se ((raio>0) ou (raio=0)) entao
area <- pi*(raio^2)
escreva ("Área igual a ",area:5:2)
senao
escreval ("O raio precisa ser >=0 ")
escreval ("*** F IM ***")
fimse
fimalgoritmo
Nenhum comentário:
Postar um comentário