• Lenguaje

    Pascal

  • Descripción

    Un vendedor ha realizado N ventas y desea saber cuántas fueron por 10,000 o menos, cuántas fueron por más de 10,000 pero por menos de 20,000, y cuánto fue el monto de las ventas de cada una y el monto global. Determinar los totales.

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

var i, n, ventas_de_0_a_10000, ventas_de_10000_a_20000 : integer;
var monto_global, monto_ventas_de_0_a_10000, monto_ventas_de_10000_a_20000, venta : real;
begin
    ventas_de_0_a_10000 := 0;
    ventas_de_10000_a_20000 := 0;
    monto_ventas_de_0_a_10000 := 0;
    monto_ventas_de_10000_a_20000 := 0;
    monto_global := 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);
        if venta<=10000 then
            begin
                ventas_de_0_a_10000 := ventas_de_0_a_10000+1;
                monto_ventas_de_0_a_10000 := monto_ventas_de_0_a_10000+venta;
            end;
        if (venta>10000) and (venta<=20000) then
            begin
                ventas_de_10000_a_20000 := ventas_de_10000_a_20000+1;
                monto_ventas_de_10000_a_20000 := monto_ventas_de_10000_a_20000+venta;
            end;
        monto_global := monto_global+venta;
        writeln;
    end;
    writeln ('Valor de ventas de 0 a 10000: ', ventas_de_0_a_10000);
    writeln ('Valor de ventas de 10000 a 20000: ', ventas_de_10000_a_20000);
    writeln ('Valor de monto ventas de 0 a 10000: ', monto_ventas_de_0_a_10000:0:6);
    writeln ('Valor de monto ventas de 10000 a 20000: ', monto_ventas_de_10000_a_20000:0:6);
    writeln ('Valor de monto global: ', monto_global:0:6);
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.