home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / FORCHEK1.ZIP / AVERAGE.F next >
Encoding:
Text File  |  1991-10-28  |  1.2 KB  |  45 lines
  1. C       AUTHORS: MIKE MYERS AND LUCIA SPAGNUOLO
  2. C       DATE:    MAY 8, 1989
  3.  
  4. C       Variables:
  5. C               SCORE -> an array of test scores
  6. C               SUM ->   sum of the test scores
  7. C               COUNT -> counter of scores read in
  8. C               I ->     loop counter
  9.  
  10.         REAL FUNCTION COMPAV(SCORE,COUNT)
  11.             INTEGER SUM,COUNT,J,SCORE(5)
  12.  
  13.             DO 30 I = 1,COUNT
  14.                 SUM = SUM + SCORE(I)
  15. 30          CONTINUE
  16.             COMPAV = SUM/COUNT
  17.         END
  18.  
  19.  
  20.         PROGRAM AVENUM
  21. C
  22. C                       MAIN PROGRAM
  23. C
  24. C       AUTHOR:   LOIS BIGBIE
  25. C       DATE:     MAY 15, 1990
  26. C
  27. C       Variables:
  28. C               MAXNOS -> maximum number of input values
  29. C               NUMS    -> an array of numbers
  30. C               COUNT   -> exact number of input values
  31. C               AVG     -> average returned by COMPAV
  32. C               I       -> loop counter
  33. C
  34.  
  35.             PARAMETER(MAXNOS=5)
  36.             INTEGER I, COUNT
  37.             REAL NUMS(MAXNOS), AVG
  38.             COUNT = 0
  39.             DO 80 I = 1,MAXNOS
  40.                 READ (5,*,END=100) NUMS(I)
  41.                 COUNT = COUNT + 1
  42. 80          CONTINUE
  43. 100         AVG = COMPAV(NUMS, COUNT)
  44.         END
  45.