Ejemplo calculando balance general while pascal

Hi en este ejemplo de turbo pascal mostrare un simple uso que se le
puede dar al while con el cual calcularemos un balance general
por cada vez que se introduzcan valores de activos y pasivos
.
aqui el codigo

Program appletenhtml(input,output);







uses

 crt; 

Var

 x,activo,pasivo,capital: Integer;

 

      while x <> 0 do

 

Begin

     writeln('Balance general: ');

  writeln('Ingrese numero negativo para pasivo, positivo para activo: ');

         readln(x);

  if (x > 0) Then

      begin

   activo:=activo+x;

     end;

     

   

  if (x < 0) Then

      begin

   pasivo:=pasivo+x;

     end;

     

                                                      end;

              writeln('Balance general: ');

     writeln('Total de activos: ',activo);

                    writeln('Total de pasivos: 'pasivo);     

              capital:= activo+pasivo;

     writeln('Capital contable: ',capital);

  

 readkey;

End.

Descargar ejemplo:

while pascal

Turbo Pascal