• Lenguaje

    Pascal

  • Descripción

    Determina el monto de un cheque que debe proporcionar a uno de sus empleados que tendrá que ir por equis número de días a la ciudad que sea; los gastos que cubre la empresa son: hotel, comida y 100.00 pesos diarios para otros gastos.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program GastosDeEmpleadoPorHotelYComida;
uses crt;

var comida_al_dia, dias_de_estancia, monto_del_cheque, noche_de_hotel : real;
begin
    write ('Ingresa el valor de comida al dia: ');
    readln (comida_al_dia);
    write ('Ingresa el valor de dias de estancia: ');
    readln (dias_de_estancia);
    write ('Ingresa el valor de noche de hotel: ');
    readln (noche_de_hotel);
    monto_del_cheque := dias_de_estancia*(noche_de_hotel+comida_al_dia+100);
    writeln ('Valor de monto del cheque: ', monto_del_cheque:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.