home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s087 / 2.img / PASCAL5.ARC / DISK_PAS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-20  |  723 b   |  35 lines
  1. program arctangent;
  2.  
  3. {$N+}
  4.  
  5. uses bbxptr_p;
  6.  
  7.  
  8. {
  9. This Disk-Based BlackBox performs an ARCTANGENT operation.
  10.  
  11. It requests a variable to get the arctangent value of,
  12. and a variable to put that result into.
  13. }
  14.  
  15.  
  16. type
  17.  
  18.     BlackBox_Parameter_Block = record
  19.      language_type         : integer;     { present in all parameter blocks }
  20.      arctangent_result   : ^double;     { the last parameter requested    }
  21.      arctangent_argument : ^double;     { the first parameter requested   }
  22.     end;
  23.  
  24. var
  25.     parameter_block : ^BlackBox_Parameter_Block;
  26.  
  27. begin
  28.  
  29.     GET_BLACKBOX_PARAMETER_PTR (parameter_block);
  30.  
  31.     parameter_block^.arctangent_result^ := ArcTan (parameter_block^.arctangent_argument^);
  32.  
  33. end.
  34.  
  35.