5.3.2. Cálculo del perímetro y superficie de un círculo,leído el valor del radio

Queremos calcular la superficie y el perímetro de un círculo, una vez introducido por teclado el valor del radio, y escribir los resultados. Se supone conocido π = 3.1416, y que las fórmulas para la superficie y el perímetro son: Sup = π r² y Per = 2 π r , siendo r el valor del radio.

Algoritmo Circulo

/* Declaración de la constante PI. Se declara como constante porque su
* valor no va a cambiar.
*/
Const PI = 3.1416
/* Declaración de variables. De tipo real para que admitan decimales.*/
Var Radio, Superficie, Perímetro : real
Inicio
/* Pide que se facilite el valor del Radio */
Radio <-- Valor leído por teclado
/* Comprueba si el valor del Radio es correcto */
Si el valor del Radio no es un entero positivo volver a pedirlo.
En caso contrario continuar con el paso siguiente.
/* Calculamos la superficie y el perímetro según la fórmula */
Superficie <-- PI * Radio * Radio
Perímetro <-- 2 * PI * Radio
/* Escribimos los resultados */
Escribir(“El círculo de radio ” , Radio , “ tiene una superficie de ” , Superficie , “ y un perímetro de ” , Perímetro)
Fin