-
Lenguaje
Pascal
-
Descripción
Calcular el costo de las nueces si al fabricar barras de chocolate cada uno lleva 3/4 partes de onza de nueces. El costo por onza de nueces es de 12 centavos.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program CostoDeLasNuecesEnBarrasDeChocolate;
uses crt;
var cantidad_de_barras_de_chocolate, costo_de_las_nueces, onzas_de_nueces : real;
begin
write ('Ingresa el valor de cantidad de barras de chocolate: ');
readln (cantidad_de_barras_de_chocolate);
onzas_de_nueces := cantidad_de_barras_de_chocolate*3.0/4.0;
costo_de_las_nueces := onzas_de_nueces*0.12;
writeln ('Valor de costo de las nueces: ', costo_de_las_nueces:0:6);
writeln ('Valor de onzas de nueces: ', onzas_de_nueces:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var cantidad_de_barras_de_chocolate, costo_de_las_nueces, onzas_de_nueces : real;
begin
write ('Ingresa el valor de cantidad de barras de chocolate: ');
readln (cantidad_de_barras_de_chocolate);
onzas_de_nueces := cantidad_de_barras_de_chocolate*3.0/4.0;
costo_de_las_nueces := onzas_de_nueces*0.12;
writeln ('Valor de costo de las nueces: ', costo_de_las_nueces:0:6);
writeln ('Valor de onzas de nueces: ', onzas_de_nueces:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.