• Lenguaje

    Pascal

  • Descripción

    La droguería Alquería requiere de un programa que le indique el valor verdadero de los productos que allí se venden ya que durante el proceso de etiquetar los precios la persona encargada cometió un error y los productos quedaron un 2% más económicos de su valor normal, el algoritmo debe de recibir el valor del producto y sumarle el 2% de su valor al valor total del mismo e indicarlo por medio de un mensaje.

1
2
3
4
5
6
7
8
9
10
11
12
13
program DrogueriaAlqueria;
uses crt;

var precio_anterior, precio_normal : real;
begin
    write ('Ingresa el valor de precio anterior: ');
    readln (precio_anterior);
    precio_normal := precio_anterior*1.02;
    writeln ('Valor de precio normal: ', precio_normal:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.