• Lenguaje

    Pascal

  • Descripción

    El administrador del restaurante "Fredy's Tucán" desea saber cuánto dinero obtuvo en el día por las ventas realizadas, igualmente quiere saber el valor total de los descuentos realizados. El restaurante hizo N ventas en el día y tiene la siguiente política de descuento:
    - Si la venta es menor a $200, no hay descuento.
    - Si está entre $200 y $300, el descuento es del 10%.
    - Si la venta es superior a $300, el descuento es del 15%.

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
program DescuentosEnUnRestaurante;
uses crt;

var i, n : integer;
var descuento, descuentos_realizados, dinero_obtenido, total, venta : real;
begin
    descuentos_realizados := 0;
    dinero_obtenido := 0;
    write ('Ingresa el valor de n: ');
    readln (n);
    for i:=1 to n do
    begin
        writeln ('PROCESO ', i);
        write ('Ingresa el valor de venta: ');
        readln (venta);
        descuento := 0;
        if (venta>=200) and (venta<=300) then
            begin
                descuento := venta*0.1;
            end;
        if venta>300 then
            begin
                descuento := venta*0.15;
            end;
        total := venta-descuento;
        dinero_obtenido := dinero_obtenido+total;
        descuentos_realizados := descuentos_realizados+descuento;
        writeln ('Valor de descuento: ', descuento:0:6);
        writeln ('Valor de total: ', total:0:6);
        writeln;
    end;
    writeln ('Valor de descuentos realizados: ', descuentos_realizados:0:6);
    writeln ('Valor de dinero obtenido: ', dinero_obtenido:0:6);
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.