-
Lenguaje
Pascal
-
Descripción
Un cliente de un banco requiere solicitar un crédito de consumo para sus gastos personales.
El banco evalúa al cliente y determina si cumple con los requisitos para el otorgamiento del crédito. Además, determina el monto máximo que le otorgará.
El cliente debe cumplir con los siguientes requisitos:
1) El monto mínimo del crédito es de $500.000.
2) El plazo de cuotas es desde 3 a 84 cuotas.
3) Cumplir con rangos de edad entre 24 y 79 años.
4) Presentar nacionalidad chilena.
5) El sueldo mínimo debe ser de $250.000.
6) Presentar antigüedad laboral, mínimo 3 años.
7) No presentar morosidades.
Una vez aprobados todos los requisitos, el banco entrega un monto máximo de 10 veces el sueldo del cliente.
La tasa interés mensual es de 1,46 %.
De acuerdo a los datos entregados, desarrolle un programa que permita determinar si el cliente cumple o no los requisitos del crédito.
Si los cumple debe mostrar los datos del cliente, el monto máximo que le otorgará el banco, el monto solicitado, la tasa mensual, la cantidad de cuotas y el valor total que pagará al final el cliente considerando las cuotas y el interés mensual.
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
uses crt;
var nacionalidad, presenta_morosidades : integer;
var antiguedad_laboral, edad, monto_a_pagar, monto_maximo, monto_solicitado : real;
var plazo_de_cuotas, sueldo, tasa_mensual : real;
var nombre_de_cliente, numero_de_cuenta : string;
begin
write ('Ingresa el nombre de cliente: ');
readln (nombre_de_cliente);
write ('Ingresa el numero de cuenta: ');
readln (numero_de_cuenta);
write ('Ingresa el valor de antiguedad laboral: ');
readln (antiguedad_laboral);
write ('Ingresa el valor de edad: ');
readln (edad);
write ('Ingresa el valor de monto solicitado: ');
readln (monto_solicitado);
write ('Ingresa el valor de plazo de cuotas: ');
readln (plazo_de_cuotas);
write ('Ingresa el valor de sueldo: ');
readln (sueldo);
writeln ('Selecciona el valor de nacionalidad.');
writeln (' 1.- chilena');
writeln (' 2.- otra');
write (' : ');
repeat
readln (nacionalidad);
if (nacionalidad<1) or (nacionalidad>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (nacionalidad>=1) and (nacionalidad<=2);
writeln ('Selecciona el valor de presenta morosidades.');
writeln (' 1.- si');
writeln (' 2.- no');
write (' : ');
repeat
readln (presenta_morosidades);
if (presenta_morosidades<1) or (presenta_morosidades>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (presenta_morosidades>=1) and (presenta_morosidades<=2);
if (monto_solicitado>500000) and (plazo_de_cuotas>=3) and (plazo_de_cuotas<=84) and (edad>=24) and (edad<=79) and (nacionalidad=1) and (sueldo>=250000) and (antiguedad_laboral>=3) and (presenta_morosidades=2) then
begin
writeln ('Cumple con los requisitos.');
monto_maximo := sueldo*10;
tasa_mensual := 1.46;
end
else
begin
writeln ('No cumple con los requisitos.');
monto_maximo := 0;
tasa_mensual := 0;
end;
if monto_solicitado<=monto_maximo then
begin
monto_a_pagar := monto_solicitado*tasa_mensual;
end
else
begin
monto_a_pagar := monto_maximo*tasa_mensual;
end;
writeln ('Nombre de cliente: ', nombre_de_cliente);
writeln ('Numero de cuenta: ', numero_de_cuenta);
writeln ('Valor de monto a pagar: ', monto_a_pagar:0:6);
writeln ('Valor de monto maximo: ', monto_maximo:0:6);
writeln ('Valor de tasa mensual: ', tasa_mensual:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.