Pascal/Turbo Pascal - ayudaaa!!!..

   
Vista:

ayudaaa!!!..

Publicado por jeremy (1 intervención) el 24/04/2013 06:26:16
hola ocupo una ayuda un examen en menos de 12horas por favor me pueden ayudar
esto es lo que tengo que hacer
La empresa TransAutobuces. lo contrata a usted para que desarrolle una aplicación en pascal, que les permita realizar las siguientes funciones:
 Encolar a los pasajeros.
 Desencolar a los pasajeros una vez esté en su destino.
 Ubicar espacios disponibles, en caso de haberlos.
 Mostrar la ganancia obtenida al realizar un viaje. Cada pasaje tiene un costo de 1 dolar.
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

ayudaaa!!!..

Publicado por Gabriel Campos (1 intervención) el 24/04/2013 19:44:50
Mae se lo van a cojer en Pascal.. jajaja
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

ayudaaa!!!..

Publicado por ramon (2072 intervenciones) el 24/04/2013 22:59:33
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
{A ver si sirve}
 
 program autobus;
   uses
     crt;
   type
     auto = record
            plaza : integer;
            costo  : real;
            nombre : string[30];
           end;
 
  const
     plazas = 22;
   var
     autob : array[1..plazas] of auto;
     cont : integer;
 
   procedure colocapasaje;
   begin
      write('    Nombre : ');
      readln(autob[cont].nombre);
      autob[cont].costo := 1;
      autob[cont].plaza := cont;
      cont := cont + 1;
      if cont > plazas then
      cont := plazas;
   end;
 
  procedure quitapasaje;
  var
    nom : string[30];
    gg : integer;
  begin
      write('    Nombre : ');
      readln(autob[cont].nombre);
      for gg := 1 to cont - 1 do
      begin
         if autob[gg].nombre = nom then
         begin
            break;
         end;
      end;
       fillchar(autob[gg],sizeof(autob[gg]),0);
       cont := cont - 1;
  end;
 
  procedure sitiolibre;
  var
    nom : string[30];
    gg : integer;
  begin
      write('    Nombre : ');
      readln(nom);
      for gg := 1 to plazas do
      begin
         if autob[gg].plaza = 0 then
         begin
            autob[gg].nombre := nom;
            autob[gg].costo := 1;
            autob[gg].plaza := cont;
            cont := cont + 1;
            break;
         end;
      end;
      if gg = plazas then
      begin
         clrscr;
         writeln('Plazas no disponibles Pulse Enter');
         readln;
      end;
  end;
 
  procedure ganancias;
  var
    dd : integer;
    total : real;
  begin
      clrscr;
      total := 0.0;
      for dd := 1 to cont - 1 do
      total := total + autob[dd].costo;
      writeln('   Las Ganancias Son : ',total:0:2);
      writeln;
      writeln('   Pulse Enter');
      readln;
  end;
 
  procedure muestracarga;
  var
    tt : integer;
   begin
      for tt := 1 to cont - 1 do
      writeln(autob[tt].nombre);
      writeln;
      writeln('   Pulse Enter');
      readln;
   end;
 
 
  procedure menu;
  var
     fin : boolean;
     tecl : char;
   begin
      fin := false;
  repeat
    clrscr;
    writeln('<<<<< Menu Mates >>>>>');
    writeln;
    writeln('     1 = Entradas pasajeros');
    writeln('     2 = Anular pasajero');
    writeln('     3 = Colocar pasajero');
    writeln('     4 = Muestra ganancias');
    writeln('     5 = Muestra pasajeros');
    writeln('     6 = Salir');
    writeln;
    writeln('***** Elija Opcion *****');
    repeat
    tecl := readkey;
    until tecl in[#49..#54];
   case tecl of
 #49 : begin clrscr; colocapasaje;  end;
 #50 : begin clrscr; quitapasaje; end;
 #51 : begin clrscr; sitiolibre; end;
 #52 : begin clrscr; ganancias; end;
 #53 : begin clrscr; muestracarga; end;
 #54 : fin := true;
  end;
  until fin = true;
 end;
 
  begin
      clrscr;
      cont := 1;
      fillchar(autob,sizeof(autob),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