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:
Agradezco su gestión.
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 thenbegin
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 thenbegin
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 thenWriteLn('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 thenWriteLn('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
0