Ejercicios de programación en Pascal (Turbo Pascal)
C/C++/C# HTML Java JavaScript Linux PHP Python Swift
 Inicio Ejercicios Pascal Repetitiva mientras 2 > Solución

Solución del Ejercicio 2 - Volúmenes de cubos (Repetitiva mientras - Pascal)

program ARM13021;

uses Crt;

var
   Contador : Integer;
     Arista : Real;

begin
   ClrScr;
   Write( 'Introduzca arista: ' );
   ReadLn( Arista );

   Contador := 0; { Inicializacion del contador }

   while ( Arista > 0 ) do
      begin
         WriteLn( 'El volumen de un cubo de arista ', Arista:0:2,
                  ' es: ', Arista * Arista * Arista:0:2 );

         Contador := Contador + 1; { Incremento }

         Write( 'Introduzca arista: ' );
         ReadLn( Arista )
      end;

   Write( 'Ha calculado el volumen de ', Contador, ' cubo(s).' );
end.

Programa (.PAS): Volúmenes de cubos

(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.