Pascal/Turbo Pascal - Programa

   
Vista:

Programa

Publicado por Orlando (12 intervenciones) el 08/10/2013 15:43:14
Saludos, debo hacer un programa que permita registrar personas y unidades de transporte en viajes planificados, el programa debe validar que la persona no haya sido asignada ya, igualmente el transporte...debe permitir consultas sobre los viajes en una fecha en particular, viajes realizados en mes, lista de pasajeros que viajaron y transporte disponible...como puede implementarse? gracias
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

Programa

Publicado por ramon (2072 intervenciones) el 09/10/2013 21:02:18
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
{Esto te serbia}
 
 program transpot;
 uses
   crt;
 const
   transportes = 40;
 type
  viajeros = record
      nombre : string[60];
      dni    : longint;
      trans  : integer;
      fecha  : string[10];
    end;
 
   var
     viajes : array[0..transportes] of viajeros;
     f : file of viajeros;
     datos : viajeros;
     i : integer;
     tecla : char;
 
  function assignado(n : longint) : boolean;
  var
    p : integer;
  begin
   if i > 0 then
   begin
     assignado := false;
     for p := 0 to i - 1 do
     if viajes[p].dni = n then
     assignado := true;
  end;
 end;
 
  procedure assigna_transporte;
  begin
      clrscr;
      writeln('*** Entrada viajeros ***');
      writeln;
      write('    Entre Nombre : ');
      readln(viajes[i].nombre);
      write('    Entre DNI    : ');
      readln(viajes[i].dni);
      if assignado(viajes[i].dni) = true then
      begin
         writeln;
         writeln(' :::::::: El Pasajero Esta Asignado Ya :::::::::');
         writeln(' ******** Pulse Una Tecla *********');
         readkey;
      end
    else
       begin
           write('    Entre Nm Transporte : ');
           readln(viajes[i].trans);
           write('    Entre Fecha Dia/Mes/A¤o : ');
           readln(viajes[i].fecha);
           i := i + 1;
           if i > transportes then
           i := transportes;
           writeln;
           writeln('  Desea Entrar Mas Pasajeros [S/N]');
           repeat
               tecla := upcase(readkey);
           until tecla in['S','N'];
       if tecla = 'S' then
       begin
          assigna_transporte;
       end;
    end;
  end;
 
 
  begin
     i := 0;
     assigna_transporte;
  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

Programa

Publicado por Orlando (12 intervenciones) el 09/10/2013 22:00:24
Gracias, interesante, sin embargo no me permite asignar el pasajero, cae directamente en que ya fue asignado y luego indica presione tecla para salir...
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

Programa

Publicado por ramon (2072 intervenciones) el 09/10/2013 23:37:20
El tema es te vale esa estructura así
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

Programa

Publicado por Orlando (12 intervenciones) el 10/10/2013 00:38:14
Si, creo q puedo empezar gracias a ti, indicame
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

Programa

Publicado por ramon (2072 intervenciones) el 10/10/2013 12:12:37
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
{Fíjate que tenemos solo 40 transportes que asignar cada uno es un numero.
 El menú te permitirá moverte por los datos pero al salir del programa todo se anula puesto
 que estamos trabajando solo con registros en un array de 40 registros.}
 
