-
Lenguaje
Pascal
-
Descripción
Un productor de leche lleva el registro de lo que produce en litros, pero cuando entrega le pagan en galones. Ayude al productor a saber cuánto recibirá por la entrega de su producción de un día.
1 galón = 3.785 litros
Costo galón $35.
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 ProductorDeLeche;
uses crt;
var costo_por_galon, galones, litros, pago : real;
begin
write ('Ingresa el valor de litros: ');
readln (litros);
costo_por_galon := 35.0;
galones := litros/3.785;
pago := galones*costo_por_galon;
writeln ('Valor de costo por galon: ', costo_por_galon:0:6);
writeln ('Valor de galones: ', galones:0:6);
writeln ('Valor de pago: ', pago:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var costo_por_galon, galones, litros, pago : real;
begin
write ('Ingresa el valor de litros: ');
readln (litros);
costo_por_galon := 35.0;
galones := litros/3.785;
pago := galones*costo_por_galon;
writeln ('Valor de costo por galon: ', costo_por_galon:0:6);
writeln ('Valor de galones: ', galones:0:6);
writeln ('Valor de pago: ', pago:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.