home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / PNL006.ZIP / BINARY.PAS next >
Encoding:
Pascal/Delphi Source File  |  1991-03-17  |  659 b   |  26 lines
  1. Function binary(look : integer) :integer;{Find binary way}
  2. {Look is the variable you're looking for}
  3. var
  4.     temp,                                {The number}
  5.     b,mid,z,                             {Front and end}
  6.     f:integer;                           {For next loops}
  7. Begin
  8.  
  9.     b:=1;                                {Set variables}
  10.     z:=count;
  11.     temp:=-1;
  12.  
  13.     repeat
  14.  
  15.         mid:=(b+z) div 2;                  {Middle}
  16.  
  17.         if a[mid].id=look then temp:=a[mid].inv
  18.         else if a[mid].id<look then b:=mid+1
  19.         else if a[mid].id>look then z:=mid-1;
  20.  
  21.     until (temp>-1) or (b>z);
  22.  
  23.     binary:=temp;
  24.  
  25. End; 
  26.