home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / fchek284.zip / test / correct.f < prev    next >
Text File  |  1994-11-06  |  1KB  |  48 lines
  1. C    AUTHORS: MIKE MYERS & 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,I,SCORE(5)
  12.     
  13.         SUM = 0
  14.         DO 30 I = 1,COUNT      
  15.         SUM = SUM + SCORE(I)
  16. 30        CONTINUE
  17.         COMPAV = FLOAT(SUM)/FLOAT(COUNT)
  18.         END
  19.  
  20.  
  21.     PROGRAM AVENUM
  22. C
  23. C            MAIN PROGRAM
  24. C
  25. C    AUTHOR:   LOIS BIGBIE
  26. C    DATE:      MAY 15, 1990
  27. C
  28. C    Variables:
  29. C        MAXNOS -> maximum number of input values
  30. C        NUMS    -> an array of numbers
  31. C        COUNT   -> exact number of input values
  32. C        AVG     -> average returned by COMPAV
  33. C        I       -> loop counter
  34. C    
  35.  
  36.         INTEGER MAXNOS
  37.         PARAMETER(MAXNOS=5)
  38.         INTEGER I, NUMS(MAXNOS), COUNT
  39.         REAL AVG
  40.         COUNT = 0
  41.         DO 80 I = 1,MAXNOS
  42.         READ (5,*,END=100) NUMS(I)
  43.         COUNT = COUNT + 1
  44. 80        CONTINUE
  45. 100        AVG = COMPAV(NUMS, COUNT)
  46.         WRITE(6,*) 'AVERAGE =',AVG
  47.     END
  48.