Pascal/Turbo Pascal - Almacenar una hora a un array

 
Vista:

Almacenar una hora a un array

Publicado por Daniel (1 intervención) el 17/06/2019 02:42:35
Se trata de un codigo que almacene el orden en el que se despachan y llegan 'microbuses' en un terminal. Queria saber si es posible almacenar la hora en el que la persona ingresó o sacó el microbus.
Esto es lo que tengo. Por el momento sólo almacena la hora actual del computador para todos por igual:

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
program EjercicioC;
uses crt,dos;
var
    pos: array [1..15] of
        record
            microuno,microdos: string;
 
        end;
    cantidaduno,cantidaddos: integer;
    opcion,lista: integer;
    i: integer;
    hs,mins,segs,segs100 : word;
 
 
begin
clrscr;
 
    cantidaduno := 0;
    cantidaddos := 0;
    repeat
        writeln('-  Bienvenido. Seleccione una opcion: ');
        writeln;
        writeln('1) Sacar Maquina');
        writeln('2) Dejar Maquina');
        writeln('3) Consultar Estado');
        writeln('0) Salir');
        ReadLn(opcion);
    WriteLn;
 
    case opcion of
        1:
            if cantidaduno < 15 then
            begin
                GetTime(hs,mins,segs,segs100);
                cantidaduno := cantidaduno + 1;
                clrscr;
                WriteLn('Sacando Maquina ', cantidaduno);
 
                Write('Ingrese numero de la Maquina: ');
                ReadLn(pos[cantidaduno].microuno);
 
                WriteLn;
             end
             else
                WriteLn('Base de datos llena');
        2:
            if cantidaddos < 15 then
            begin
                cantidaddos := cantidaddos + 1;
                clrscr;
                WriteLn('Devolviendo Maquina ', cantidaddos);
 
                Write('Ingrese numero de la Maquina: ');
                ReadLn(pos[cantidaddos].microdos);
 
                WriteLn;
             end
             else
                WriteLn('Base de datos llena');
 
        3: begin;
            clrscr;
            writeln('-  Que Estado Desea Revisar?');
            writeln('1) Lista Maquinas Despachadas:');
            writeln('2) Lista Maquinas Devueltas: ');
            readln(lista);
                    case lista of
                    1 :
                        begin
                        if cantidaduno = 0 then
                            WriteLn('No hay datos')
                        else
                            writeln('Maquinas despachadas: ');
                            for i := 1 to cantidaduno do
                                WriteLn(i, ' ', pos[i].microuno,' a las ',hs,':',mins);
                        WriteLn;
                        end;
                    2 :
                        begin
                        if cantidaddos = 0 then
                            WriteLn('No hay datos')
                        else
                            writeln('Maquinas Devueltas: ');
                            for i := 1 to cantidaddos do
                                WriteLn(i, ' ', pos[i].microdos);
                        WriteLn;
                        end;
                    end;
                end;
 
 
        0:
            begin
            WriteLn;
            WriteLn('Saliendo...');
            WriteLn;
            end;
 
         else
            begin
            WriteLn;
            WriteLn('Opcion Incorrecta');
            WriteLn;
            end;
    end;
 
    until opcion = 0;
end.

Agradezco su gestión.
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