Mam coś takiego:
TYPE
Table = RECORD
NumberOfBalls, NumberOfColours, NumberOfRounds, Round: Word;
Board: ARRAY[1..12, 1..10] OF Word;
Code: ARRAY[1..5] OF Word
END;
[...]
PROCEDURE CheckCode(VAR T: Table; VAR C: ARRAY OF Word);
VAR
i, j: Integer;
x, o: Integer;
BEGIN
x := 0;
o := 0;
FOR i := 1 TO T.NumberOfBalls DO
FOR j := 0 TO T.NumberOfBalls - 1 DO
IF C[j] = T.Code[i] THEN
BEGIN
IF i = j + 1 THEN
BEGIN
inc(x);
C[j] := 0;
BREAK
END
ELSE
BEGIN
inc(o);
C[j] := 0;
BREAK
END;
END;
WriteLn('x: ', x, ',o: ', o)
END;
[...]
Tablica jest indeksowana od wartości 0, natomiast tablica, ale w rekordzie od wartości 1. Denerwujące trochę. To jest cecha języka Pascal, tak? Można zmienić jakąś coś gdzieś, by obie tablice były indeksowane od wartości 1?