Ejercicios de programación en Pascal (Turbo Pascal)
C/C++/C# HTML Java JavaScript Linux PHP Python Swift
 Inicio Ejercicios Pascal Repetitiva mientras > 1

Ejercicio 1 - Área de una esfera (Repetitiva mientras - Pascal)

Escribir un programa (en Pascal) que:

1º) Pida por teclado el radio (dato real) de una esfera.
2º) En el caso de que el radio sea menor o igual que 0, muestre por pantalla el mensaje:
  • "ERROR: El radio debe ser mayor que cero.".
3º) Repita los pasos 1º y 2º, mientras que, el radio introducido sea incorrecto.
4º) Muestre por pantalla:
  • "El área de una esfera de radio <radio> es: <área>".
Nota 1: Área de una esfera = 4 * pi * radio2

Nota 2: Utilice un bucle mientras (while).

En pantall
a:

Introduzca radio: 3.6
El área de la esfera de radio 3.6 es: 162.860129

 

Introduzca radio: -2.4
ERROR: El radio debe ser mayor que cero.
Introduzca radio: 2.4
El área de la esfera de radio 2.4 es: 72.382279

 

Solución
 Páginas relacionadas
  · Instrucción repetitiva mientras (while do) en la sintaxis del Pascal.
  · Listado de ejercicios de programación resueltos en diferentes lenguajes.