如何给动态二维数组赋值(50分)

F

freewolf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-17

• #1

问题：把不同项目下各个评委的打分赋值给定义的二维动态数组。（评委和项目个数为可变量)


procedure TForm1.N1Click(Sender: TObject);
type TFenshu=array of array of Real;
var
a:integer
//项目个数
b:integer
//评委个数
Fen:TFenshu
//评委评分
begin
SetLength(Fen,b,a)
//定义矩阵动态二维数组
.......
.......

 

清

清新空气

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-17

• #2

这个不太清楚，应该可以通过a,b的值来循环赋值；
你最好用数组指针来做，这样也快些！

 

H

hityou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-17

• #3

循环可以赋值
for i := 0 to m-1 do
begin
for j := 0 to n-1 do
begin

aa[i,j]:=1;
end;

end;

 

5

5207

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-17

• #4

嵌套循环!

 

X

xpai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-17

• #5

同意hityou