Ошибка синтаксиса паскаля многомерного массива

я сделал это, и это работает немного лучше, теперь я получаю сообщение об ошибке: 45 / 44 matric.pas Неустранимая: синтаксическая ошибка, ожидалось, но найден const char Это вероятно, потому что я использую график Pascal.

program MatrixArray;
Uses wincrt,graph;
Var
GraphicsDriver, GraphicsMode: Smallint;
Xaxis: array[1..10] of string;
Yaxis: array[1..10] of string;
Matrix: array[1..10,1..10] of string;
x:integer;
y:integer;
{two var's are needed for initialisation}
Begin
Writeln('Loading Game Graphics...');
GraphicsDriver := Detect;
InitGraph(GraphicsDriver, GraphicsMode,'');
ClearViewPort;

объявление массивов

Xaxis[1] :='A';
Xaxis[1] :='B';
Xaxis[1] :='C';
Xaxis[1] :='D';
Xaxis[1] :='E';
Xaxis[1] :='F';
Xaxis[1] :='G';
Xaxis[1] :='H';
Xaxis[1] :='I';
Xaxis[1] :='J';

Yaxis[1] :='1';
Yaxis[1] :='2';
Yaxis[1] :='3';
Yaxis[1] :='4';
Yaxis[1] :='6';
Yaxis[1] :='7';
Yaxis[1] :='8';
Yaxis[1] :='9';
Yaxis[1] :='10';

for x := 1 to 10 do
 for y := 1 to 10 do
     Matrix[x,y] := Xaxis[x] + Yaxis[y];

     For x := 1 to 10 do
         for y := 1 to 10 do

outtextxy похож на writeln(); http://pascal-programming.info/lesson8.php

             OutTextXY(0,0, Matrix[x,y]' ');

End.

person Arran    schedule 16.11.2012    source источник
comment
заменен OutTextYX(0,0, Matrix[x,y]' ');   -  person Arran    schedule 16.11.2012
comment
с OutText(Matrix[x,y]); это сработало   -  person Arran    schedule 16.11.2012
comment
Вероятно, вы имели в виду Xaxis[2] :='B';, Xaxis[3] :='C'; и т. д. ;-)   -  person NGLN    schedule 16.11.2012


Ответы (1)


Подпрограмма OutTextXY, вероятно, ожидает на входе два целых числа и одну строку. Массив Matrix содержит строки, поэтому используйте:

OutTextXY(0, 0, Matrix[x, y]);

(Обратите внимание на отсутствующий ' '.)

person NGLN    schedule 16.11.2012