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