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

Ejercicio 1 - Media aritmética de números introducidos (Repetitiva repetir...hasta - Pascal)

Escribir un programa (en Pascal) que:

1º) Pida por teclado un número (dato entero).
2º) Muestre por pantalla los mensajes:
  • Ha introducido <cantidad_de_números> número(s)
  • La suma es <suma>
3º) Pregunte al usuario si desea introducir otro o no.
4º) Repita los pasos 1º, 2º y 3º, mientras que, el usuario no responda 'n' de (no).
5º) Muestre por pantalla la media aritmética (dato real) de los números introducidos.

Nota: Utilice un bucle repetir...hasta (repeat...until).

En pantalla:

Introduzca un número entero: 3
Ha introducido 1 número(s)
La suma es 3

¿Desea introducir otro (s/n)?: s
Introduzca un número entero: 7
Ha introducido 2 número(s)
La suma es 10

¿Desea introducir otro (s/n)?: s
Introduzca un número entero: 6
Ha introducido 3 número(s)
La suma es 16

¿Desea introducir otro (s/n)?: s
Introduzca un número entero: 13
Ha introducido 4 número(s)
La suma es 29


¿Desea introducir otro (s/n)?: n
La media aritmética es 7.25

 

Introduzca un número entero: 8
Ha introducido 1 número(s)
La suma es 8

¿Desea introducir otro (s/n)?: n
La media aritmética es 8.000000

 

Solución
 Páginas relacionadas
  · Instrucción repetitiva repetir...hasta (repeat...until) en la sintaxis del Pascal.
  · Listado de ejercicios de programación resueltos en diferentes lenguajes.