-
Lenguaje
Pascal
-
Descripción
Un vendedor necesita semanalmente calcular el precio de venta del cuarto de aceite, para esto debe tomar en cuenta que el dueño de la compañía desea ganar un margen de 20% sobre venta. El tanque de 55 galones de aceite de motor 20W50 tiene un costo variado. Crear una aplicación que capture los datos cantidad de tanques y costo de los mismos para que determine a qué precio se debe vender el cuarto de aceite. Recuerde que un galón tiene 4 cuartos y que el margen sobre venta no es igual al margen sobre costo. Margen = 100-((costo*100)/venta).
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 PrecioDelCuartoDeAceite;
uses crt;
var costo_del_cuarto, costo_del_tanque, margen, precio_de_venta : real;
begin
write ('Ingresa el valor de costo del tanque: ');
readln (costo_del_tanque);
costo_del_cuarto := costo_del_tanque/55/4;
margen := costo_del_cuarto*0.2;
precio_de_venta := costo_del_cuarto+margen;
writeln ('Valor de costo del cuarto: ', costo_del_cuarto:0:6);
writeln ('Valor de margen: ', margen:0:6);
writeln ('Valor de precio de venta: ', precio_de_venta:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var costo_del_cuarto, costo_del_tanque, margen, precio_de_venta : real;
begin
write ('Ingresa el valor de costo del tanque: ');
readln (costo_del_tanque);
costo_del_cuarto := costo_del_tanque/55/4;
margen := costo_del_cuarto*0.2;
precio_de_venta := costo_del_cuarto+margen;
writeln ('Valor de costo del cuarto: ', costo_del_cuarto:0:6);
writeln ('Valor de margen: ', margen:0:6);
writeln ('Valor de precio de venta: ', precio_de_venta:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.