• 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
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.