[ Foro de Pascal ]

Hola me podrian ayudar con este ejercicio xfa: Una empresa líder en servicios de transporte turísticos y convencionales (taxis, limosinas, autobuses, aviones y helicópteros), debido al crecimiento turístico en el país ha experimentado un alza en la demand

25-Jun-2022 19:27
Eudis Centeno
0 Respuestas

soy nuevo en esto y he logrado hacer solo una parte del problema, osea el programa que hice lo unico que hace es mostrar los datos y creo que no estoy cumpliendo todo lo especificado en el problema me podrian ayudar xfa quiero asignar choferes e ir guardando todos los datos de los clientes pero nose como hacerlo.
esto es lo que hice

Program automatizacion;

Uses crt;

Var
 opcion : char;
 opcion3 : integer;
 i : integer;
 select:integer;

Type
 datos = Record
   //datos chofer
   apellidoEmp: string[10];
   nombEmp: string[20];
   cedulaEmp: String[10];
   vehiculoEmp: string[10];
   cargoEmp: string[10];
   act: string[10];
   //cliente corporativo
   nombrecorp: String[10];
   apellidocorp: string[10];
   nombEmpre: string[10];
   personaContac: string[10];
   telefono: string[20];
   rif: string[10];
   nit: string[10];
   ultimoServ: string[10];
   //cliente individual
   nombreInd: string[10];
   apellidoInd: string[10];
   cedulaInd: string[10];
   nombEmpInd: string[10];
   direccionEmpInd: string[10];
   edadInd: String[10];
   telefonoOfiInd: string[10];
   direccionHabiInd: string[10];
   telefonoHabiInd: string[10];
   email: string[30];

 // Datos de servicio
   responsable: string[10];
   vehiculo: string[10];
   fechaServ: string[10];
   horaServ: string[10];
   destino: string[10];
   numPersonas: String[100];
   presupuesto: string[10];
   fechaSoli: string[10];
   personaContac2: string[10];

 End;


Var
 vector: array[1..10] Of datos;



