Pascal/Turbo Pascal - Problemas free pascal

   
Vista:
Imágen de perfil de Víctor

Problemas free pascal

Publicado por Víctor (1 intervención) el 25/07/2017 20:33:55
Cómo resolver este problema en free pascal

Un productor de leche lleva el registro de lo que produce en litros pero cuando entrega le pagan en galones.

Realicé un programa en Pascal que ayuda a resolver cuánto va a ganar por la entrega de su producción de un día. (1 galón=3.785 litros).

Nota: el programa deberá solicitar la cantidad de litros al usuario para realizar los cálculos respectivos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Problemas free pascal

Publicado por dario alderaan@ec-red.com (30 intervenciones) el 26/07/2017 16:44:02
Te dejjo esto a ver si te sirve.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
const
	galon = 3.785;
var
	litros:integer;
	g,costoGalon,total:real;
begin
	clrscr;
	write('Cantidad de litros producido por dia: ');
	readln(litros);
	write('Costo por galon: ');
	readln(costoGalon);
 
	g:=litros/galon; //convierte los litros a galones
	total:=g*costoGalon; //calcula el total galones*costoGalon
 
	writeln('Por ',g:5:2,' galones de leche recibira ',total:5:2);
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar