Pascal/Turbo Pascal - realizar programa que genere estadisticas de movimiento vehicular

   
Vista:

realizar programa que genere estadisticas de movimiento vehicular

Publicado por Jinneth D. (1 intervención) el 05/11/2013 20:35:16
En el periodo vacacional la coordinación de transito nacional implantará un programa que genere estadisticas de movimiento vehicular en tal sentido se cuenta con lo siguiente:

1. se registrara la siguiente información por cada vehiculo: placa, número de pasajeros, alcabala, fecha, tipo de vehiculo (1 para particulares, 2 para porpuesto, 3 para taxi, 4 para transporte públicos).

2. las estadisticas se clasifican de la siguiente manera:

1. estadisticas por alcabalas: vehiculos que salen, vehiculos que entran por fechas. en cantidades y porcentajes.

2. estadisticas por vehiculos: numeros de alcabala transitadas, dias transitados, promedio de pasajeros.

3. estadisticas por tipo de vehiculos: cantidad y porcentaje de vehiculos segun su tipo y por alacabals, cantidad de pasajeros contabilizados por tipo de vehiculo.

con base de lo planteado, diseñe un algoritmo en pseudocódigo donde se muestre el uso correcto de técnicas de programación estructurada o subprogramas y realice lo siguiente:

presente un menu de mantenimiento con las opciones siguientes: incluir, consultar, modificar, eliminar, reporte de estadisticas y salida

registre, con la opción incluir, los siguientes datos:
placa del vehiculo
número de pasajeros
alcabala
fecha
tipo de vehiculo(1 para particulares, 2 para porpuesto, 3 para un taxi, 4 para transporte público)

ordene el registro por fecha y placa del vehiculo
muestre por panatalla, cuando realice una consulta de un vehiculos los datos de registrado por grupos
genere por medio de la opción "reporte la siguientes estadisticas:"
estadistica 1 una pagina por alcabala y odrdenado por fecha de menor a mayor
estadistica 2 debe estar ordenado por la placa del vehiculo
estadistica 3 una pagina por alcabala y ordenado por tipo de vehiculo de menor a mayor

nota: para este problema se tiene que idear unas subrutinas que permitan ordenar los datos por:
alcabala y fecha
placa del vehiculo
alcabala y tipo de vehiculo

"necesito ayuda con respecto a la resolución de este planteamiento es para un trabajo importante"
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

realizar programa que genere estadisticas de movimiento vehicular

Publicado por ramon (2072 intervenciones) el 08/11/2013 14:27:38
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
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
{Espero esto  te sirva de ayuda}
 
