Computers in Engineering WWW Site - Example 3.3

Example 3.3


FORTRAN Version

!
      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 P33
DATA:
2
120.0   10.0
100.0    0.0
OUTPUT:

              +--------------------------------------------------+
              |     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

Pascal Version

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