Értelmes a következő tömb Free Pascalba, ha igen, akkor mi az eredménye?

Próbáld ki, szerintem még le sem fordul. Szögletesben a dimenziók méretét adjuk meg, nem típust.

[link]

Az indextípus csak sorszámozott típus lehet (kivéve Longint), többnyire intervallum típus. Így kell elképzelni:

program tombok;

type napok = (Hetfo, Kedd, Szerda, Csutorok, Pentek, Szombat, Vasarnap);

var bytes: array[byte] of char; // 0..255

words: array[word] of char; // 0..65535

chars: array[char] of char; // Chr(0)..Chr(255)

booleans: array[boolean] of char; // FALSE..TRUE

types: array[napok] of char; // Hetfo..Vasarnap

begin

bytes[0] := 'a';

words[0] := 'b';

chars['a'] := 'c'; // vagy

chars[Chr(0)] := 'd';

booleans[TRUE] := 'e';

types[Hetfo] := 'f';

Write(bytes[0], words[0], chars['a'], chars[Chr(0)], booleans[TRUE], types[Hetfo]);

ReadLn;

end.

Talán így képzeld el a használatát:

program Project1;

var booleans: array[boolean] of string[25] = ('Hamis a kifejezés', 'Igaz a kifejezés');

begin

WriteLn('1 < 2', booleans[1 < 2]);

WriteLn('1 > 2', booleans[1 > 2]);

ReadLn;

end.

A többit a fantáziádra bízom.