algoritmo Area_de_una_esfera
variables
real radio
inicio
escribir(
"Introduzca radio: "
)
leer( radio
)
/* Filtramos
el radio */
mientras
( radio <=
0 )
escribir( "ERROR:
El radio debe ser mayor que cero."
)
escribir( "Introduzca
radio: " )
leer( nadio )
fin_mientras
escribir(
"El área de la esfera de radio", radio,
" es: ", 4
* 3.141592 * radio ** 2 )
fin |