Pascal/Turbo Pascal - PROGRAMA EN PASCAL Insertar pasajeros

   
Vista:

PROGRAMA EN PASCAL Insertar pasajeros

Publicado por jose sandoval (2 intervenciones) el 10/11/2012 03:00:14
Estas son las especificaciones:


Se tiene el área de reservación de una línea aérea y se desea elaborar una lista de pasajeros con los siguientes datos:



Nro de Vuelo
Cadena de 5 Caracteres

Apellido
Cadena de 30 Caracteres


Nombre
Cadena de 30 Caracteres

C:I:
Cadena de 15 Caracteres



Se tiene N tipos de vuelo, cada numero de vuelo tiene asociado el destino y la capacidad del avión.

Esta lista estará ordenada ascendentemente por N° de vuelo Se quiere elaborar un procedimiento que inserte en la lista los datos de los pasajeros que hayan hecho la reservación asociada al vuelo respectivo. Para realizar este procedimiento realice lo siguiente:



A) A.) Describa la estructura de datos mas apropiada

B) B.) Describa TAD asociado

C) C.) Elabore un procedimiento en PASCAL denominado INSERTAR PASAJERO, el cual consiste agregar un pasajero a la lista, dado el N° de vuelo, donde se considera que el N° de vuelo existe y que hay disponibilidad de cupo. Utilice mensaje dinámico de memoria


AGRADECIDO DE ANTEMANO
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 EN PASCAL Insertar pasajeros

Publicado por ramon (2072 intervenciones) el 10/11/2012 22:08:16
Pregunta esto con punteros o con arrays
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 EN PASCAL Insertar pasajeros

Publicado por ramon (2072 intervenciones) el 11/11/2012 00:01:26
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
{Esto seria con arrays el consumo de memoria no permite muchos mas datos te puede valer así
o no}
 
 program vuelo;
  uses
    crt;
 
  type
    pasaje = record
        Nro_de_Vuelo : string[5];
        Apellido : string[30];
        Nombre : string[30];
        C_I : string[15];
     end;
 
  var
   tipos_de_vuelo : array[1..10] of record
              destino : string[50];
             capacidad_del_avion : integer;
             viajeros : array[1..50] of pasaje;
           end;
   cont : integer;
 
 procedure entrada_datos(n,t : integer);
 var
   estado : boolean;
   cc : integer;
 begin
      clrscr;
      estado := false;
      if cont > 50 then
      begin
         estado := true;
      end;
      if estado = true then
      begin
      end
    else
      begin
      gotoxy(6,1);write('**** Entrada de Viajeros ****');
      gotoxy(6,3);write('destino   : ');
      gotoxy(6,4);write('capacidad : ');
      gotoxy(6,5);write('n§ vuelo  : ');
      gotoxy(6,6);write('apellido  : ');
      gotoxy(6,7);write('nombre    : ');
      gotoxy(6,8);write('c:i       : ');
      gotoxy(18,3);readln(tipos_de_vuelo[n].destino);
      gotoxy(18,4);readln(tipos_de_vuelo[n].capacidad_del_avion);
      gotoxy(18,5);readln(tipos_de_vuelo[n].viajeros[t].Nro_de_Vuelo);
      gotoxy(18,6);readln(tipos_de_vuelo[n].viajeros[t].Apellido);
      gotoxy(18,7);readln(tipos_de_vuelo[n].viajeros[t].Nombre);
      gotoxy(18,8);readln(tipos_de_vuelo[n].viajeros[t].C_I);
      gotoxy(6,11);write('<<< Fin de entrada Pulse [Enter] >>>');
  end;
 end;
 
 
 begin
    cont := 1;
    entrada_datos(1,cont);
    readln;
 end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

PROGRAMA EN PASCAL Insertar pasajeros

Publicado por jose sandoval jose.sandoval.venezuela@gmail.com (2 intervenciones) el 11/11/2012 05:28:34
Muchisimas gracias Ramon, me sirvio Excelente material, me parece un codigo bien compacto y explicito, apenas comienzo en Pascal, gracias nuevamemte por colaborar con mis practicas
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