Monto del cheque en la ciudad de Tena en lenguaje Pascal

Lenguaje

Pascal
Descripción

Una empresa desea determinar 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 de Tena; los gastos que cubre la empresa son: hotel, comida y 100.00 dólares diarios para otros gastos. El monto debe estar desglosado para cada concepto. Determine el monto del cheque.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

program MontoDelChequeEnLaCiudadDeTena;

uses crt;

var concepto_de_comida, concepto_de_hotel, costo_de_comida_por_dia, costo_del_hotel_por_dia, equis_numero_de_dias : real;

var monto_del_cheque, otros_gastos : real;

begin

    write ('Ingresa el valor de costo de comida por dia: ');

    readln (costo_de_comida_por_dia);

    write ('Ingresa el valor de costo del hotel por dia: ');

    readln (costo_del_hotel_por_dia);

    write ('Ingresa el valor de equis numero de dias: ');

    readln (equis_numero_de_dias);

    concepto_de_hotel := equis_numero_de_dias*costo_del_hotel_por_dia;

    concepto_de_comida := equis_numero_de_dias*costo_de_comida_por_dia;

    otros_gastos := equis_numero_de_dias*100;

    monto_del_cheque := concepto_de_hotel+concepto_de_comida+otros_gastos;

    writeln ('Valor de concepto de comida: ', concepto_de_comida:0:6);

    writeln ('Valor de concepto de hotel: ', concepto_de_hotel:0:6);

    writeln ('Valor de monto del cheque: ', monto_del_cheque:0:6);

    writeln ('Valor de otros gastos: ', otros_gastos:0:6);

    writeln;

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.