corte y control array de record

Vista previa del material en texto

CLASE corte y control
Corte y Control 
Se tiene información de un supermercado con las ventas que realizan día a día en cada sucursal de una ciudad. 
La información que se tiene es la siguiente: Cod Sucursal, fecha de venta, importe vendido y finaliza con cod de suc 999. (Suponer que esta ordenado por cod_suc)
Hacer un proceso que informe por sucursal la suma total vendida en el mes.
 
 
1
2
3
Cod_Suc: 01
Cod_Suc: 01
Cod_Suc: 01
Fec_ven: 01/10/20
Fec_ven: 02/10/20
Fec_ven: 03/10/20
Imp_ven : 100000
Imp_ven : 150000
Imp_ven : 500000
Cod_Suc: 02
Fec_ven: 01/10/20
Imp_ven : 300000
Cod_Suc: 02
Fec_ven: 02/10/20
Imp_ven : 200000
Cod_Suc: 999
4
5
6
Otra forma de representar gráficamente 
	COdCod_suc	Fec_ven	Imp_ven
	01	01/10/2020	100000
	01	02/10/2020	150000
	01	03/10/2020	500000
	02	01/10/2020	300000
	02	02/10/2020	200000
	999		
			
1
2
3
4
5
6
Informe
	Cod_suc	Importe Vendido
	01	750000
	02	500000
Type
 sucursal = Registro
	cod_suc: entero
	fech_ven: string[10]
	imp_ven: real
 fin
 
 
	
 ventasuc = array de [1..1000] de sucursal 
 ventasuc = array de [1..1000] de sucursal 
Declaración de tipos de datos 
Proceso InformeVentas ( vec_ventas: ventasuc)
 var i : entero
 vventasuc: real
 vcodsuc: entero
 inicio
 i:= 1
 MIENTRAS vec_ventas[i].cod_suc <> 999 HACER
 vventasuc:=0
 vcodsuc:= vec_ventas[i].cod_suc 
 MIENTRAS vcodsuc = vec_ventas[i].cod_suc Y vec_ventas[i].cod_suc <> 999 HACER
		vventasuc:= vventasuc + vec_ventas[i].imp_ven
 i: = i + 1
 MOSTRAR (“importe total de venta del mes de la sucursal”, vcodsuc)
 MOSTRAR ( ventasuc)
 fin 
1
2
3
4
5
6
Proceso InformeVentas ( vec_ventas: ventasuc)
 var i : entero
 ventasuc: real
 vcodsuc: entero
 inicio
 i:= 1
 MIENTRAS vec_ventas[i].cod_suc <> 999 HACER
 ventasuc:=0
 
 vcodsuc:= vec_ventas[i].cod_suc 
 MIENTRAS vcodsuc = vec_ventas[i].cod_suc Y vec_ventas[i].cod_suc <> 999 HACER
		
 ventasuc:= ventasuc + vec_ventas[i].imp_ven
 i: = i + 1
 MOSTRAR (“importe total de venta del mes de la sucursal”, vcodsuc ) 
 MOSTRAR ( ventasuc )
 fin 
	COdCod_suc	Fec_ven	Imp_ven
	01	01/10/2020	100000
	01	02/10/2020	150000
	01	03/10/2020	500000
	02	01/10/2020	300000
	02	02/10/2020	200000
	999		
			
01
01
01
01
01
0
01
01
01
100000
100000
150000
01
01
01
250000
500000
01
02
02
01
750000
02
02
02
02
02
0
300000
02
02
02
300000
200000
02
999
999
02
500000
999
5
Corte y Control 
Se tiene información de un supermercado con las ventas que realizan día a día en cada sucursal de una PROVINCIA, por cada ciudad puede existir mas de una sucursal. (Suponer que esta ordenado por cod_ciud y por cod_suc)
La información que se tiene es la siguiente: Cod_ciud, Cod Sucursal, fecha de venta, importe vendido y finaliza con cod de ciudad ZZZ.
Hacer un proceso que informe por sucursal la suma total vendida en el mes y total te la ciudad.
. 
 
	Cod_ciud	Cod_suc	Fec_ven	Importe
	AAA	01	01/10/2020	500000
	AAA	01	02/10/2020	400000
	AAA	01	03/10/2020	350000
	AAA	02	01/10/2020	750000
	AAA	02	02/10/2020	550000
	BBB	01	01/10/2020	700000
	BBB	01	01/10/2020	600000
	ZZZ			
Type
 sucursal = Registro
 cod_ciud: string[3]
	cod_suc: entero
	fech_ven: string[10]
	imp_ven: real
 fin
 
 
	
 ventasuc = array de [1..1000] de sucursal 
Declaración de tipos de datos 
Proceso InformeVentas ( vec_ventas: ventasuc)
 var i : entero
 ventasuc: real
 vcodsuc: entero
 ventaciud: real
 vcodciud: strng[3]
 inicio
 i:= 1
 MIENTRAS vec_ventas[i].cod_ciud <> “ZZZ” HACER
 ventaciud:=0
 vcodciud:= vec_ventas[i].cod_ciud 
 MIENTRAS vcodciud = vec_ventas[i].cod_ciud Y vec_ventas[i].cod_ciud <> “ZZZ” HACER
 ventasuc:=0
 vcodsuc:= vec_ventas[i].cod_suc
 MIENTRAS vcodsuc = vec_ventas[i].cod_ Y suc vcodciud = vec_ventas[i].cod_ciud Y vec_ventas[i].cod_ciud <> “ZZZ” HACER
 ventasuc:= ventasuc + vec_ventas[i].imp_ven
 i: = i + 1
 
 MOSTRAR (“importe total de venta del mes de la sucursal”, vcodsuc)
 MOSTRAR ( ventasuc)
 
 MOSTRAR (“importe total de venta del mes de la sucursal”, vcodciud)
 MOSTRAR ( ventaciud)
 fin 
	Cod_ciud	AAA		
	Cod_suc	01	Importe	1250000
	Cod_suc	02	Importe	1300000
	Total Ciudad	2550000		
	Cod_ciud	BBB		
	Cod_suc	01	Importe	1300000
	Total Ciudad	1300000		
Informe de ventas mensuales por Sucursal y por ciudad
image1.png