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

	Búsqueda personalizada

Ejercicios de programación en Pascal (Turbo Pascal)

Inicio > Ejercicios > Pascal > Repetitiva repetir...hasta > 1 > Solución

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

program ARR13011;

uses Crt;

var
   Seguir : Char;
   Acumulador, Contador, Numero : Integer;

begin
ClrScr;
   Acumulador := 0;
   Contador := 0;

   repeat
      Write( 'Introduzca un numero entero: ' );
      ReadLn( Numero );

      Acumulador := Acumulador + Numero;
      Contador := Contador + 1;

      WriteLn( 'Ha introducido ', Contador, ' numero(s).' );
      WriteLn( 'La suma es ', Acumulador );

      WriteLn;
      Write( 'Desea introducir otro numero (s/n)?: ' );
      ReadLn( Seguir )
   until Seguir = 'n';

   Write( 'La media aritmetica es ', Acumulador / Contador:0:2 )
end.

Programa (.PAS): Media aritmética de dos números introducidos

(Véase el apartado 3.2 Repetitiva repetir...hasta ( la instrucción repeat...until ) del Curso de Pascal).