Ejercicios de programación en Pascal (Turbo Pascal)
C/C++/C# HTML Java JavaScript Linux PHP Python Swift
 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).
 Páginas relacionadas
  · Solución del ejercicio en pseudocódigo, ordinogramalenguaje C.
  · Instrucción repetitiva mientras (while do) en la sintaxis del Pascal.
  · Listado de ejercicios de programación resueltos en diferentes lenguajes.