-
Lenguaje
Pascal
-
Descripción
Una empresa quiere hacer una compra de varias piezas de la misma clase a una fábrica de refacciones y desea saber de acuerdo al valor total de las piezas que comprar: el valor que debe colocar en efectivo de su propia inversión, el valor que debe prestar al banco y el valor debe pagar para el caso que aplique un crédito con el fabricante. Si el valor total de la compra excede de $1’000,000 la empresa tendrá la capacidad de invertir de su propio dinero en efectivo un 55% del monto de la compra, pedir prestado al banco un 30% y el resto lo pagara solicitando un crédito al fabricante. Si el monto total de la compra no excede de $1’000,000 y es mayor a $500.000 la empresa tendrá capacidad de invertir de su propio dinero en efectivo un 70% y el restante 30% lo pagara solicitando crédito al fabricante; Y si el monto total de la compra no excede de $500,000 la empresa pone el 80% en efectivo y el 20% lo cancela con un crédito al banco. Tenga en cuenta que el fabricante cobra por concepto de intereses un 15% sobre el valor del crédito que se le solicite.
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
uses crt;
var credito_con_el_fabricante, intereses, inversion_en_efectivo, monto_de_la_compra, prestamo_al_banco : real;
var total_de_las_piezas : real;
begin
write ('Ingresa el valor de monto de la compra: ');
readln (monto_de_la_compra);
if monto_de_la_compra>1000000 then
begin
inversion_en_efectivo := monto_de_la_compra*0.55;
prestamo_al_banco := monto_de_la_compra*0.3;
end;
if (monto_de_la_compra<=1000000) and (monto_de_la_compra>500000) then
begin
inversion_en_efectivo := monto_de_la_compra*0.7;
prestamo_al_banco := 0.3;
end;
if monto_de_la_compra<=500000 then
begin
inversion_en_efectivo := monto_de_la_compra*0.8;
prestamo_al_banco := 0.2;
end;
credito_con_el_fabricante := monto_de_la_compra-inversion_en_efectivo-prestamo_al_banco;
intereses := credito_con_el_fabricante*0.15;
total_de_las_piezas := monto_de_la_compra+intereses;
writeln ('Valor de credito con el fabricante: ', credito_con_el_fabricante:0:6);
writeln ('Valor de intereses: ', intereses:0:6);
writeln ('Valor de inversion en efectivo: ', inversion_en_efectivo:0:6);
writeln ('Valor de prestamo al banco: ', prestamo_al_banco:0:6);
writeln ('Valor de total de las piezas: ', total_de_las_piezas:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.