home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / kzr_0899.zip / E.CMD < prev    next >
OS/2 REXX Batch file  |  1998-07-11  |  658b  |  27 lines
  1. /* REXX-Programm e.cmd  */
  2.    Signal on syntax name eMsg
  3.  
  4. /* Diese Variablen müssen für jede Prozedur definiert werden, damit die  */
  5. /* Prozedur die Variable bufND kennt und die Variable ND übernehmen kann.*/
  6.    Pfd=SysSearchPath("PATH", "kzr.cmd")
  7.    lp=LastPos("\", Pfd)
  8.    Pfd=DelStr(Pfd, 1+lp)
  9.    NDAe=Pfd||"NDAe.DAT"
  10.    bufND  =Pfd||"NDZahl.DAT"
  11.    bufMsg =Pfd||"Meldung.DAT"
  12.    ND = LineIn(bufND, 1)
  13.    Numeric Digits ND+4
  14.  
  15.    /* Berechnet die Zahl e=2.718.... */
  16.    g=1; n=1; y=1
  17.    do forever
  18.      g=g*1/n
  19.      if (abs(g/y) < 10**(-ND-7)) then leave
  20.      y=y+g
  21.      n=n+1
  22.    end
  23.  
  24. W: numeric digits ND
  25.    return(Format(y))
  26.  
  27.