Pascal/Turbo Pascal - Ayuda con calculo simple

   
Vista:

Ayuda con calculo simple

Publicado por asd123 (1 intervención) el 15/07/2009 22:16:31
Buenas, tengo un problema con este programa, que pide datos al usuario, y hace unos simples calculos y los muestra en pantalla

el ccss es 8% del salario

el bp es el 1 % del salario

la deduccion total es la suma de esos 2

el prolema es que al correrlo, me sale cualquier cosa de resultado, algo como

1.230000000000000000000000E+120

cosas así

mi programa es:

program trabajador;

uses crt;

var

cedula:longint;
nombre:string;
salario, ccss, bp, totded, salneto:real;

begin(*body*)
clrscr;
writeln ('Escriba su nombre');
readln (nombre);
writeln ('Ingrese su número de cédula') ;
readln (cedula) ;
writeln ('Ingrese su salario') ;
readln (salario) ;

ccss:= ( 8 * salario ) / 100 ;
bp:= (1*salario) / 100 ;
totded:= ccss + bp ;
salneto:= salario - totded ;

writeln ('Estimado empleado ', nombre, ', en este mes su salario se desglosa así:');

writeln ('Salario bruto:', salario) ;
writeln ('8%CCSS:', ccss) ;
writeln ('1 % Banco Popular:', BP) ;
writeln ('Total de deducciones', totded) ;
writeln ('Salario Neto:', salneto) ;

readln;

end.

gracias!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda con calculo simple

Publicado por Miguel (162 intervenciones) el 15/07/2009 22:54:37
Estimado asd123, el resultado no es cualquier cosa, lo que sucede que esta en notación cientifica (al menos eso creo), lo que tienes que hacer es darle formato (esto es solo para los REALES), ¿como hacerlo?.
Bueno supongamos que el calculo que deseas mostrar esta dentro de una variable de tipo real llamada "salario".
La forma de mostrarlo (ejemplo) es: WRITELN(salario:2:0);
Puedes ir amoldando como quieras el formato, solo te he dado un ejemplo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda con calculo simple

Publicado por asd123 (1 intervención) el 15/07/2009 23:29:28
era eso, gracias!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar