Ejercicio 2
- Volúmenes de cubos (Repetitiva mientras
- Pascal)
Escribir un programa (en Pascal) que:
1º)
Pida por teclado la arista (dato real) de un cubo.
2º) En el
caso de que la arista sea mayor que cero, muestre por pantalla el
mensaje:
- "El volumen del
cubo de arista <arista> es: <volumen>".
3º) Repita los
pasos 1º y 2º, mientras que, la arista introducida
sea mayor que cero.
4º) Muestre por pantalla cuantos volúmenes de cubos
han sido calculados.
Nota
1: Volumen de un cubo = arista3
Nota
2: Utilice un bucle mientras (while).
En pantalla:
Introduzca
arista: 7.3
El volumen de un cubo de arista 7.3 es: 389.017
Introduzca
arista: 10.1
El volumen de un cubo de arista 10.1 es: 1030.301
Introduzca
arista: 0
Ha
calculado el volumen de 2 cubo(s).
|
Introduzca
arista: -5.8
Ha calculado el volumen de 0 cubo(s).
|
Solución
|
|
