数组取值 ( 积分: 50 )

Y

yahoo123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-17

• #1

arrayW:array [0..30] of Integer
已知数组里面有30个数值
值分别为0,0,0,1,2,3,0,0,5,......等等
如何取得第一个不是数值0的位置
比如:arrayW[0]:=0
arrayW[1]:=0
arrayW[2]:=0
arrayW[4]:=1
...........
希望得到结果是数组中位置是4

 

J

jenhon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-17

• #2

for i:=0 to 30 do
begin
if arrayw<>0 then break;
end;
i is you need.

 

F

FishEatsCats

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-17

• #3

Function GetIndex:Integer;
Var i:Integer;
Begin
i:=0;
While arrayW=0 do Inc(i);
if i<=30 then Result:=i
else Result:=-1;
end;
晕了,竟然有这种问题

 

Y

yahoo123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-17

• #4

FishEatsCats回答错误,请认真看题目

 

Y

yahoo123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-17

• #5

[]

 

Y

yahoo123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-17

• #6

FishEatsCats回答错误,请认真看题目

 

B

bjxiangshan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-03

• #7

[]

 

Y

yahoo123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-03

• #8

接受答案了.