program estadistica;
  uses
     crt;
  const
     tipove : array[1..4] of string[20] = (
     'particulares','porpuesto','taxi','transporte publicos');
     acion : array['A'..'B'] of string[5] = (
     'Entra','Sale');
  type
     regvehiculo = record
           nplaca : string[20];
           npasaj : integer;
         alcabala : string[20];
            fecha : string[10];
           tipovl : byte;
           salent : char;
           end;
 
   var
     datos : array[0..200] of regvehiculo;
     cont : integer;
     tecla : char;
 
   procedure entrada_datos;
   var
      d : integer;
   begin
      writeln('***** Entrada De Datos Vehiculos *****');
      writeln;
      write('  Numero Placa             : ');
      readln(datos[cont].nplaca);
      for d := 1 to length(datos[cont].nplaca) do
      datos[cont].nplaca[d] := upcase(datos[cont].nplaca[d]);
      write('  Numero Pasajeros         : ');
      readln(datos[cont].npasaj);
      write('  Alcabala                 : ');
      readln(datos[cont].alcabala);
      write('  Fecha d/m/a              : ');
      readln(datos[cont].fecha);
    writeln(' Tipo Vehiculo : 1=particulares  2=porpuesto  3=taxi',
                           '  4=transporte publicos');
      write('  Tipo Veiculo             : ');
      readln(datos[cont].tipovl);
      write(' Accion [A]=Sale [B]=entra : ');
      readln(datos[cont].salent);
      datos[cont].salent := upcase(datos[cont].salent);
      cont := cont + 1;
      if cont > 200 then
      cont := 200;
   end;
 
   procedure consulta;
   var
   nume : string[20];
   nn : integer;
   enco : boolean;
   begin
      writeln(' ****** Consulta Entre Numero Matricula ******');
      writeln;
      write('   Numero : ');
      readln(nume);
      for nn := 1 to length(nume) do
      nume[nn] := upcase(nume[nn]);
      nn := 0;
      enco := false;
    repeat
        if datos[nn].nplaca = nume then
        enco := true
      else
        nn := nn + 1;
    until (nn > cont - 1) or (enco = true);
    if enco = true then
    begin
       clrscr;
       writeln('   ***** Datos Consultados Son *****');
       writeln;
       writeln('   Numero Placa     = ',datos[nn].nplaca);
       writeln('   Numero Pasajeros = ',datos[nn].npasaj);
       writeln('   Alcabala         = ',datos[nn].alcabala);
       writeln('   Fecha            = ',datos[nn].fecha);
       writeln('   Tipo Vehiculo    = ',tipove[datos[nn].tipovl]);
       writeln('   Sale/Entra       = ',acion[datos[nn].salent]);
       writeln;
       writeln('   >>>>> Pulse Una Tecla <<<<<');
       readkey;
    end;
   end;
 
   procedure modifica;
   var
     termina, si : boolean;
     pu, tec : char;
     nn : integer;
     num : string[20];
   begin
      if cont > 0 then
      begin
      writeln('***** Modificacion De Datos *****');
      writeln;
      write('   Entre Nume Matricula : ');
      readln(num);
      for nn := 1 to length(num) do
      num[nn] := upcase(num[nn]);
      nn := 0;
      si := false;
      termina := false;
    repeat
        if datos[nn].nplaca = num then
        si := true
      else
        nn := nn + 1;
    until (nn > cont) or (si = true);
    if si = true then
    begin
    repeat
       clrscr;
       writeln('*** Elija Elemento A Modificar ***');
       writeln;
       writeln('    A = Numero Placa ');
       writeln('    B = Numero Pasajeros');
       writeln('    C = Alcabala ');
       writeln('    D = Fecha');
       writeln('    E = Tipo Vehiculo');
       writeln('    F = Sale/Entra');
       writeln('    S = Nada');
       writeln;
       repeat
           tec := upcase(readkey);
       until tec in['A','B','C','D','E','F','S'];
       clrscr;
    case tec of
  'A' : begin write('  Numero Placa : '); readln(datos[nn].nplaca); end;
  'B' : begin write('  Numero Pasajeros : '); readln(datos[nn].npasaj); end;
  'C' : begin write('  Alcabala : '); readln(datos[nn].alcabala); end;
  'D' : begin write('  Fecha : '); readln(datos[nn].fecha); end;
  'E' : begin write('  Tipo Vehiculo : '); readln(datos[nn].tipovl); end;
  'F' : begin write('  Sale/Entra : '); readln(datos[nn].salent); end;
  'S' : termina := true;
    end;
    if tec <> 'S' then
    begin
        writeln('** Desea Modificar Mas [S/N] **');
        repeat
          pu := upcase(readkey);
        until pu in['S','N'];
        if pu = 'N' then
        termina := true;
     end;
     until termina = true;
    end;
  end
  else
     begin
     writeln('<<<<<<< Sin Datos En Registro Pulse Una Tecla >>>>>>>>>');
     readkey;
     end;
   end;
 
   procedure ordena;
   var
     pu : char;
     porque : string;
     kk, nn : integer;
     temp : regvehiculo;
    begin
        if cont > 2 then
        begin
        clrscr;
        writeln('  **** Ordenar Registros Por ****');
        writeln;
        writeln('   1 = Fecha y placa del vehiculo');
        writeln('   2 = Alcabala y fecha');
        writeln('   3 = Placa del vehiculo');
        writeln('   4 = alcabala y tipo de vehiculo');
        writeln;
        writeln('  <<<< Elija Opcion >>>>');
        repeat
            pu := readkey;
        until pu in['1','2','3','4'];
     if pu = '1' then
     begin
         for kk := 0 to cont do
           for nn := cont downto kk + 1 do
           begin
              if (datos[kk].fecha > datos[nn].fecha) and
                 (datos[kk].nplaca > datos[nn].nplaca) then
               begin
                  temp := datos[kk];
                  datos[kk] := datos[nn];
                  datos[nn] := temp;
               end;
           end;
     end;
     if pu = '2' then
     begin
          for kk := 0 to cont do
           for nn := cont downto kk + 1 do
           begin
              if (datos[kk].alcabala > datos[nn].alcabala) and
                 (datos[kk].fecha > datos[nn].fecha) then
               begin
                  temp := datos[kk];
                  datos[kk] := datos[nn];
                  datos[nn] := temp;
               end;
           end;
     end;
     if pu = '3' then
     begin
         for kk := 0 to cont do
           for nn := cont downto kk + 1 do
           begin
              if (datos[kk].nplaca > datos[nn].nplaca) then
               begin
                  temp := datos[kk];
                  datos[kk] := datos[nn];
                  datos[nn] := temp;
               end;
           end;
     end;
     if pu = '4' then
     begin
          for kk := 0 to cont do
           for nn := cont downto kk + 1 do
           begin
              if (datos[kk].alcabala > datos[nn].alcabala) and
                 (datos[kk].tipovl > datos[nn].tipovl) then
               begin
                  temp := datos[kk];
                  datos[kk] := datos[nn];
                  datos[nn] := temp;
               end;
           end;
       end;
      end
    else
       begin
         writeln('<<<<<<< Sin Datos En Registro Pulse Una Tecla >>>>>>>>>');
         readkey;
       end;
   end;
 
   procedure eliminaregistro;
   var
     tt, nn : integer;
     reg : regvehiculo;
     placa : string[20];
     sal : boolean;
     pul : char;
   begin
      if cont > 1 then
      begin
      writeln('  **** Eliminicain De Un Registro ****');
      writeln;
      write('   Entre Numero Placa : ');
      readln(placa);
      for nn := 1 to length(placa) do
      placa[nn] := upcase(placa[nn]);
      sal := false;
      nn := 0;
      repeat
         if datos[nn].nplaca = placa then
         sal := true
       else
         nn := nn + 1;
      until (nn > cont - 1) or (sal = true);
      if sal = true then
      begin
      writeln('???? Se Anulara El Registro Matricula = ',datos[nn].nplaca);
      writeln('****** Desea Anularlo [S/N] *******');
      repeat
      pul := upcase(readkey);
      until pul in['S','N'];
      if pul = 'S' then
      begin
         for tt := 0 to cont - 1 do
         begin
            if tt <> nn then
            datos[tt] := datos[tt];
         end;
           cont := tt;
      end;
     end;
    end
  else
      begin
         writeln('<<<<<<< Sin Datos En Registro Pulse Una Tecla >>>>>>>>>');
         readkey;
      end;
   end;
 
   procedure visualizatodos;
   var
     paso, cc : integer;
   begin
      cc := 0;
      paso := 1;
      writeln('***** Las Datos Son *****');
      writeln;
    repeat
       writeln(datos[cc].nplaca,'  ',datos[cc].npasaj,'  ',
               datos[cc].alcabala,'  ',datos[cc].fecha,'  ',
               datos[cc].tipovl,'  ',datos[cc].salent);
       paso := paso + 1;
       cc := cc + 1;
       if paso > 24 then
       begin
          writeln('***** Pulse Una Tecla Para Continuar ******');
          readkey;
          clrscr;
          writeln('***** Las Datos Son *****');
          writeln;
          paso := 1;
       end;
    until cc > cont - 1;
    writeln;
    writeln('<<<<<< Fin De Presentacion Pulse Una Tecla >>>>>>');
    readkey;
   end;
 
 
   procedure menu;
   var
     sal : boolean;
     pul : char;
   begin
      sal := false;
    repeat
        clrscr;
        writeln('    **** Menu Jeneral ****');
        writeln;
        writeln('         1  = Incluir');
        writeln('         2  = Consultar');
        writeln('         3  = Modificar');
        writeln('         4  = Ordenar Por');
        writeln('         5  = Eliminar');
        writeln('         6  = Reporte de estadisticas');
        writeln('         7  = Salida');
        writeln;
        writeln('    *** Elija Opcion ***');
        repeat
            pul := readkey;
        until pul in['1','2','3','4','5','6','7'];
        clrscr;
     case pul of
  '1' : entrada_datos;
  '2' : consulta;
  '3' : modifica;
  '4' : ordena;
  '5' : eliminaregistro;
  '6' : visualizatodos;
  '7' : sal := true;
    end;
  until sal = true;
  end;
 
   begin
      cont := 0;
      menu;
   end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

