-
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
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.
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.