• 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.

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
31
32
33
34
35
program CompraAUnaFabricaDeRefacciones2;
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.