realizar programa que genere estadisticas de movimiento vehicular

Publicado por kellys gil kellysmalave@hotmail.com (4 intervenciones) el 28/11/2013 01:48:23
En el período vacacional la coordinación de tránsito nacional implantará un programa que genere estadísticas de movimiento vehicular en tal sentido se cuenta con lo siguiente:
1. Se registrará la siguiente información por cada vehículo: placa, número de pasajeros, alcabala, fecha, tipo de vehículo (1 para particulares, 2 para por puesto, 3 para taxi, 4 para transporte públicos). 2. Las estadísticas se clasifican de la siguiente manera:
1. Estadísticas por alcabalas: vehículos que salen, vehículos que entran por fechas. En cantidades y porcentajes.
2. Estadísticas por vehículos: número de alcabalas transitadas, días transitados, promedio de pasajeros.
3. Estadísticas por tipo de vehículos: cantidad y porcentaje de vehículos según su tipo y por alcabas, cantidad de pasajeros contabilizados por tipo de vehículo.
Con base en lo planteado, diseñe un algoritmo en pseudocódigo donde se muestre el uso correcto de las técnicas de programación estructurada o subprogramas y realice lo siguiente:
Presente un menú de mantenimiento con las opciones siguientes: Incluir, Consultar, Modificar, Eliminar, Reporte de estadística y Salida.
Registre, con la opción incluir, los siguientes datos:
• Placa del vehículo
• Número de pasajeros
• Alcabala
• Fecha
• Tipo de vehículo (1 para particulares, 2 para por puesto, 3 para taxi, 4 para transporte públicos)
&#131; Ordene el registro por fecha y placa del vehículo.
Muestre por pantalla, cuando realice una Consulta de un vehículo los datos de registrados por grupo.
Genere por medio de la opción “Reporte” las siguientes estadísticas:
NOTA: En las alternativas “Modificar, Eliminar y Consultar” haga uso de los datos registrados con la opción “Incluir”.
Estadística 1
(Una página por alcabala y ordenado por fecha de menor a mayor)
Coordinación de Tránsito Nacional Pág. X
** Estadística por Alcabala **
Alcabala: xxxxxxxx

