-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path2.2.12.txt
125 lines (79 loc) · 3.06 KB
/
2.2.12.txt
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
Ejercicio 2.2.12
Dada una secuencia con información de población de un PAIS:
POBLACION Ordenado porProvincia, Departamento, Ciudad, Barrio, ID_Casa
Provincia |Departamento |Ciudad|Barrio |ID_Casa|Cantidad_Habitantes
CHACO | SAN FERNAND |RESIS |TOBA | 231 | 2134
CHACO | SAN FERNAND |RESIS |TOBO | 238 | 2132
sub:4266
... cortedepto
CHACO | SAN JUJEN |FONTA |ALFONDO| 236 | 2112
sub:
CHACO | CH X PROV |
BSAS | QUESEYO |LAPLAT|AMIGOS | 244 | 21035
BSAS | QUESEYO |BAHIAB|PROVUNI| 322 | 21033
BSAS | OTROMAS |PROVBS|PROVBS | 455 | 33216
CHUBUT | CRISTINITA |RAWSON|LINDO | 555 | 12317
Generar una secuencia de archivo con información de los departamentos de esa provincia, cuyo registro tenga el siguiente formato:
POBLACION_SALIDA
Provincia|Departamento|Cantidad_Habitantes| ch por prov
ACCION Poblacion ES
AMBIENTE
POBLACION= REGISTRO de
Prov: AN(10)
Dep: AN(20)
Ciudad: AN(20)
Barrio: AN(10)
id: N(3)
ch:N(30) // cantidad de habitantes
Fin_Registro
gen = Registro de
Prov:an(10)
Dep: an(20)
ch: N(30)
Fin Registro
g:gen
p:POBLACION
ArSAL:Archivo de gen ordenado por prov,dpto,ch
ArPB:Archivo de POBLACION ordenado por Provincia, Departamento, Ciudad, Barrio, ID_Casa
accanth: entero
SUBACCION CORTEDEPARTAMENTO ES
//llamar al corte de nivel inferior
//grabar todo hasta el momento
g.Prov:=tprov
g.Dep:= tdep
g.ch:= tch
GRABAR(ArSAL,g)
//actualizo en 0
tch:= 0
//actualizo testigo
tdep:= p.dep
Fin_Subaccion
SUBACCION CORTEPROVINCIA ES
CORTEDEPARTAMENTO
tprov:= p.Prov
Fin_Subaccion
tdep: AN(20)
tprov: AN(10)
tch: entero
PROCESO
ABRIR E/(ArPB)
ABRIR /S(ArSAL)
Leer(ArPB,p)
tprov:=p.Prov
tdep:=p.Dep
tch:= 0
MIENTRAS NFDA(ArPB) HACER
tch:= tch + p.Ch
SI tprov <> p.Prov ENTONCES
CORTEPROVINCIA
SINO
SI tdep <> p.Dep ENTONCES
CORTE DEPARTAMENTO
Fin_Si
Fin_Si
LEER(ArPB,p)
FIN MIENTRAS
corteprovincia
CERRAR(ArPB)
CERRAR(ArSAL)
FIN_ACCIÓN