• Lenguaje

    Pascal

  • Descripción

    El papá de María desea saber cuánto será el pago total que deberá realizar a fin de mes por concepto de servicios de su casa (agua, luz, cable, internet, teléfono), siendo los siguientes montos:
    Servicio | Monto a Pagar Mensual
    Agua | S/. 90.00 soles
    Luz | S/. 65.00 soles
    Cable | S/. 45.00 soles
    Internet | S/. 90.00 soles
    Teléfono | S/. 45.00 soles
    Realizar un pseudocódigo que permita obtener el monto total a pagar por concepto de servicios.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program PagoTotalPorConceptoDeServiciosDeCasa;
uses crt;

var concepto_de servicios, servicio_de_agua, servicio_de_cable, servicio_de_internet, servicio_de_luz : real;
var servicio_de_telefono : real;
begin
    servicio_de_agua := 90.0;
    servicio_de_luz := 65.0;
    servicio_de_cable := 45.0;
    servicio_de_internet := 90.0;
    servicio_de_telefono := 45.0;
    concepto_de servicios := servicio_de_agua+servicio_de_luz+servicio_de_cable+servicio_de_internet+servicio_de_telefono;
    writeln ('Valor de concepto de servicios: ', concepto_de servicios:0:6);
    writeln ('Valor de servicio de agua: ', servicio_de_agua:0:6);
    writeln ('Valor de servicio de cable: ', servicio_de_cable:0:6);
    writeln ('Valor de servicio de internet: ', servicio_de_internet:0:6);
    writeln ('Valor de servicio de luz: ', servicio_de_luz:0:6);
    writeln ('Valor de servicio de telefono: ', servicio_de_telefono:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.