Calculando balance general 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 introduscan 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...