2012-11-16 60 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]); 

(注缺少' '。)