home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / ASM / 8087SMPL.ZIP / TEST87.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1987-01-11  |  1.3 KB  |  80 lines
  1.  
  2.  
  3. PROGRAM SAMPLE87(INPUT,OUTPUT);
  4.  
  5. FUNCTION  TNHRQQ(A:REAL):REAL;EXTERN;
  6. FUNCTION  SNHRQQ(A:REAL):REAL;EXTERN;
  7. FUNCTION  CNHRQQ(A:REAL):REAL;EXTERN;
  8.  
  9. FUNCTION  ATNRQQ(A:REAL):REAL;EXTERN;
  10. FUNCTION  ASNRQQ(A:REAL):REAL;EXTERN;
  11. FUNCTION  ACSRQQ(A:REAL):REAL;EXTERN;
  12.  
  13.  
  14.  
  15. CONST
  16. PI = 3.14127;
  17. TEN = 10.0;
  18.  
  19. VAR
  20.      X,Z    :REAL;
  21. BEGIN
  22.      X:=0.0;
  23.      WHILE X <>900.0 DO
  24.     BEGIN
  25.         write('enter number ');readln(X);
  26.         Z:=X;
  27.         WRITELN('number(',X,')= ',Z);    
  28.  
  29.         Z:=TEN/X;
  30.         WRITELN('TEN/',X,' = ',Z);    
  31.  
  32.         Z:=TEN*X;
  33.         WRITELN('TEN*',X,' = ',Z);    
  34.  
  35.  
  36.         Z:=SIN(X);
  37.         WRITELN('sin (',X,')= ',Z);    
  38.  
  39.         Z:=cos(X);
  40.         WRITELN('cos (',X,')= ',Z);    
  41.  
  42.         Z:=tan(X);
  43.         WRITELN('tan (',X,')= ',Z);    
  44.  
  45.  
  46.  
  47.         Z:=tnhrqq(X);
  48.         WRITELN('tanh (',X,')= ',Z);    
  49.  
  50.         Z:=cnhrqq(X);
  51.         WRITELN('cosh (',X,')= ',Z);    
  52.  
  53.         Z:=snhrqq(X);
  54.         WRITELN('sinh (',X,')= ',Z);    
  55.  
  56.  
  57.         Z:=asnrqq(X);
  58.         WRITELN('asin (',X,')= ',Z);    
  59.  
  60.         Z:=acsrqq(X);
  61.         WRITELN('acos (',X,')= ',Z);    
  62.  
  63.         Z:=atnrqq(X);
  64.         WRITELN('atan (',X,')= ',Z);    
  65.  
  66.  
  67.         Z:=exp(X);
  68.         WRITELN('exp (',X,')= ',Z);    
  69.  
  70.         Z:=ln(X);
  71.         WRITELN('ln  (',X,')= ',Z);    
  72.  
  73.         Z:=SQR(X);
  74.         WRITELN('sqr (',X,')= ',Z);    
  75.  
  76.         Z:=SQRT(X);
  77.         WRITELN('SQRT(',X,')= ',Z)    
  78.  
  79.     END;
  80. END.