! PROGRAM P33 ! ! Simple loop with IF-THEN-ELSE ! IMPLICIT NONE INTEGER :: I,J REAL :: SUM,COUNT,AVE ! PRINT *, 'This is Program >> P33 - IF-THEN-ELSE' ! ! READ DATA ! READ *,I ! DO J=1,I READ *,SUM ,COUNT IF(COUNT == 0.0) THEN PRINT *,'COUNT ZERO' STOP ELSE AVE=SUM/COUNT PRINT *,'SUM=', SUM PRINT *,'COUNT=', COUNT PRINT *,'AVERAGE=', AVE END IF END DO STOP END PROGRAM P33DATA:
2 120.0 10.0 100.0 0.0OUTPUT:
+--------------------------------------------------+ | 32-bit Power for Lahey Computer Systems | | Phar Lap's 386|DOS-Extender(tm) Version 7.0 | | Copyright (C) 1986-94 Phar Lap Software, Inc. | | Available Memory = 14880 Kb | +--------------------------------------------------+ This is Program >> P33 - IF-THEN-ELSE SUM= 120.000 COUNT= 10.0000 AVERAGE= 12.0000 COUNT ZERO
PROGRAM p33 (filename, output); var filename : TEXT; sum, count, ave : real; BEGIN assign (filename, 'p33.dat'); reset (filename); WHILE (NOT eof (filename)) DO BEGIN readln (filename, sum, count ); IF ( count = 0.0 ) THEN writeln ('count zero') ELSE BEGIN ave := sum/count; writeln ('sum =', sum ); writeln ('count =', count ); writeln ('average =', ave ) END END END.DATA:
120.0 10.0 100.0 0.0
Last modified: 08/07/97