Pascal/Turbo Pascal - Infracciones por limite de velocidad

 
Vista:

Infracciones por limite de velocidad

Publicado por Daniel (3 intervenciones) el 04/07/2001 05:21:38
Hola tengo que desarrollar unos programas de la universidad y no e podido desarrollar tres de ellos porfavor si me pueden ayudar es urgente

1) El departamento de policia de la ciudad a acumulado una información referente a las infracciones de los limites de velocidad durante un determinado periódo de tiempo. Se a dividido la ciudad en cuatro cuadrante y se desea realizar una estadísticas de la infracciones a los limites de velocidad de cada uno de ellos para cada infracción se ha preparado una tarjeta que contiene la siguiente información: número del vehículo, cuadrante en que se produjo la infracción , limite de velocidad en milla por hora, velocidad real desarrollada en milla por hora. Esta tarjeta se termina con una tarjeta especial que contiene el número 0 para el registro del vehículo. Diseñar un algoritmo para producir dos informes el priemero que contienes una lista de las multas de velocidad recolectadas donde la multa se calcula como la suma del costo de la corte $20 mas $1.25 por cada milla por hora que se a exedido la velocidad limite preparar un reporte con los siguientes encabezados
INFRACCIONES A LOS LIMITES DE VELOCIDAD
**********************************************************************
REGUISTRO DEL VEHÍCULO VELOCIDAD REGISTRADA(MPH) VELOCIDAD LIMITE MULTA
**********************************************************************
*** **** **** ****
Este informe debe ser requerido de un segundo en el cual se proporciona un análisis de las infracciones por cuadrante para cada uno de los cuatro cuadrantes mencionados debe darse el numero de infracciones y la multa promedio. “Tomando en cuenta los metodo de ordenamiento%2
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

Infracciones por limite de velocidad

Publicado por Pirulex (37 intervenciones) el 04/07/2001 22:01:04
Daniel: lo primero es que crees el sistema de inclusion de datos que debes reportar:
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
program infraccion;
uses crt;
const max=10;{10 vehiculos incluirias en este caso}
type
registro=record
                    cuadrante:integer;
                    limite:real;
                    exeso:real;
                    multa:real;
                    velreal:real;
                 end;
datos=array [1..max] of registro;
var
control:datos;
a:integer;
 
function monto(exeso:integer):real;{esta funcion calcula el monto de la infraccion}
begin
 monto:=20+(1.25*exeso);
end;
 
procedure inclusion
var
i:integer;
begin
  for i:=1 to max do
    begin
       write('Escriba el numero de Cuadrante en que se produjo la infraccion:');
        readln(control[ i ].cuadrante);
        write('Escriba el limite de velocidad en el cuadrante',control [ i ]. cuadrante:);
        readln(control[ i ].limite);
        write('Escriba la velocidad real del veiculo ', i ,' : ');
        readln(control[ i ].velreal);
        control[ i ].exeso:=control[ i ].velreal-control[ i ].limite;
        control[ i ].multa:=monto(control[ i ].exeso);
end;
end;
 
procedure reporte;
begin
 for i:=1 to max do
   begin
      clrscr;
      gotoxy(12,3);
      write('Reporte de Infraccion del vehiculo # ', i ,' : ');
      gotoxy(2,6);
      write('REG. DEL VEHIC.');%
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

Infracciones por limite de velocidad

Publicado por Pirulex (37 intervenciones) el 04/07/2001 22:08:43
no entro completo, aqui esta a partir del reporte!

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
procedure reporte;
begin
 for i:=1 to max do
   begin
      clrscr;
      gotoxy(12,3);
      write('Reporte de Infraccion del vehiculo # ', i ,' : ');
      gotoxy(2,6);
      write('REG. DEL VEHIC.');
      gotoxy(20,6);
      write('VEL. REG.');
      gotoxy(32,6);
      write('VEL. LIMITE');
      gotoxy(46,6);
      write('Multa');
      gotoxy(2,8);
      write( i );
      gotoxy(20,8);
      write(control[ i ].velreal,' MPH');
      gotoxy(32,8);
      write(control[ i ].limite,' MPH');
      gotoxy(46,8);
      write('$',control[ i ].multa);
      gotoxy(3,22);
      write('Presione cualquier tecla para continuar!');
      readkey;
   end;
end;
 
procedure menu;
begin
     clrscr;
     gotoxy(28,4);
     writeln(' BASE DE DATOS INFRACCIONES');
     gotoxy(28,5);
     writeln('MENU PRINCIPAL');
     gotoxy(28,8);
     write('[ 1 ]');
     writeln(' INTRODUCIR INFORMACION');
     gotoxy(28,10);
     write('[ 2 ]');
     writeln(' REPORTE');
     gotoxy(28,12);
     write('[ 3 ]');
     writeln(' SALIR');
     gotoxy(12,23);
     write('Digite el numero de la opcion que desea ejecutar');
     textcolor(14);
     write('
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

Infracciones por limite de velocidad

Publicado por Pirulex (37 intervenciones) el 04/07/2001 22:17:19
a partir del menu!...

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
procedure menu;
begin
     clrscr;
     gotoxy(28,4);
     writeln(' BASE DE DATOS INFRACCIONES');
     gotoxy(28,5);
     writeln('MENU PRINCIPAL');
     gotoxy(28,8);
     write('[ 1 ]');
     writeln(' INTRODUCIR INFORMACION');
     gotoxy(28,10);
     write('[ 2 ]');
     writeln(' REPORTE');
     gotoxy(28,12);
     write('[ 3 ]');
     writeln(' SALIR');
     gotoxy(12,23);
     write('Digite el numero de la opcion que desea ejecutar');
     textcolor(14);
     write(' [   ]');
     gotoxy(63,23);
     readln(a);
     case a of
      1: begin
          clrscr;
          inclusion;
         end;
      2: begin
          clrscr;
          reporte;
         end;
      3:end;
end;
 
begin
 repeat
  menu;
 until a=3;
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

ayudenme

Publicado por Ricardo (1 intervención) el 20/11/2019 02:41:43
Yo estoy buscando la solucion a ese problema
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