-
Lenguaje
Pascal
-
Descripción
El dueño de una empresa desea planificar las decisiones financieras que tomara en el siguiente año.
La manera de planificarlas depende de lo siguiente:
- Si actualmente su capital se encuentra con saldo negativo, pedirá un préstamo bancario para que su nuevo saldo sea de L. 50,000.
- Si su capital tiene actualmente un saldo positivo pedirá un préstamo bancario para tener un nuevo saldo de L. 120,000.
- Si su capital tiene actualmente un saldo superior a los L. 120,000 no pedirá ningún préstamo.
Posteriormente repartirá su presupuesto de la siguiente manera:
- L. 50,000 para equipo de computo
- L. 20,000 para mobiliario
y el resto la mitad será para la compra de insumos y la otra para otorgar incentivos al personal.
Desplegar que cantidades se destinaran para la compra de insumos e incentivos al personal y, en caso de que fuera necesario, a cuánto ascendería la cantidad que se pediría al banco.
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
uses crt;
var capital, prestamo_bancario, presupuesto, presupuesto_equipo_computo, presupuesto_incentivos : real;
var presupuesto_insumos, presupuesto_mobiliario : real;
begin
write ('Ingresa el valor de capital: ');
readln (capital);
prestamo_bancario := 0;
presupuesto := 0;
presupuesto_equipo_computo := 50000;
presupuesto_mobiliario := 0;
if capital<0 then
begin
prestamo_bancario := 50000.0-capital;
presupuesto := 50000;
end;
if (capital>=0) and (capital<120000) then
begin
prestamo_bancario := 120000.0-capital;
presupuesto := 120000;
presupuesto_mobiliario := 20000;
end;
if capital>=120000 then
begin
presupuesto := capital;
presupuesto_mobiliario := 20000;
end;
presupuesto_insumos := (presupuesto-presupuesto_equipo_computo-presupuesto_mobiliario)/2;
presupuesto_incentivos := presupuesto_insumos;
writeln ('Valor de prestamo bancario: ', prestamo_bancario:0:6);
writeln ('Valor de presupuesto: ', presupuesto:0:6);
writeln ('Valor de presupuesto equipo computo: ', presupuesto_equipo_computo:0:6);
writeln ('Valor de presupuesto incentivos: ', presupuesto_incentivos:0:6);
writeln ('Valor de presupuesto insumos: ', presupuesto_insumos:0:6);
writeln ('Valor de presupuesto mobiliario: ', presupuesto_mobiliario:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.