Software
REAL RECORD(5), AVERAGE, TOTAL, AGE, SEX, WEIGHT
BYTE SEX
INTEGER NUMBER
TOTAL = 0.
NUMBER = 0
OPEN(UNIT=UNIT1,NAME='DATAFILE',TYPE='OLD',READONLY)
REPEAT
[ READ(UNIT1,*,END=IEND) RECORD; (4F10.0,5X,A4)
IF(IEND) BREAK
AGE = RECORD(2)
SEX = RECORD(5)
WEIGHT = RECORD(3)
IF(AGE >= 18 .AND. SEX == 'F')
[ TOTAL = TOTAL + WEIGHT
NUMBER = NUMBER + 1
]
]
AVERAGE = TOTAL / NUMBER
PRINT *, AVERAGE; (' Average = ',F5.1)
END
Slide show generated from sw.html by Weasel 2007 Mar 15