• Lenguaje

    Pascal

  • Descripción

    Calcular la sumatoria de las ventas de los primeros N clientes y el total de descuentos otorgados. Teniendo en cuenta que:
    a) Los primeros 5 clientes tienen un 20% de descuento del valor de la compra.
    b) Los clientes que llegaron del puesto 11 al puesto 15 tienen un 15% de descuento del valor de la compra.
    c) Los clientes que llegaron en el puesto 15 en adelante no tienen descuento.

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

var i, n : integer;
var compra, descuento, descuentos, sumatoria : real;
begin
    descuentos := 0;
    sumatoria := 0;
    write ('Ingresa el valor de n: ');
    readln (n);
    for i:=1 to n do
    begin
        writeln ('PROCESO ', i);
        write ('Ingresa el valor de compra: ');
        readln (compra);
        descuento := 0;
        if (n>=1) and (n<=5) then
            begin
                descuento := compra*0.2;
            end;
        if (n>=11) and (n<=15) then
            begin
                descuento := compra*0.15;
            end;
        sumatoria := sumatoria+compra;
        descuentos := descuentos+descuento;
        writeln ('Valor de descuento: ', descuento:0:6);
        writeln;
    end;
    writeln ('Valor de descuentos: ', descuentos:0:6);
    writeln ('Valor de sumatoria: ', sumatoria:0:6);
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.