这是我遇到的一个面试题(100分)

Y

ysp_1984

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-26

• #1

这是我遇到的一个面试题!叫我写个函数 ,以二维数组作为参数 ,并调用.我蒙了 我从来都没有用过
二维数组作为参数 ,请高手指点.

 

A

aiddy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-26

• #2

//二数组为参数的函数
founction aa(bb:array):bloon
begin
if bb(0)=1 then result:=true
else result:=false;
end;
//函数中进行调用
var
ll:array[0..100] of integer;
ff:bloon ;
begin
ll[0]:=1;
ff=aa(ll);
end;

 

J

japhe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-26

• #3

type
{ 定义一个二维数组 }
TTwoArrayInt = array[0..3] of array[0..4] of Integer;

{ 二维数组作为参数 ,并调用 }
{ 初始化二维数组 }
procedure InitArray(var AArray: TTwoArrayInt);
var
i, j: Integer;
begin
for i:=0 to 3 do
for j:=0 to 4 do
AArray[j] := i + j;
end;

{ 调用二维数组 }
procedure TForm1.Button1Click(Sender: TObject);
var
tmpArray: TTwoArrayInt;
begin
InitArray(tmpArray);
if tmpArray[1][1] > 1 then
ShowMessage('a');
...
end;

 

S

smokingroom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-26

• #4

type
TX=array[1..5,1..5] of Integer;


procedure Test(X:TX);
begin
ShowMessage(IntToStr(X[1,2]));
end;


procedure TForm1.Button1Click(Sender: TObject);
var
X:TX;
begin
X[1,2]:=100;
Test(X);
end;

 

L

luzhouman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-26

• #5

type
TAArray = array of array of integer; //设置为需要的类型

function IsAA(aa: TAArray): Boolean;
begin
Result:=false;
if (aa<>nil) then
if aa[0,0]=1 then result:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
aa: TAArray;
begin
SetLength(aa, 1);
SetLength(aa[0], 1);
aa[0,0]:=0;
if IsAA(aa) then ShowMessage('OK')
else ShowMessage('Error');
aa:=nil;
end;

 

S

skaly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-14

• #6

同意楼上3位

 

F

fghyxxe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-14

• #7

很容易的题呀....

 

C

cdj000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-14

• #8

努力吧!

 

Y

ysp_1984

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-16

• #9

多人接受答案了。