-
Lenguaje
Pascal
-
Descripción
Calcule el gasto de agua en una vivienda dado el número de litros gastados, siendo el sistema de cobro:
- La cuota fija mensual es de 6 pesos.
- Los primeros 50 litros son gratis (opción 1).
- Entre 50 y 200 litros se cobra el litro a 0.1 pesos (opción 2).
- A partir de 200 litros se cobra el litro a 0.3 pesos (opción 3).
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program GastoDeAguaEnUnaVivienda;
uses crt;
var gasto, litros : real;
begin
write ('Ingresa el valor de litros: ');
readln (litros);
gasto := 6;
if litros>50 then
begin
gasto := gasto+(litros-50)*0.1;
end;
if litros>200 then
begin
gasto := gasto+(litros-200)*0.2;
end;
writeln ('Valor de gasto: ', gasto:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var gasto, litros : real;
begin
write ('Ingresa el valor de litros: ');
readln (litros);
gasto := 6;
if litros>50 then
begin
gasto := gasto+(litros-50)*0.1;
end;
if litros>200 then
begin
gasto := gasto+(litros-200)*0.2;
end;
writeln ('Valor de gasto: ', gasto:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.