Witam, mam problem. Chcę stworzyć tablicę 3-wymiarową typu dynamicznego. Napisałem ale wyświetla mi się Error 22 Structure Too Large. Co jest nie tak ?
program fajny;
uses crt;
const ile=128;
var tab:array [1..ile,1..ile,1..ile] of integer;
a,b,c,ile1,ile2,ile3:integer;
begin
clrscr;
writeln('deklaracja tej tablicy');
write('podaj ilosc elementow: ');
readln(ile1);
write('podaj ilosc elementow: ');
readln(ile2);
write('podaj ilosc elementow: ');
readln(ile3);
for a:=1 to ile1 do
begin
for b:=1 to ile2 do
begin
for c:=1 to ile3 do
begin
write('podaj wartosc elementow: ',a,' ',b,' ',c,' : ');
readln(tab[a,b,c]);
end;
end;
end;
for a:=1 to ile1 do
begin
for b:=1 to ile2 do
begin
for c:=1 to ile3 do
begin
writeln('wartosc elementow wynosi: ',a,' ',b,' ',c,' ,tab[a,b,c]);
end;
end;
end;
readln;
end.