necesito ayuda con arreglos de 2 dimensiones
Publicado por kenneth (1 intervención) el 27/07/2013 04:24:09
tengo un problema con un calificador no valido y no se como arreglarlo alguien me podria ayudar!? se los agradeceria! el programa se trata de que hay 6 armarios en los cuales hay 5 estantes de 12 espacios en cada armario y no puedo hacerlo con arreglos de mas de 2 dimensiones; este es el codigo
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
program estanterias;
uses
crt, dos;const
d1 = 6; d2 = 5; esp = 12;type
codigo = record titulo: string; autor: string; tematica: string;end;
codigo2 = record editorial: string; anio: string;end;
var
armario: array[1..d1] of integer;
almacena: array[1..d2, 1..esp] of codigo;
arm, fil, col: integer;
procedure ingresar_libros;
var
almacena2: array[1..d2, 1..esp] of codigo2;
begin
for arm:= 1 to d1 do
for fil:= 1 to d2 do
for col:= 1 to esp do begin
write('Ingrese titulo del libro: ');
readln(almacena[arm,fil,col].titulo);
write('Ingrese autor del libro: ');
readln(almacena[arm,fil,col].autor);
write('Ingrese tematica del libro: ');
readln(almacena[arm,fil,col].tematica);
write('Ingrese editorial del libro: ');
readln(almacena2[arm,fil,col].editorial);
write('Ingrese anio del libro: ');
readln(almacena2[arm,fil,col].anio);
end; {for col}
end;
procedure mostrar_libros;
var
almacena2: array[1..d2, 1..esp] of codigo2;
begin
writeln('Titulo Autor Tematica Editorial Anio');
arm:= 0;
fil:= 0;
col:= 0;
for arm:= 1 to d1 do
for fil:= 1 to d2 do
for col:= 1 to esp do begin
writeln('Titulo: 'almacena[arm,fil,col].titulo);
writeln('Autor: 'almacena[arm,fil,col].autor);
writeln('Tematica: 'almacena[arm,fil,col].tematica);
writeln('Editorial: 'almacena2[arm,fil,col].editorial);
writeln('Anio: 'almacena2[arm,fil,col].anio);
writeln;
end; {for col}
writeln; writeln;
end;
procedure buscar;
var
buscado: string; control: integer;almacena2: array[1..d2, 1..esp] of codigo2;
begin
control:= 0;
write(;Ingrese libro a buscar: ');
readln(buscado);
for arm:= 1 to d1 do
for fil:= 1 to d2 do
for col:= 1 to esp do begin
if(buscado = almacena[arm,fil,col].titulo) then begin
writeln('Esta en la posicion ', arm ', ', fil ', ', col);
writeln('Titulo: 'almacena[arm,fil,col].titulo);
writeln('Autor: 'almacena[arm,fil,col].autor);
writeln('Tematica: 'almacena[arm,fil,col].tematica);
writeln('Editorial: 'almacena2[arm,fil,col].editorial);
writeln('Anio: 'almacena2[arm,fil,col].anio);
control:= 1;
end; {if}
if(control = 0) then
writeln('No esta');
end;Valora esta pregunta
0