program transpot;
 uses
   crt;
 const
   transportes = 40;
 type
  viajeros = record
      nombre : string[60];
      dni    : longint;
      trans  : integer;
      fecha  : string[10];
    end;
 
   var
     via, viajes : array[0..transportes] of viajeros;
     f : file of viajeros;
     datos : viajeros;
     i : integer;
     tecla : char;
 
  function assignado(n : longint) : boolean;
  var
    p : integer;
  begin
   if i > 0 then
   begin
     assignado := false;
     for p := 0 to i - 1 do
     if viajes[p].dni = n then
     assignado := true;
  end;
 end;
 
  procedure assigna_transporte;
  begin
      clrscr;
      writeln('*** Entrada viajeros ***');
      writeln;
      write('    Entre Nombre : ');
      readln(viajes[i].nombre);
      write('    Entre DNI    : ');
      readln(viajes[i].dni);
      if assignado(viajes[i].dni) = true then
      begin
         writeln;
         writeln(' :::::::: El Pasajero Esta Asignado Ya :::::::::');
         writeln(' ******** Pulse Una Tecla *********');
         readkey;
      end
    else
       begin
           write('    Entre Nm Transporte : ');
           readln(viajes[i].trans);
           write('    Entre Fecha Dia/Mes/A¤o : ');
           readln(viajes[i].fecha);
           i := i + 1;
           if i > transportes then
           i := transportes;
           writeln;
           writeln('  Desea Entrar Mas Pasajeros [S/N]');
           repeat
               tecla := upcase(readkey);
           until tecla in['S','N'];
       if tecla = 'S' then
       begin
          assigna_transporte;
       end;
    end;
  end;
 
  procedure verdatosentrados;
  var
    k : integer;
  begin
      clrscr;
      if i > 0 then
      begin
        for k := 0 to i - 1 do
        begin
           writeln('  ',viajes[k].nombre,' | ',viajes[k].dni,' | ',
                        viajes[k].trans,' | ',viajes[k].fecha);
        end;
          writeln;
          writeln('       Pulse Una Tecla');
          readkey;
      end;
  end;
 
  procedure localizarpasajero;
  var
    dn : longint;
    p : integer;
    encont : boolean;
   begin
      clrscr;
      encont := false;
      writeln('   **** Entre DNI Pasajero A Localizar ****');
      writeln;
      write('    Num. DNI : ');
      readln(dn);
      for p := 0 to i - 1 do
      begin
          if viajes[p].dni = dn then
          begin
             encont := true;
             break;
          end;
      end;
      if encont = true then
      begin
         clrscr;
         gotoxy(5,2);write('<<<< Datos Del Pasajero DNI ',dn,' >>>>');
         gotoxy(5,4);write('  Nombre ');
         gotoxy(30,4);write('DNI');
         gotoxy(40,4);write('Transporte');
         gotoxy(60,4);write('Fecha');
         gotoxy(5,5);write(viajes[p].nombre);
         gotoxy(30,5);write(viajes[p].dni);
         gotoxy(40,5);write(viajes[p].trans);
         gotoxy(60,5);write(viajes[p].fecha);
         gotoxy(25,7);write('Pulse Una Tecla');
      end
    else
       begin
       clrscr;
       writeln('DNI Pasajero No Encontrado Pulse Una Tecla');
       end;
       readkey;
   end;
 
  procedure anulareserva;
  var
    dn : longint;
    t, p, k : integer;
    ted : char;
    no : boolean;
  begin
     clrscr;
     no := true;
     writeln('**** Anulacion Reserva ****');
     writeln;
     write('   Entre DNI : ');
     readln(dn);
     for k := 0 to i - 1 do
     begin
        if viajes[k].dni = dn then
        begin
           writeln('  **** La Reserva Del DNI : ',dn,' Se Anula [S/N] ****');
           repeat
              ted := upcase(readkey);
           until ted in['S','N'];
           if ted = 'S' then
           begin
              t := 0;
              for p := 0 to i - 1 do
              if p <> k then
              begin
              via[t] := viajes[p];
              t := t + 1;
              end;
              i := i - 1;
              for k := 0 to t do
              viajes[k] := via[k];
           end;
              no := false;
              break;
          end;
       end;
      if no = true then
      begin
        writeln('  Numero DNI No Encontrado Pulse Una Tecla');
      end;
   end;
 
  procedure modificaciondatos;
  var
    z : integer;
    dn : longint;
    enc : boolean;
    te : char;
   begin
      clrscr;
      enc := false;
      writeln('  **** Modificacion Reserva ****');
      writeln;
      write('   Entre Num. DNI : ');
      readln(dn);
      for z := 0 to i - 1 do
      begin
         if viajes[z].dni = dn then
         begin
            enc := true;
            break;
         end;
      end;
      if enc = true then
      begin
         clrscr;
         writeln('*** Entrada viajeros ***');
         writeln;
         write('    Entre Nombre : ');
         readln(via[0].nombre);
         write('    Entre DNI    : ');
         readln(via[0].dni);
          if assignado(via[0].dni) = true then
          begin
           writeln;
           writeln(' :::::::: El Pasajero Esta Asignado Ya :::::::::');
           writeln(' ******** Pulse Una Tecla *********');
           readkey;
         end
    else
       begin
           write('    Entre Nm Transporte : ');
           readln(via[0].trans);
           write('    Entre Fecha Dia/Mes/A¤o : ');
           readln(via[0].fecha);
           writeln;
           writeln('  <<<< Datos Correctos [S/N] >>>>');
           repeat
               te := upcase(readkey);
           until te in['S','N'];
           if te = 'S' then
           begin
              viajes[z] := via[0];
           end;
        end;
      end
   else
      begin
         writeln('   Num. DNI No Encontrado Pulse Una Tecla');
         readkey;
      end;
   end;
 
  procedure menu;
  var
    sal : boolean;
    tec : char;
  begin
      sal := false;
    repeat
        clrscr;
        writeln('   ****** Menu Jeneral ******');
        writeln;
        writeln('   1 : Asignacion Transporte');
        writeln('   2 : Ver Estado Trasportes');
        writeln('   3 : Ver Estado Pasajero');
        writeln('   4 : Anular Asignacion Transporte');
        writeln('   5 : Modificar Asignacion Transporte');
        writeln('   6 : Salir');
        writeln;
        writeln('   <<<< Elija Opcion >>>>');
        repeat
            tec := readkey;
        until tec in['1','2','3','4','5','6'];
        clrscr;
    case tec of
  '1' : assigna_transporte;
  '2' : verdatosentrados;
  '3' : localizarpasajero;
  '4' : anulareserva;
  '5' : modificaciondatos;
  '6' : sal := true;
    end;
  until sal = true;
  end;
 
 
  begin
     i := 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

Programa

Publicado por Orlando (12 intervenciones) el 10/10/2013 12:57:00
Si...me dio error al compilar en. for k := 0 to t do Error: Illegal assignment to for-loop variable "k"...no pude testear...
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

Programa

Publicado por Orlando (12 intervenciones) el 16/10/2013 18:14:17
Me dio error al compilar en: for k := 0 to t do Error: Illegal assignment to for-loop variable "k"...no pude testear...
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