-
Lenguaje
Pascal
-
Descripción
La empresa "Consultoría Luz y sombras" desea implementar un módulo sencillo que le permita controlar y determinar el monto de los cheques que debe proporcionar a sus empleados cuando les asigné una comisión por equis número de días a equis sitios; los gastos que cubre la empresa son:
- Traslado, hotel, comida y $200.00 diarios para otros gastos.
- Si los gastos exceden el monto de $10,000, se realiza una transferencia a la cuenta del empleado, en caso contrario se hace entrega de efectivo.
- El monto debe estar desglosado para cada concepto.
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
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
program ConsultoriaLuzYSombras;
uses crt;
var costo_de_comida, costo_de_hotel, costo_del_traslado, monto, numero_de_dias : real;
begin
write ('Ingresa el valor de costo de comida: ');
readln (costo_de_comida);
write ('Ingresa el valor de costo de hotel: ');
readln (costo_de_hotel);
write ('Ingresa el valor de costo del traslado: ');
readln (costo_del_traslado);
write ('Ingresa el valor de numero de dias: ');
readln (numero_de_dias);
monto := numero_de_dias*(costo_del_traslado+costo_de_hotel+costo_de_comida+200);
if monto>10000 then
begin
writeln ('Forma de pago: transferencia');
end
else
begin
writeln ('Forma de pago: efectivo');
end;
writeln ('Valor de monto: ', monto:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var costo_de_comida, costo_de_hotel, costo_del_traslado, monto, numero_de_dias : real;
begin
write ('Ingresa el valor de costo de comida: ');
readln (costo_de_comida);
write ('Ingresa el valor de costo de hotel: ');
readln (costo_de_hotel);
write ('Ingresa el valor de costo del traslado: ');
readln (costo_del_traslado);
write ('Ingresa el valor de numero de dias: ');
readln (numero_de_dias);
monto := numero_de_dias*(costo_del_traslado+costo_de_hotel+costo_de_comida+200);
if monto>10000 then
begin
writeln ('Forma de pago: transferencia');
end
else
begin
writeln ('Forma de pago: efectivo');
end;
writeln ('Valor de monto: ', monto:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.