home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / compiler / ubasic / malm / tau.ub < prev    next >
Encoding:
Text File  |  1990-08-22  |  233 b   |  8 lines
  1.    10   *Tau(&M(),K,&Ta)
  2.    20   ' Modeled on the Pascal version. M() is an input parameter.
  3.    30   ' 8 May 1990
  4.    50   local I
  5.    60   Ta=1
  6.    70   for I=1 to K:Ta=Ta*(M(I)+1):next I
  7.    80   return ' End of subroutine Tau.
  8.