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

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 clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

realizar programa que genere estadisticas de movimiento vehicular

Publicado por ramon (2158 intervenciones) el 08/11/2013 14:27:38

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 clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

realizar programa que genere estadisticas de movimiento vehicular

Publicado por kellys gil (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)
 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:
 Alcabala y fecha.
 Placa del vehículo.
 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

Comentar

realizar programa que genere estadisticas de movimiento vehicular

Publicado por ramon (2158 intervenciones) el 29/11/2013 14:12:09

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

Comentar

realizar programa que genere estadisticas de movimiento vehicular

Publicado por kellys (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

Comentar

realizar programa que genere estadisticas de movimiento vehicular

Publicado por ramon (2158 intervenciones) el 30/11/2013 23:28:41

{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

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

Comentar

realizar programa que genere estadisticas de movimiento vehicular

Publicado por ramon (2158 intervenciones) el 03/12/2013 18:36:11

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

Comentar

realizar programa que genere estadisticas de movimiento vehicular

Publicado por lisbeth suarez (22 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

Comentar

realizar programa que genere estadisticas de movimiento vehicular

Publicado por ramon (2158 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

Comentar

Pos: 39

Val: 7

realizar programa que genere estadisticas de movimiento vehicular

Publicado por Aarón (2 intervenciones) el 01/08/2020 15:43:40

Muchas gracias por compatir tus conocimientos. Agradecido contigo.

Valora esta respuesta

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

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

Comentar

Pos: 39

Val: 7

realizar programa que genere estadisticas de movimiento vehicular

Publicado por Aarón (2 intervenciones) el 01/08/2020 23:26:20

Muchas gracias por tus conocimiento. Gracias por compartir. Soy tu seguidor nuevo.

Valora esta respuesta

Comentar

realizar programa que genere estadisticas de movimiento vehicular

Publicado por fontanilquen (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

Comentar

realizar programa que genere estadisticas de movimiento vehicular

Publicado por CRISBELT GUERRA (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

Comentar

pascal

Como hago para que no se me logge cuando cambio de posicion el cuadrito!..