-
Lenguaje
Pascal
-
Descripción
Simule el proceso de evaluación crediticia de un banco. Se debe de validar que la edad mínima de la persona es 18 años, que sus ingresos son mayores a sus egresos, y que al final del mes la persona pueda pagar la cuota de su préstamo. La cuota está definida como el monto pedido entre el número de meses en que se desea pagar dicho préstamo.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
program EvaluacionCrediticia;
uses crt;
var cuota, edad, egresos, ingresos, monto_pedido : real;
var numero_de_meses : real;
begin
write ('Ingresa el valor de edad: ');
readln (edad);
write ('Ingresa el valor de egresos: ');
readln (egresos);
write ('Ingresa el valor de ingresos: ');
readln (ingresos);
write ('Ingresa el valor de monto pedido: ');
readln (monto_pedido);
write ('Ingresa el valor de numero de meses: ');
readln (numero_de_meses);
cuota := monto_pedido/numero_de_meses;
if (edad>=18) and (ingresos-egresos>cuota) then
begin
writeln ('Aprobado');
end
else
begin
writeln ('Rechazado');
end;
writeln ('Valor de cuota: ', cuota:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var cuota, edad, egresos, ingresos, monto_pedido : real;
var numero_de_meses : real;
begin
write ('Ingresa el valor de edad: ');
readln (edad);
write ('Ingresa el valor de egresos: ');
readln (egresos);
write ('Ingresa el valor de ingresos: ');
readln (ingresos);
write ('Ingresa el valor de monto pedido: ');
readln (monto_pedido);
write ('Ingresa el valor de numero de meses: ');
readln (numero_de_meses);
cuota := monto_pedido/numero_de_meses;
if (edad>=18) and (ingresos-egresos>cuota) then
begin
writeln ('Aprobado');
end
else
begin
writeln ('Rechazado');
end;
writeln ('Valor de cuota: ', cuota:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.