FECHA CANTIDAD DE VEHÍCULOS PORCENTAJE DE VEHÍCULOS
SALEN ENTRAN SALEN% ENTRAN %
=========== ======== ========== ====== === ===============
DD/MM/AAAA XX.XXX XX.XXX XX,XX% XX,XX%
DD/MM/AAAA XX.XXX XX.XXX XX,XX% XX,XX%
DD/MM/AAAA XX.XXX XX.XXX XX,XX% XX,XX%
DD/MM/AAAA XX.XXX XX.XXX XX,XX% XX,XX%
=========== ======== ========== ========= ===============
TOTAL DE FECHAS PROCESADAS: XX



Estadística 2
Debe estar ordenado por la placa del vehículo.
Coordinación de Tránsito Nacional Pag. X
** Estadística por Vehículo **

PLACA NÚMERO DE DÍAS PROMEDIO DE
ALCABALAS TRANSITADOS PASAJEROS
=========== ========= =========== ===============
XXXXX XXX XX.XXX XX,XX
XXXXX XXX XX.XXX XX,XX
XXXXX XXX XX.XXX XX,XX
XXXXX XXX XX.XXX XX,XX
XXXXX XXX XX.XXX XX,XX
XXXXX XXX XX.XXX XX,XX
=========== ========= =========== ===============

TOTAL DE VEHÍCULOS PROCESADOS: XX.XXX


Estadística 3
(Una página por alcabala y ordenado por tipo de vehículo de menor a mayor)
Coordinación de Tránsito Nacional Pag. X
** Estadística por Tipo de Vehículo **
Alcabala: xxxxxxxx

TIPO DE VEHÍCULOS PASAJEROS
VEHÍCULO CANTIDAD PORCENTAJE CONTABILIZADOS
=========== ======== ========== ==============
XXXXX XXX XX.XX% XXX.XXX
XXXXX XXX XX.XX% XXX.XXX
XXXXX XXX XX.XX% XXX.XXX
XXXXX XXX XX.XX% XXX.XXX
XXXXX XXX XX.XX% XXX.XXX
=========== ======== ========== ==============
TOTAL DE VEHÍCULOS PROCESADOS: XX.XXX

Notas:
Para este problema usted tiene que idear unas subrutinas que permitan
ordenar los datos por:
&#131; Alcabala y fecha.
&#131; Placa del vehículo.
&#131; Alcabala y tipo de vehículo


el programa esta muy bien lo único es que necesito ayuda para hacer la procedure reportedeestadisticas ya que dentro de ella se deben hacer las subruticas que odenen los datos tal como se muestra arriba y que permita visualizarlos de esas tres formas presentadas en la estadística 1 en la 2 y en la 3 gracias por su ayuda mees demucha urgencia
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

realizar programa que genere estadisticas de movimiento vehicular

Publicado por ramon (2072 intervenciones) el 29/11/2013 14:12:09
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
{Mira esto te serbia}
 
uses
    crt;
  const
     tipove : array[1..4] of string[25] = (
     'para particulares','para por puesto','para taxi',
                                'para transporte publicos');
  type
    informacion = record
             placa : string[15];
             npasajeros : integer;
             alcabala   : string[60];
             fecha      : string[12];
             vehiculo   : integer;
             end;
 
  var
    info : array[1..200] of informacion;
    cont : integer;
 
 
 
  procedure ordenareg(cu : integer);
  var
    temp : informacion;
    pon, nume : integer;
  begin
      if cont > 1 then
      begin
      for nume := 1 to cont - 1 do
         for pon := cont - 1 downto nume + 1 do
         if cu = 1 then
         begin
         if info[nume].fecha > info[pon].fecha then
         begin
            temp := info[nume];
            info[nume] := info[pon];
            info[pon] := temp;
         end;
        end;
        if cu = 2 then
         begin
         if info[nume].placa > info[pon].placa then
         begin
            temp := info[nume];
            info[nume] := info[pon];
            info[pon] := temp;
         end;
        end;
        if cu = 3 then
         begin
         if info[nume].vehiculo > info[pon].vehiculo then
         begin
            temp := info[nume];
            info[nume] := info[pon];
            info[pon] := temp;
         end;
        end;
       end
     else
        begin
        writeln('*** No Tiene Datos Para Ordenar Pulse Una Tecla ***');
        readkey;
        end;
     end;
 
  procedure ordenapor;
  var
    orden : char;
    opcion : integer;
  begin
     opcion := 0;
   repeat
     clrscr;
     writeln(' **** Ordenar Por ****');
     writeln;
     writeln('  1 = Fecha De Menor a Mayor');
     writeln('  2 = Placa Del Vehiculo Menor a Mayor');
     writeln('  3 = Tipo De Vehiculo Menor a Mayor');
     writeln('  4 = Nada');
     writeln;
     writeln('<<<<< Elija Opcion >>>>>');
     repeat
         orden := readkey;
     until orden in ['1','2','3','4'];
     clrscr;
   case orden of
 '1' : ordenareg(1);
 '2' : ordenareg(2);
 '3' : ordenareg(3);
 '4' : opcion := 4;
   end;
  until opcion = 4;
 end;
 
 
 begin
     cont := 0; {Contador De Registros Entrados}
     ordenapor;
 end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

