-
Lenguaje
Pascal
-
Descripción
Don Gilberto produce leche en su Rancho "La vaca gorda". Diario lleva el registro de lo que producen sus animales en litros. Al vender la leche se la pagan en galones. Realice un programa que le permita a Don Gilberto saber cuánto dinero recibirá de su producción de un día (1 galón = 3.785 litros).
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 RanchoLaVacaGorda;
uses crt;
var galones_de_leche, litros_de_leche, pago, pago_por_galon : real;
begin
write ('Ingresa el valor de litros de leche: ');
readln (litros_de_leche);
write ('Ingresa el valor de pago por galon: ');
readln (pago_por_galon);
galones_de_leche := litros_de_leche/3.785;
pago := pago_por_galon*galones_de_leche;
writeln ('Valor de galones de leche: ', galones_de_leche:0:6);
writeln ('Valor de pago: ', pago:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var galones_de_leche, litros_de_leche, pago, pago_por_galon : real;
begin
write ('Ingresa el valor de litros de leche: ');
readln (litros_de_leche);
write ('Ingresa el valor de pago por galon: ');
readln (pago_por_galon);
galones_de_leche := litros_de_leche/3.785;
pago := pago_por_galon*galones_de_leche;
writeln ('Valor de galones de leche: ', galones_de_leche:0:6);
writeln ('Valor de pago: ', pago:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.