Begin

 writeln('**************Agencia de Viajes Explorando el Mundo con Sheyla Eudis y johan**************');
 writeln('');
 writeln('**************Si eres nuevo Cliente indica que tipo corporativo o individual**************');
 writeln('');
 writeln(' 1. Corportativos ');
 writeln(' 2. Individuales ');
 writeln;
 writeln('---------------------------');
 writeln;
 writeln(' Personal ');
 writeln(' 3. Choferes');
 writeln;
 writeln('Ingrese una opcion valida:');
 opcion := readkey;


 clrscr;

 Case opcion Of
   '1':
        Begin
          writeln('+++Ingresar nuevo cliente corportativo:');
          writeln('');
          For i:=1 To 1 Do
            Begin
              writeln('Nombre: ',i,' ');
              readln(vector[i].nombrecorp);
              writeln('Apellido: ',i,' ');
              readln(vector[i].apellidocorp);
              writeln('RIF:',i,'');
              readln(vector[i].rif);
              writeln('NIT:',i,'');
              readln(vector[i].nit);
              writeln('Nombre de empresa',i,'');
              readln(vector[i].nombEmpre);
              writeln('Persona de Contacto: ',i,'');
              readln(vector[i].personaContac2);
              writeln('Telefono: ',i,'');
              readln(vector[i].telefono);
              writeln('Ultimo servicio: ',i,'');
              readln(vector[i].ultimoServ);
              clrscr;
              writeln;
              writeln('Datos sobre el ultimo servicio');
              writeln;
              writeln('Responsable: ',i,'');
              readln(vector[1].responsable);
              writeln('Vehiculo: ',i,'');
              readln(vector[1].vehiculo);
              writeln('Fecha de Servicio: ',i,'');
              readln(vector[1].fechaServ);
              writeln('Hora de Servicio: ',i,'');
              readln(vector[1].horaServ);
              writeln('Destino: ',i,'');
              readln(vector[1].destino);
              writeln('Numero de Personas: ',i,'');
              readln(vector[1].numPersonas);
              writeln('Presupuesto: ',i,'');
              readln(vector[1].presupuesto);
              writeln('Fecha de Solicitud: ',i,'');
              readln(vector[1].fechaSoli);
              writeln('Persona de Contacto: ',i,'');
              readln(vector[1].personaContac2);
              writeln;
              clrscr;
            End;

          clrscr;
          writeln(' ');
          writeln('Datos del cliente corporativo');
          writeln('');
           writeln('cuantos clientes desea agregar');
           readln(select);
          For i:=1 To select Do
            Begin
              writeln('Nombre: ',i,vector[i].nombrecorp);
              writeln('Apellido: ',i,vector[i].apellidocorp);
              writeln('RIf: ',i,vector[i].rif);
              writeln('NIT: ',i,vector[i].nit);
              writeln('Nombre de la empresa: ',i,vector[i].nombEmpre);
              writeln('Persona de contacto: ',i,vector[i].personaContac);
              writeln('Ultimo Servicio',i,vector[1].ultimoServ);

              writeln;
              writeln('Datos sobre el ultimo servicio');
              writeln;
              writeln('Responsable: ',i,vector[i].responsable);
              writeln('Vehiculo: ',i,vector[i].Vehiculo);
              writeln('Fecha de Servicio: ',i,vector[i].fechaServ);
              writeln('Hora de Servicio: ',i,vector[i].horaServ);
              writeln('Destino: ',i,vector[i].destino);
              writeln('Numero de Personas: ',i,vector[i].numPersonas);
              writeln('Presupuesto: ',i,vector[i].presupuesto);
              writeln('Fecha de Solcitud: ',i,vector[i].fechaSoli);
              writeln('Persona de contacto: ',i,vector[i].personaContac2);

            End;


        End;
   //case 1

   '2': //case 2
        Begin
          writeln('+++Ingresar nuevo cliente individual:');
          writeln('');
          For i:=1 To 1 Do
            Begin
              writeln('Nombre: ',i,' ');
              readln(vector[i].nombreInd);
              writeln('Apellido: ',i,' ');
              readln(vector[i].apellidoInd);
              writeln('Cedula:',i,'');
              readln(vector[i].cedulaInd);
              writeln('Donde Trabaja',i,'');
              readln(vector[i].nombEmpInd);
              writeln('Direccion de donde trabaja: ',i,'');
              readln(vector[i].direccionEmpInd);
              writeln('Telefono: ',i,'');
              readln(vector[i].telefonoOfiInd);
              writeln('Direccion de Habitacion: ',i,'');
              readln(vector[i].direccionHabiInd);
              writeln('telefono de Habitacion: ',i,'');
              readln(vector[i].telefonoHabiInd);
              writeln('Email: ',i,'');
              readln(vector[i].email);
              writeln;

              clrscr;
              writeln;
              writeln('Datos sobre el ultimo servicio');
              writeln;
              writeln('Responsable: ',i,'');
              readln(vector[1].responsable);
              writeln('Vehiculo: ',i,'');
              readln(vector[1].vehiculo);
              writeln('Fecha de Servicio: ',i,'');
              readln(vector[1].fechaServ);
              writeln('Hora de Servicio: ',i,'');
              readln(vector[1].horaServ);
              writeln('Destino: ',i,'');
              readln(vector[1].destino);
              writeln('Numero de Personas: ',i,'');
              readln(vector[1].numPersonas);
              writeln('Presupuesto: ',i,'');
              readln(vector[1].presupuesto);
              writeln('Fecha de Solicitud: ',i,'');
              readln(vector[1].fechaSoli);
              writeln('Persona de Contacto: ',i,'');
              readln(vector[1].personaContac2);
              writeln;
              clrscr;

              writeln(' ');
              writeln('Datos del cliente infdividual');
              writeln('');

              //   For i:=1 To 1 Do

              Begin
                writeln('Nombre: ',i,vector[i].nombreInd);
                writeln('Apellido: ',i,vector[i].apellidoInd);
                writeln('Cedula: ',i,vector[i].cedulaInd);
                writeln('Nombre de la empresa: ',i,vector[i].nombEmpInd);
                writeln('Direccion de la empresa: ',i,vector[i].direccionEmpInd);
                writeln('Edad: ',i,vector[1].edadInd);
                writeln('Telefono de Oficina: ',i,vector[1].telefonoOfiInd);
                writeln('Direccion de Habitacion: ',i,vector[1].direccionHabiInd);
                writeln('Telefono de Habitacion: ',i,vector[1].telefonoHabiInd);
                writeln('Email: ',i,vector[1].email);
                writeln;
                writeln;
                writeln('Datos sobre el ultimo servicio');
                writeln;
                writeln('Responsable: ',i,vector[i].responsable);
                writeln('Vehiculo: ',i,vector[i].Vehiculo);
                writeln('Fecha de Servicio: ',i,vector[i].fechaServ);
                writeln('Hora de Servicio: ',i,vector[i].horaServ);
                writeln('Destino: ',i,vector[i].destino);
                writeln('Numero de Personas: ',i,vector[i].numPersonas);
                writeln('Presupuesto: ',i,vector[i].presupuesto);
                writeln('Fecha de Solcitud: ',i,vector[i].fechaSoli);
                writeln('Persona de contacto: ',i,vector[i].personaContac2);

              End;



            End;
        End;

   //case 2

   '3':

        Begin

          writeln('+++CHOFERES Y PERSONAL+++');
          writeln('');
          writeln(' 1. Ingresar Personal');
          writeln(' 2. Salir');
          readln(opcion3);

          If opcion3 = 1 Then
            Begin
              writeln('+++Agregar Personal+++');
              writeln('');
              For i:=1 To 1 Do
                Begin
                  writeln('Nombre: ',i,' ');
                  readln(vector[i].nombEmp);
                  writeln('Apellido: ',i,' ');
                  readln(vector[i].apellidoEmp);
                  writeln('Cedula:',i,'');
                  readln(vector[i].cedulaEmp);
                  writeln('Vehiculo:',i,'');
                  readln(vector[i].vehiculoEmp);
                  writeln('Cargo:',i,'');
                  readln(vector[i].act);
                End;
              clrscr;
              writeln('Datos del Empleado Agregados: ');
              writeln('');
              writeln;
              For i:=1 To 1 Do
                Begin
                  writeln('Nombre: ',vector[i].nombEmp);
                  writeln('Apellido: ',vector[i].apellidoEmp);
                  writeln('Cedula: ',vector[i].cedulaEmp);
                  writeln('Vehiculo: ',vector[i].vehiculoEmp);
                  writeln('Cargo: ',vector[i].cargoEmp);
                  writeln('Activo en la empresa: ',i,vector[i].act);
                End
            End
          Else
            clrscr;
          Begin

            writeln('Usted eligio cerrar el programa');
            halt(0);
          End;


          // case 3
        End;
 End;


End.















Si ya eres usuario del sistema, puedes contestar desde tu cuenta y así ganar prestigio.

Si sólo eres un visitante, puedes optar por...