realizar programa que genere estadisticas de movimiento vehicular

Publicado por kellys kellysmalave@hotmail.com (4 intervenciones) el 30/11/2013 01:52:41
hola ramon, espero que me puedas ayudar, y disculpa la molestia, el primer progama que le diseñastes a jinnet esta calidad lo unico es que el prosedure ordenar en un debe ser un sudmenu de la prosedure reporte de estadisticas y en ese sudmenu y al entrar a ese sudmenu deben haber tres opciones, (que son los datos de las tablas(esquetetos)anterior presentados las cuales adicionalmente debe de estar ordenadas segun lo dice cada tabla, es decir que al abrir la primera opcion del subenu deben aparecer en la pantalla los que me exigen la primera tabla y ordenado como seenuncia en el trabajo, disculpa la molestia pero te agradeceria la ayuda,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

realizar programa que genere estadisticas de movimiento vehicular

Publicado por ramon (2072 intervenciones) el 30/11/2013 23:28:41
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
{Mira tengo algunas dudas a la hora de interpretar los datos que pones, me explico
DD/MM/AAAA XX.XXX XX.XXX XX,XX% XX,XX%
DD/MM/AAAA XX.XXX XX.XXX XX,XX% XX,XX%
DD/MM/AAAA XX.XXX XX.XXX XX,XX% XX,XX%
DD/MM/AAAA XX.XXX XX.XXX XX,XX% XX,XX%
 
en esto la parte  SALEN% ENTRAN % se supone que seria al final puesto que sino tendría que contrastar los vehículos
de cada día lo cual requiere de una función mas.
Mira si esto seria lo que quieres solo te presento una.
 
 program ordena;
  uses
    crt;
 
  type
    informacion = record
             placa : string[15];
             npasajeros : integer;
             alcabala   : string[60];
             fecha      : string[12];
             vehiculo   : integer;
             salent     : char;
             end;
 
  var
    info : array[1..200] of informacion;
    cont : integer;
 
   procedure presentaordenado;
   var
     present : array[1..200] of informacion;
     auxi : informacion;
     bb, xx, ee : integer;
     ted : char;
     fin : boolean;
     alcava, alc : string[60];
 
   begin
       fin := false;
     repeat
         clrscr;
         writeln('  Submenu Ordena ');
         writeln;
         writeln('  1 = Por Alcavala Fecha');
         writeln('  2 = Por Placa Vehiculo');
         writeln('  3 = Por Tipo de Vehiculo');
         writeln('  4 = Salir');
         writeln;
         writeln('  Elije Opcion ');
         repeat
             ted := readkey;
         until ted in['1','2','3','4'];
         clrscr;
    case ted of
 '1' : begin
          write('   Entre Alcavala : ');
          readln(alc);
          for ee := 1 to length(alc) do
          alc[ee] := upcase(alc[ee]);
          for ee := 1 to 200 do
          begin
             for bb := 1 to length(info[ee].alcabala) do
             alcava[bb] := info[ee].alcabala[bb];
             if alc = alcava then
             begin
                present[xx] := info[ee];
                xx := xx + 1;
             end;
          end;
           for ee := 1 to xx - 1 do
             for bb := xx - 1 to ee + 1 do
             if present[ee].fecha > present[bb].fecha then
             begin
                auxi := present[ee];
                present[ee] := present[bb];
                present[bb] := auxi;
             end;
             clrscr;
             writeln('  Alcavala : ',alcava);
             writeln;
             for bb := 1 to xx - 1 do
             writeln(present[bb].fecha,'   ',present[bb].vehiculo,'   ',
               present[bb]. salent);
            readkey;
       end;
 '2' :;
 '3' :;
 '4' : fin := true;
    end;
     until fin = true;
   end;
 
  begin
 
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

realizar programa que genere estadisticas de movimiento vehicular

Publicado por kellys (4 intervenciones) el 01/12/2013 01:59:03
hola, copie el programa y lo copile y da 0 error pero cuando trato de correrlo se sale ,

déjame ver si puedo explicarme mejor, lo que me piden es:
bueno primero; debe estar en el menú principal la opción "reporte de estadísticas" lo cual ya esta calidad
al abrir esta opción debe haber un submenu de 4 opciones:

*estadísticas por alcabala y fecha
*estadística por vehículo
*estadística por alcabala y tipo de vehículo
*salir al menú principal

al abrir la primera opción debe aparecerme las alcabalas agrupadas(clasificadas) por su nombre y cada una en una pagina, es decir :ejemplo

alcabala porlamar -----------------------------pag 1

fecha---------------- vehiculos entra------------- vehiculos salen------------porcentaje salen--------- porcentaje entran
01/03/2013------------------ 30 --------------------------- 40 ------------------------------ 42.85 ------------------------- 57.14
02/04/2013 ---------------- 50 ----------------------------- 90------------------------------- 35.71 ------------------------ 64.28
xx/xx/xxx --------------------- xx ------------------------------ xx ------------------------------ xx -------------------------- xx

y asi sucesivamente todas las fechas registradas para cada alcabala ordenadas(las fechas) de menor a mayor
al final de cada pagina debe decir el total de fechas procesadas en esa alcabala


alcabala maturin -------------------------- pag 2

fecha ---------------- vehículos entra---------- vehículos salen------------porcentaje salen----------- porcentaje entran
04/03/2013 ------------------20 -----------------------------20 ------------------------------- 50 -------------------------- 50
10/04/2013 ------------------50 ---------------------------- 150 ------------------------------ 25 ---------------------------- 75
xx/xx/xxx ---------------------- xx ------------------------------ xx ------------------------------- xx -------------------------- xx

y así sucesivamente todas las fechas registradas para cada alcabala.
al final de cada pagina debe decir el total de fechas procesadas en esa alcabala

así sucesivamente deben aparecer ordenadas todas las alcabalas que se registren

los separadores son para que se entienda mejor
gracias por tu ayuda
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

realizar programa que genere estadisticas de movimiento vehicular

Publicado por ramon (2072 intervenciones) el 03/12/2013 18:36:11
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
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
{Mira prueba esto teda la base para el resto}
 
program estadistica;
  uses
     crt;
  const
     tipove : array[1..4] of string[20] = (
     'particulares','porpuesto','taxi','transporte publicos');
     acion : array['A'..'B'] of string[5] = (
     'Sale','Entra');
  type
     regvehiculo = record
           nplaca : string[20];
           npasaj : integer;
         alcabala : string[20];
            fecha : string[10];
           tipovl : byte;
           salent : string[5];
           end;
 
   var
     datos : array[0..200] of regvehiculo;
     cont : integer;
     tecla : char;
 
   procedure entrada_datos;
   var
      d : integer;
      cu : char;
   begin
      writeln('***** Entrada De Datos Vehiculos *****');
      writeln;
      write('  Numero Placa             : ');
      readln(datos[cont].nplaca);
      for d := 1 to length(datos[cont].nplaca) do
      datos[cont].nplaca[d] := upcase(datos[cont].nplaca[d]);
      write('  Numero Pasajeros         : ');
      readln(datos[cont].npasaj);
      write('  Alcabala                 : ');
      readln(datos[cont].alcabala);
      write('  Fecha d/m/a              : ');
      readln(datos[cont].fecha);
    writeln(' Tipo Vehiculo : 1=particulares  2=porpuesto  3=taxi',
                           '  4=transporte publicos');
      write('  Tipo Veiculo             : ');
      readln(datos[cont].tipovl);
      write(' Accion [A]=Sale [B]=entra : ');
      repeat
      readln(cu);
      until upcase(cu) in['A','B'];
      datos[cont].salent := acion[upcase(cu)];
      cont := cont + 1;
      if cont > 200 then
      cont := 200;
   end;
 
   procedure consulta;
   var
   nume : string[20];
   nn : integer;
   enco : boolean;
   begin
      writeln(' ****** Consulta Entre Numero Matricula ******');
      writeln;
      write('   Numero : ');
      readln(nume);
      for nn := 1 to length(nume) do
      nume[nn] := upcase(nume[nn]);
      nn := 0;
      enco := false;
    repeat
        if datos[nn].nplaca = nume then
        enco := true
      else
        nn := nn + 1;
    until (nn > cont - 1) or (enco = true);
    if enco = true then
    begin
       clrscr;
       writeln('   ***** Datos Consultados Son *****');
       writeln;
       writeln('   Numero Placa     = ',datos[nn].nplaca);
       writeln('   Numero Pasajeros = ',datos[nn].npasaj);
       writeln('   Alcabala         = ',datos[nn].alcabala);
       writeln('   Fecha            = ',datos[nn].fecha);
       writeln('   Tipo Vehiculo    = ',tipove[datos[nn].tipovl]);
       writeln('   Sale/Entra       = ',datos[nn].salent);
       writeln;
       writeln('   >>>>> Pulse Una Tecla <<<<<');
       readkey;
    end;
   end;
 
   procedure modifica;
   var
     termina, si : boolean;
     pu, tec : char;
     nn : integer;
     num : string[20];
   begin
      if cont > 0 then
      begin
      writeln('***** Modificacion De Datos *****');
      writeln;
      write('   Entre Nume Matricula : ');
      readln(num);
      for nn := 1 to length(num) do
      num[nn] := upcase(num[nn]);
      nn := 0;
      si := false;
      termina := false;
    repeat
        if datos[nn].nplaca = num then
        si := true
      else
        nn := nn + 1;
    until (nn > cont) or (si = true);
    if si = true then
    begin
    repeat
       clrscr;
       writeln('*** Elija Elemento A Modificar ***');
       writeln;
       writeln('    A = Numero Placa ');
       writeln('    B = Numero Pasajeros');
       writeln('    C = Alcabala ');
       writeln('    D = Fecha');
       writeln('    E = Tipo Vehiculo');
       writeln('    F = Sale/Entra');
       writeln('    S = Nada');
       writeln;
       repeat
           tec := upcase(readkey);
       until tec in['A','B','C','D','E','F','S'];
       clrscr;
    case tec of
  'A' : begin write('  Numero Placa : '); readln(datos[nn].nplaca); end;
  'B' : begin write('  Numero Pasajeros : '); readln(datos[nn].npasaj); end;
  'C' : begin write('  Alcabala : '); readln(datos[nn].alcabala); end;
  'D' : begin write('  Fecha : '); readln(datos[nn].fecha); end;
  'E' : begin write('  Tipo Vehiculo : '); readln(datos[nn].tipovl); end;
  'F' : begin write('  Sale/Entra : '); readln(datos[nn].salent); end;
  'S' : termina := true;
    end;
    if tec <> 'S' then
    begin
        writeln('** Desea Modificar Mas [S/N] **');
        repeat
          pu := upcase(readkey);
        until pu in['S','N'];
        if pu = 'N' then
        termina := true;
     end;
     until termina = true;
    end;
  end
  else
     begin
     writeln('<<<<<<< Sin Datos En Registro Pulse Una Tecla >>>>>>>>>');
     readkey;
     end;
   end;
 
   procedure ordena;
   var
     pu : char;
     porque : string;
     kk, nn : integer;
     temp : regvehiculo;
    begin
      if cont > 1 then
      begin
      for kk := 0 to cont - 1 do
       for nn := cont - 1 downto kk + 1 do
       begin
         if datos[kk].alcabala > datos[nn].alcabala then
          begin
             temp := datos[kk];
             datos[kk] := datos[nn];
             datos[nn] := temp;
          end;
       end;
     end;
   end;
 
   procedure eliminaregistro;
   var
     tt, nn : integer;
     reg : regvehiculo;
     placa : string[20];
     sal : boolean;
     pul : char;
   begin
      if cont > 1 then
      begin
      writeln('  **** Eliminicain De Un Registro ****');
      writeln;
      write('   Entre Numero Placa : ');
      readln(placa);
      for nn := 1 to length(placa) do
      placa[nn] := upcase(placa[nn]);
      sal := false;
      nn := 0;
      repeat
         if datos[nn].nplaca = placa then
         sal := true
       else
         nn := nn + 1;
      until (nn > cont - 1) or (sal = true);
      if sal = true then
      begin
      writeln('???? Se Anulara El Registro Matricula = ',datos[nn].nplaca);
      writeln('****** Desea Anularlo [S/N] *******');
      repeat
      pul := upcase(readkey);
      until pul in['S','N'];
      if pul = 'S' then
      begin
         for tt := 0 to cont do
         begin
            if tt <> nn then
            datos[tt] := datos[tt];
         end;
           cont := tt;
      end;
     end;
    end;
   end;
 
   procedure ordenafecha(d : array of regvehiculo; num : integer);
   var
     j, t : integer;
     auxil : regvehiculo;
    begin
        for j := 1 to num do
          for t := num downto j + 1 do
          if d[j].fecha > d[t].fecha then
          begin
             auxil := d[j];
             d[j] := d[t];
             d[t] := auxil;
          end;
    end;
 
   procedure visualizatodos;
   var
     tm, poe, pos, entr, sale, paso, cc : integer;
     tempo : array[1..20] of regvehiculo;
     conp, alca : string[20];
   begin
       cc := 0;
       tm := 1;
       poe := 0;
       pos := 0;
       entr := 0;
       sale := 0;
       if cont > 1 then
       begin
       ordena;
          for cc := 0 to cont - 1 do
          begin
             if (datos[cc].fecha = datos[cc + 1].fecha) and
                (datos[cc].alcabala = datos[cc + 1].alcabala) then
             begin
                tempo[tm] := datos[cc];
                tm := tm + 1;
             end
          else
             begin
                if tm > 1 then
                begin
                   tempo[tm] := datos[cc];
                   tm := tm + 1;
                   ordenafecha(tempo,tm - 1);
                   for paso := 1 to tm - 1 do
                   begin
                      if tempo[paso].salent = acion['B'] then
                      poe := poe + 1;
                      if tempo[paso].salent = acion['A'] then
                      pos := pos + 1;
                   end;
                     if poe > 0 then
                     entr := (100 * poe) div (poe + pos);
                     if pos > 0 then
                     sale := (100 * pos) div (poe + pos);
                     writeln('  Alcabala = ',tempo[paso].alcabala);
                     writeln;
                     writeln(' Fecha       Entran   Salen   %entran  %salen');
                     writeln(tempo[paso].fecha,'      ',poe,'        ',pos,
                     '        ',entr,'       ',sale);
                     writeln;
                     writeln('  Fechas = ',tm - 1);
                end
             else
                begin
                  if datos[cc].salent = acion['B'] then
                  poe := poe + 1;
                  if datos[cc].salent = acion['A'] then
                  pos := pos + 1;
                  if poe > 0 then
                  entr := (100 * poe) div (poe + pos);
                  if pos > 0 then
                  sale := (100 * pos) div (poe + pos);
                  writeln('  Alcabala = ',datos[cc].alcabala);
                  writeln;
                  writeln(' Fecha       Entran   Salen   %entran  %salen');
                  writeln(datos[0].fecha,'      ',poe,'        ',pos,
                  '        ',entr,'       ',sale);
                  writeln;
                  writeln('  Fechas = 1');
                end;
                tm := 1;
                poe := 0;
                pos := 0;
                entr := 0;
                sale := 0;
             end;
          end;
       end
    else
        begin
           clrscr;
           writeln('  Alcabala = ',datos[0].alcabala);
           writeln;
           if datos[0].salent = acion['B'] then
           begin
           entr := 1;
           end
         else
            begin
             entr := 0;
             poe := 0;
            end;
           if datos[0].salent = acion['A'] then
           begin
           sale := 1;
           end
         else
            begin
              sale := 0;
              pos := 0;
            end;
          if entr > 0 then
          poe := (100 * entr) div (entr + sale);
          if sale > 0 then
          pos := (100 * sale) div (sale + entr);
         writeln(' Fecha       Entran   Salen   %entran  %salen');
         writeln(datos[0].fecha,'      ',entr,'        ',sale,
         '        ',poe,'       ',pos);
         writeln;
         writeln('  Fechas = 1');
        end;
       readkey;
   end;
 
 
   procedure menu;
   var
     sal : boolean;
     pul : char;
   begin
      sal := false;
      cont := 0;
    repeat
        clrscr;
        writeln('    **** Menu Jeneral ****');
        writeln;
        writeln('         1  = Incluir');
        writeln('         2  = Consultar');
        writeln('         3  = Modificar');
        writeln('         4  = Eliminar');
        writeln('         5  = Reporte de estadisticas');
        writeln('         6  = Salida');
        writeln;
        writeln('    *** Elija Opcion ***');
        repeat
            pul := readkey;
        until pul in['1','2','3','4','5','6'];
        clrscr;
     case pul of
  '1' : entrada_datos;
  '2' : consulta;
  '3' : modifica;
  '4' : eliminaregistro;
  '5' : visualizatodos;
  '6' : sal := true;
    end;
  until sal = true;
  end;
 
   begin
      menu;
   end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

realizar programa que genere estadisticas de movimiento vehicular

Publicado por lisbeth suarez sdacosta25@yahoo.com (17 intervenciones) el 17/01/2014 16:26:12
buenos dias tengo problema con el programa me sale un error en: consulta


procedure consulta;
var
nume : string[20];
nn : integer;
enco : boolean;
begin
writeln(' ****** Consulta Entre Numero Matricula ******');
writeln;
write(' Numero : ');
readln(nume);
for nn := 1 to length(nume) do
nume[nn] := upcase(nume[nn]);
nn := 0;
enco := false;
repeat
if datos[nn].nplaca = nume then
enco := true
else
nn := nn + 1;
until (nn > cont - 1) or (enco = true);
if enco = true then
begin
clrscr;
writeln(' ***** Datos Consultados Son *****');
writeln;
writeln(' Numero Placa = ',datos[nn].nplaca);
writeln(' Numero Pasajeros = ',datos[nn].npasaj);
writeln(' Alcabala = ',datos[nn].alcabala);
writeln(' Fecha = ',datos[nn].fecha);
writeln(' Tipo Vehiculo = ',tipove[datos[nn].tipovl]);
writeln(' Sale/Entra = ',datos[nn].salent);
writeln;
writeln(' >>>>> Pulse Una Tecla <<<<<');
readkey; ( aqui me sale un error ivalid variable reference)
end;
end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

realizar programa que genere estadisticas de movimiento vehicular

Publicado por ramon (2072 intervenciones) el 18/01/2014 12:07:45
El error es causado por la falta de la unidad crt no la tienes implementada al inicio eso seria:
program xxxxxx;
uses
crt;
con ello solucionas tu error suerte.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

realizar programa que genere estadisticas de movimiento vehicular

Publicado por fontanilquen (5 intervenciones) el 29/01/2015 15:22:21
Ramon tienes algun correo para contactarte, necesito un ejemplos de grafos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

realizar programa que genere estadisticas de movimiento vehicular

Publicado por marlon (1 intervención) el 10/11/2016 00:49:56
de casualidad tenes el trabajo todavia
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

realizar programa que genere estadisticas de movimiento vehicular

Publicado por fontanilquen adrianrifonta@gmail.com (5 intervenciones) el 29/01/2015 15:20:41
Ramon tienes algun correo para enviarte mensajes es que necesito ayuda con un problema de grafos y no encuentro informacion con ejemplos y tu pareces el indicado.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

realizar programa que genere estadisticas de movimiento vehicular

Publicado por CRISBELT GUERRA gcrisbelt@gmail.com (4 intervenciones) el 01/07/2016 16:50:30
hola amigo necesito x favor me envies al correo si puedes el programa completo que incluya las tres subrutinas especificadas anteriormente es decir, que cuando se abra el menu en la opcion reporte de estadistica se pueda observar las tres subrutinas y la opcion volver al menu general. me urge por favor necesito su ayuda
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar