• Lenguaje

    Pascal

  • Descripción

    Un cliente, por campaña navideña, desea comprar panetones, donde según su marca tiene un precio:

    Marca del Panetón | Precio Unitario
    D'Onofrio | 20
    Motta | 19
    Todinno | 18
    Naval | 9
    Santa Claus | 11
    Doña Pepa | 10

    Si el cliente desea comprar más de 20 panetones de una misma marca, se le aplicará un descuento del 10% sobre el monto de la compra, obteniendo así el neto, que es la diferencia entre el monto y el descuento.
    Ingrese por teclado el nombre del cliente, la marca del panetón y la cantidad de panteones a comprar; visualice el precio unitario del panteón, el monto de la compra, el descuento y el neto a pagar.

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
program CompraDePanetones;
uses crt;

var marca_del_paneton : integer;
var cantidad, descuento, monto_de_la_compra, neto_a_pagar, precio_unitario : real;
begin
    write ('Ingresa el valor de cantidad: ');
    readln (cantidad);
    writeln ('Selecciona el valor de marca del paneton.');
    writeln ('    1.- D'Onofrio');
    writeln ('    2.- Motta');
    writeln ('    3.- Todinno');
    writeln ('    4.- Naval');
    writeln ('    5.- Santa Claus');
    writeln ('    6.- Do'#164'a Pepa');
    write ('    : ');
    repeat
        readln (marca_del_paneton);
        if (marca_del_paneton<1) or (marca_del_paneton>6) then
            write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
    until (marca_del_paneton>=1) and (marca_del_paneton<=6);
    precio_unitario := 0;
    if marca_del_paneton=1 then
        begin
            precio_unitario := 20;
        end;
    if marca_del_paneton=2 then
        begin
            precio_unitario := 19;
        end;
    if marca_del_paneton=3 then
        begin
            precio_unitario := 18;
        end;
    if marca_del_paneton=4 then
        begin
            precio_unitario := 9;
        end;
    if marca_del_paneton=5 then
        begin
            precio_unitario := 11;
        end;
    if marca_del_paneton=6 then
        begin
            precio_unitario := 10;
        end;
    monto_de_la_compra := precio_unitario*cantidad;
    if cantidad>20 then
        begin
            descuento := monto_de_la_compra*0.1;
        end
    else
        begin
            descuento := 0;
        end;
    neto_a_pagar := monto_de_la_compra-descuento;
    writeln ('Valor de descuento: ', descuento:0:6);
    writeln ('Valor de monto de la compra: ', monto_de_la_compra:0:6);
    writeln ('Valor de neto a pagar: ', neto_a_pagar:0:6);
    writeln ('Valor de precio unitario: ', precio_unitario:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.