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