blob: acb97ca6a3b3a704dc44b4f10366f7eab11c4488 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
Program Example106;
{ Program to demonstrate the IndexDWord function. }
Const
ArraySize = 1000;
MaxValue = 1000;
Var
Buffer : Array[1..ArraySize] of DWord;
I,J : longint;
K : DWord;
begin
Randomize;
For I:=1 To ArraySize do
Buffer[I]:=Random(MaxValue);
For I:=1 to 10 do
begin
K:=Random(MaxValue);
J:=IndexDWord(Buffer,ArraySize,K);
if J=-1 then
Writeln('Value ',K,' was not found in buffer.')
else
Writeln('Found ',K,' at position ',J,' in buffer');
end;
end.
|
