多维数组pascal-syntac错误

多维数组pascal-syntac错误,pascal,multidimensional-array,Pascal,Multidimensional Array,我这样做了,它的工作稍微好一点,现在我得到了错误: 45/44 matric.pas 致命:语法错误,)应为,但找到常量字符 这很可能是因为我使用的是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

我这样做了,它的工作稍微好一点,现在我得到了错误: 45/44 matric.pas 致命:语法错误,)应为,但找到常量字符 这很可能是因为我使用的是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()


OutTextXY
例程可能需要两个整数和一个字符串作为输入。矩阵数组包含字符串,因此请使用:

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

(注意缺少的
'

例程可能需要两个整数和一个字符串作为输入。矩阵数组包含字符串,因此请使用:

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

(注意缺少的

替换了OutTextYX(0,0,矩阵[x,y]”);带OutText(矩阵[x,y]);它起作用了,你可能是指
Xaxis[2]:='B'
Xaxis[3]:='C',等等;-)替换了OutTextYX(0,0,矩阵[x,y]”);带OutText(矩阵[x,y]);它起作用了,你可能是指
Xaxis[2]:='B'
Xaxis[3]:='C',等等;-)