Vendedor de celulares en lenguaje Pascal

Lenguaje

Pascal
Descripción

Un vendedor de celulares registra las ventas que hace en pesos, pero el costo del producto esta en dólares y siempre obtiene un 20% de ganancia en cada equipo vendido, realice un algoritmo y represéntelo mediante un pseudocódigo, que ayude al vendedor a saber cuanto recibirá por la venta de un equipo si se averigua previamente el costo del mismo en dólares, tenga en cuenta que el valor del dólar cambia cada día.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

program VendedorDeCelulares;

uses crt;

var costo_del_producto_en_dolares, costo_del_producto_en_pesos, costo_por_dolar_en_pesos, ganancia, venta_del_producto : real;

begin

    write ('Ingresa el valor de costo del producto en dolares: ');

    readln (costo_del_producto_en_dolares);

    write ('Ingresa el valor de costo por dolar en pesos: ');

    readln (costo_por_dolar_en_pesos);

    costo_del_producto_en_pesos := costo_por_dolar_en_pesos*costo_del_producto_en_dolares;

    ganancia := costo_del_producto_en_pesos*0.2;

    venta_del_producto := costo_del_producto_en_pesos+ganancia;

    writeln ('Valor de costo del producto en pesos: ', costo_del_producto_en_pesos:0:6);

    writeln ('Valor de ganancia: ', ganancia:0:6);

    writeln ('Valor de venta del producto: ', venta_del_producto:0:6);

    writeln;

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.