Calcular Área de una esfera , el perímeto y Determinar el área de un cubo

       un programa que permita al usuario elegir entre varios ejercicios:

a)      Calcular el área de una esfera.

b)      Calcular el perímetro de un círculo.

c)       Determinar el área de un cubo.

Para solucionar este ejercicio debe tomar en cuenta lo siguiente:

•       Todas las medidas requeridas para el usuario deben ser en milímetros.

•       Las respuestas deben mostrarse en centímetros, centímetros cuadrados o centímetros cúbicos dependiendo del ejercicio.

•       Al mostrar el resultado, debe de inmediato volver a mostrar el menú con las opciones y también ofrecer la opción salir. 

Solución:

Proceso ejercicio

definir a,b ,resultado, total Como Real;

Definir op como cadena;

Escribir "ejercicios";

Escribir "para el area de una esfera digite: a";

Escribir "para el perimetro de un circulo digite:b";

Escribir "para el area de un cubo digite: c";

Repetir

Repetir

Escribir "que ejercicio desea realizar";

Leer op;

Escribir "las medidas debe ingresarlas en mm";

Hasta Que op="a" |op="A" |op="b"|op="B"|op="c"|op= "C"

Si op="a" |op="A" Entonces

Escribir "ingrese el radio";

leer a;

resultado<-4*PI*a^2;

total<-resultado/10;

Escribir "el area de la esfera es: ",total,"cm^2";

Sino

Si op="b"|op="B" Entonces

Escribir "ingrese radio";

leer a;

resultado<-2*PI*a;

total<-resultado/10;

Escribir "el perimetro del circulo: ", total,"cm";

Sino

Escribir "ingrese el area";

leer a;

resultado<-6*a^2;

total<-resultado/10;

Escribir " el area de un cubo:" ,total,"cm^3";

FinSi

FinSi

Escribir "si desea salir ingrese: si, sino, si deseas continuar ingresa: no";

Leer op;

   Hasta Que op="si"

FinProceso