帮我看看那错了？－－定义过程 (麻烦张剑波进来看看) (100分)

M

maginnn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-29

• #1

我想定义个过程
其中，m1，m2 应该是：二维数组，输出Rs也是一个二维数组
可是我这样定义
procedure Multiply(m1:array of array of integer;m2:array of array of integer;
var Res:array of array of integer) //矩阵乘法
它总提示我定义错误array of ××array×× of integer 说第二个array 的地方应该是of
请问我改怎么办？

 

Z

zxb200

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-29

• #2

這句有錯：edit1.text:=inttostr(m3[3,2]);
注意數組m3的下標應為：m3[0,0]....m3[2,2];
m3[3,2]已出界了。

 

L

lvxq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-30

• #3

二维树组是怎么定义的？？
这样？？
m1 : array of array of ????

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-30

• #4

http://211.101.4.25/delphibbs/dispq.asp?lid=670169

 

S

swei412

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-30

• #5

在参考书及delphi帮助中对过程和函数中的开放数组只提到了一维
这种用法不是很长用，你看着办吧
理论上二维也应该没什么问题的，看是不是别的什么问题
解决了别忘了也跟我说一声

 

M

maginnn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-30

• #6

to 张剑波
我这里关键的是用道了二维数组，我应该怎么定义？
如果我定义了类
type
Tbotharray = array of array of integer;
procedure aaa(m1:Tbotharray;var m2:Tbotharray);
begin
××××××
end;
而调用时
procedure TForm1.Button3Click(Sender: TObject);
var
kk:Tbotharray;
aaaa:Tbotharray;
begin
setlength(kk,2,2) ;
kk[1,1]:=2;
aaa(kk[1,1],aaaa);
end
却是类型不匹配！？？？？？？？？

 

Z

zxb200

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-30

• #7

 

荷

荷塘新月

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-30

• #8

关注！

 

L

lvxq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-30

• #9

就定义一个二维树组啊，又呢么南吗
try this

procedure TForm1.Button1Click(Sender: TObject);
var
ii: array[1..3]of array[1..3] of integer;
i,j:Integer;
ss:String;
begin
for i :=1 to 3 do
for j:=1 to 3 do
ii[i,j]:=j+i;
ss:='';
for i :=1 to 3 do
for j:=1 to 3 do
ss:=ss+IntToStr(ii[i,j]);
ShowMessage(ss) ;
end;

 

M

maginnn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-30

• #10

to zx200多谢了！
这个方法我试验了
可是当我调用方法Multiply时
我的数组xx合yy作为输入参数
（xx:array of array of integer）
它却说时integer合array1类型不匹配！

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-30

• #11

procedure TForm1.Button1Click(Sender: TObject);
var
kk:Tbotharray;
aaaa:Tbotharray;
begin
aaa(kk,aaaa);
end;
编译通过

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-30

• #12

procedure TForm1.aaa(m1: Tbotharray;
var m2: Tbotharray);
begin
showmessage('ok');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
kk:Tbotharray;
aaaa:Tbotharray;
begin

aaa(kk,aaaa);


end;

end.

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-30

• #13

var
AA：array〔a..b,c..d〕 of integer 是二维定义啊

 

M

maginnn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-07

• #14

接受答案了.