-
Lenguaje
Pascal
-
Descripción
Tomando como base los resultados obtenidos en un estudio, es posible determinar si una persona es apta o no para conseguir un crédito, lo cual depende del tiempo trabajado y de sus ingresos. Si el nivel de ingresos es menor que el rango que le corresponde, se determina su resultado como negativo y en caso contrario como positivo. La tabla es la siguiente:
TIEMPO | INGRESOS
0 – 1 mes | 1300 - 2600
1 y < = 6 meses | 1000 - 1800
6 y < = 12 meses | 1100 - 1500
1 y < = 5 años | 1150 - 1500
5 y < = 10 años | 1260 - 1550
10 y < = 15 años | 1300 - 1550
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program CondicionesParaUnCredito;
uses crt;
var ingresos, tiempo_trabajado_en_meses : real;
begin
write ('Ingresa el valor de ingresos: ');
readln (ingresos);
write ('Ingresa el valor de tiempo trabajado en meses: ');
readln (tiempo_trabajado_en_meses);
if ((tiempo_trabajado_en_meses<=1) and (ingresos>=1300) and (ingresos<=2600)) or ((tiempo_trabajado_en_meses>1) and (tiempo_trabajado_en_meses<=6) and (ingresos>=1000) and (ingresos<=1800)) or ((tiempo_trabajado_en_meses>6) and (tiempo_trabajado_en_meses<=12) and (ingresos>=1100) and (ingresos<=1500)) or ((tiempo_trabajado_en_meses>16) and (tiempo_trabajado_en_meses<=60) and (ingresos>=1150) and (ingresos<=1500)) or ((tiempo_trabajado_en_meses>60) and (tiempo_trabajado_en_meses<=120) and (ingresos>=1260) and (ingresos<=1550)) or ((tiempo_trabajado_en_meses>120) and (tiempo_trabajado_en_meses<=180) and (ingresos>=1300) and (ingresos<=1550)) then
begin
writeln ('La persona s'#161' es apta para conseguir un cr'#130'dito.');
end
else
begin
writeln ('La persona no es apta para conseguir un cr'#130'dito.');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var ingresos, tiempo_trabajado_en_meses : real;
begin
write ('Ingresa el valor de ingresos: ');
readln (ingresos);
write ('Ingresa el valor de tiempo trabajado en meses: ');
readln (tiempo_trabajado_en_meses);
if ((tiempo_trabajado_en_meses<=1) and (ingresos>=1300) and (ingresos<=2600)) or ((tiempo_trabajado_en_meses>1) and (tiempo_trabajado_en_meses<=6) and (ingresos>=1000) and (ingresos<=1800)) or ((tiempo_trabajado_en_meses>6) and (tiempo_trabajado_en_meses<=12) and (ingresos>=1100) and (ingresos<=1500)) or ((tiempo_trabajado_en_meses>16) and (tiempo_trabajado_en_meses<=60) and (ingresos>=1150) and (ingresos<=1500)) or ((tiempo_trabajado_en_meses>60) and (tiempo_trabajado_en_meses<=120) and (ingresos>=1260) and (ingresos<=1550)) or ((tiempo_trabajado_en_meses>120) and (tiempo_trabajado_en_meses<=180) and (ingresos>=1300) and (ingresos<=1550)) then
begin
writeln ('La persona s'#161' es apta para conseguir un cr'#130'dito.');
end
else
begin
writeln ('La persona no es apta para conseguir un cr'#130'dito.');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.