Venta de zapatos en lenguaje Pascal

Lenguaje

Pascal
Descripción

Un amigo suyo acaba de iniciar un negocio de venta de zapatos. Por ahora sólo vende tres tipos de zapatos: sandalias, tenis y mocasines. Cada tipo de zapato lo adquiere a un costo distinto y para venderlos, supone una ganancia del 55%. Cuando un cliente llega debe comprar de los tres tipos de zapatos y la cantidad que desee de cada uno de ellos. El cliente tiene derecho a un 8% de descuento sobre la compra que realiza. Ayúdele a su amigo a crear un programa que, para un cliente dado, muestre su nombre, el valor de la venta sin descuento, el descuento, valor de la venta con descuento y valor de la venta incluyendo IVA (venta neta final).

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

program VentaDeZapatos;

uses crt;

var IVA, cantidad_de_mocasines, cantidad_de_sandalias, cantidad_de_tenis, costo_de_mocasines : real;

var costo_de_sandalias, costo_de_tenis, descuento, venta_con_descuento, venta_neta_final : real;

var venta_sin_descuento : real;

var su_nombre : string;

begin

    write ('Ingresa el su nombre: ');

    readln (su_nombre);

    write ('Ingresa el valor de cantidad de mocasines: ');

    readln (cantidad_de_mocasines);

    write ('Ingresa el valor de cantidad de sandalias: ');

    readln (cantidad_de_sandalias);

    write ('Ingresa el valor de cantidad de tenis: ');

    readln (cantidad_de_tenis);

    write ('Ingresa el valor de costo de mocasines: ');

    readln (costo_de_mocasines);

    write ('Ingresa el valor de costo de sandalias: ');

    readln (costo_de_sandalias);

    write ('Ingresa el valor de costo de tenis: ');

    readln (costo_de_tenis);

    venta_sin_descuento := (cantidad_de_sandalias*costo_de_sandalias+cantidad_de_tenis*costo_de_tenis+cantidad_de_mocasines*costo_de_mocasines)*1.55;

    descuento := venta_sin_descuento*0.08;

    venta_con_descuento := venta_sin_descuento-descuento;

    IVA := venta_con_descuento*0.16;

    venta_neta_final := venta_con_descuento+IVA;

    writeln ('Su nombre: ', su_nombre);

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

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

    writeln ('Valor de venta con descuento: ', venta_con_descuento:0:6);

    writeln ('Valor de venta neta final: ', venta_neta_final:0:6);

    writeln ('Valor de venta sin descuento: ', venta_sin_descuento:0:6);

    writeln;

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

    readkey;

end.