Solución del Ejercicio 1 - Área de una esfera (Repetitiva mientras - Pascal)

	Búsqueda personalizada

Ejercicios de programación en Pascal (Turbo Pascal)

Inicio > Ejercicios > Pascal > Repetitiva mientras > 1 > Solución

Solución del Ejercicio 1 - Área de una esfera (Repetitiva mientras - Pascal)

program ARM13011;

uses Crt;

var Radio : Real;

begin
ClrScr;
   Write( 'Introduzca radio: ' );
   ReadLn( Radio );

   { Filtramos el radio }

   while ( radio <= 0 ) do
      begin
         WriteLn( 'ERROR: El radio debe ser mayor que cero.' );
         Write( 'Introduzca radio: ' );
         ReadLn( Radio )
      end;

   Write( 'El area de la esfera de radio ', Radio:0:2, ' es: ',
          4 * 3.141592 * Radio * Radio:0:2 );
end.

Programa (.PAS): Área de una esfera

(Véase el apartado 3.1 Repetitiva mientras ( la instrucción while ) del Curso de Pascal).