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