home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / NRPAS13.ZIP / HUNT.DEM < prev    next >
Encoding:
Text File  |  1991-04-29  |  1014 b   |  40 lines
  1. PROGRAM d3r6 (input,output);
  2. (* driver for routine HUNT *)
  3. CONST
  4.    n=100;
  5. TYPE
  6.    glnarray = ARRAY [1..n] OF real;
  7. VAR
  8.    i,j,ji : integer;
  9.    x : real;
  10.    xx : glnarray;
  11.  
  12. (*$I MODFILE.PAS *)
  13. (*$I HUNT.PAS *)
  14.  
  15. BEGIN
  16. (* create array to be searched *)
  17.    FOR i := 1 to n DO begin
  18.       xx[i] := exp(i/20.0)-74.0
  19.    END;
  20.    writeln ('  result of:',' ':3,'j := 0 indicates x too small');
  21.    writeln (' ':15,'j := 100 indicates x too large');
  22.    writeln ('locate:':12,'guess':8,'j':4,'xx(j)':11,'xx(j+1)':13);
  23. (* do test *)
  24.    FOR i := 1 to 19 DO begin
  25.       x := -100.0+200.0*i/20.0;
  26. (* trial parameter *)
  27.       ji := 5*i;
  28.       j := ji;
  29. (* begin search *)
  30.       hunt(xx,n,x,j);
  31.       IF ((j<n) AND (j>0)) THEN BEGIN
  32.          writeln (x:12:5,ji:6,j:6,xx[j]:12:6,xx[j+1]:12:6)
  33.       END ELSE IF (j=n) THEN BEGIN
  34.          writeln (x:12:5,ji:6,j:6,xx[j]:12:6,'   upper lim')
  35.       END ELSE BEGIN
  36.          writeln (x:12:5,ji:6,j:6,'   lower lim',xx[j+1]:12:6)
  37.       END
  38.    END
  39. END.
  40.