2012-11-16 44 views
1

我这样做,其工作稍微好一点,现在我得到的错误: 44分之45matric.pas 致命:语法错误),但却为const char发现 这是可能的,因为我我正在使用pascal图。多维数组帕斯卡syntac错误

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. 
+0

替换OutTextYX(0,0,矩阵[X,Y]”“); – Arran

+0

with OutText(Matrix [x,y]);它可以工作 – Arran

+0

你可能是指'Xaxis [2]:='B';','Xaxis [3]:='C';'等等;-) – NGLN

回答

1

OutTextXY程序大概需要两个整数和一个字符串作为输入。矩阵阵列保持的字符串,所以使用:

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

(注缺少' '。)