 9.1.  



       A,         
     .       
      .

             .



      9.1.1.  



  ABS(X)
         -       .        
             ,     
           ;

  SQR(X)
         -       2-  .           
             ,     
           ;

  SIN(X)    \
  COS(X)    !
  EXP(X)    !      T    
  LN(X)     !       ;  
  SQRT(X)   !       .
  ARCTAN(X) /



                               CTP. 44

                     1.700.016 .04-01 35


  EXP10(X)  \
            !       EXP(X)  LN(X),
  LOG(X)    /         10;



      9.1.2. 



  ODD(X)
         -     ,   TRUE  ,  X-
            ,.. "X MOD 2 = 1";

  EOF(F)
         - ,      "F"      "
           ".



      9.1.3.  



  TRUNC(X)
         -     ,      
            (INTEGER)        
            X,..  >=0,  -1<TRUNC(X)<=X;  X<0, 
           X+1>TRUNC(X)>=X;

  ROUND(X)
         - X    ,( )-
            ,  X, .. :  ROUND(X)=TRUNC(X+0.5)
            X>=0;  TRUNC(X-0.5)  X<0;

  ORD(X)
         - X    ,  ( )  -
                                 
             .    ORD(X)     
            (-128..127).

  CHR(X)
         - X    ,  ( )  -
            ,     .

                               CTP. 45

                     1.700.016 .04-01 35


      9.1.4.  "TIME"



           "TIME"                REAL,
        .  
      , :

     PROCEDURE WRITETIME;
     VAR R:REAL;
             HOURS,MINUTES:INTEGER;
             AMPM: ARRAY [1..2] OF CHAR;
     BEGIN
       R:=TIME;
       HOURS:=TRUNC(TIME);
       MINUTES:=TRUNC((R-HOURS)*60.0);
       IF HOURS > 12
             THEN AMPM:='PM'
             ELSE IF (HOURS = 12) AND (MINUTES = 0)
               THEN AMPM:='M '
               ELSE AMPM:='AM';
       WRITE('AT THE TONE THE TIME WILL BE: ');
       WRITE((HOURS+11) MOD 12 + 1 :2);
       WRITE(':', MINUTES DIV 10:1,
                  MINUTES MOD 10:1, AMPM:3);
       WRITE(CHR(7));
     END.



      9.1.5.   



  SUCC(X)
         -           ;
            -  ,     (  
           );

  PRED(X)
         -           ,
            -  ,      (E  
           ).
















                               CTP. 46

                     1.700.016 .04-01 35


                           10. 




                
  .            ,         
             .
       .

  <> :: = <  >/
                   <  >/
                   <  >/
                   <  >/
                   <   
                           >/
                   < >
  
       ,   
 ()    ,   .
      .
 ,
     .    
  '    .  ,
        
   .

       :

  :
         (*    *)
         VAR ... (*    *)
         PROCEDURE (*    *)
         PROCEDURE ...
         (*    *)
  :
         (*    *)
         VAR ... (*   *)
         BEGIN (*   *) END.



       10.1.  



       ,  ,      
                       
  .  ,     ,
         , 
             
  .         
    , :






                               CTP. 47

                     1.700.016 .04-01 35


         PROCEDURE EMTTRAP (N:INTEGER);
         BEGIN
           (*$C                  ;   
                 MOV N(SP),-(SP) ; "N" ->  
                 EMT 53          ;  EMT
           *)
         END     (* EMTTRAP*)

               ,   
          10,
    8.



       10.2.     ()



           ""   
  ,         .
      . ' 
                   "EXTERNAL".
        "FORTRAN"        
          
   /.  ,     
        ,     
  , ..         ',    VAR
  ().

       :

         PROCEDURE ERASE; EXTERNAL
         FUNCTION DIFFERENCE(VAR X,Y:REAL):REAL; FORTRAN;
