mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-16 17:22:31 +02:00
28 lines
529 B
ObjectPascal
28 lines
529 B
ObjectPascal
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.
|