308-208 - Computers in Engineering - Previous Midterms

Midterm Fall 1993

1. (10 min., 10 points)

Classify each of the following by placing each one under the appropriate column in the table. Assume no explicit declarations.

PI      PRODUCT   AND      TRUE      DO 7 K 12.25
MANY   .OR.       .FLSE.   *SUM
1ZERO   IJK       3.0      123,000   0.0001
N       $1.90     -445     .GT.      AREA

Categories:

Valid Fortran REAL Variable
Valid Fortran INTEGER Variable
Valid Fortran INTEGER Constant
Valid Fortran REAL Constant
Valid Fortran LOGICAL Operator
Valid Fortran RELATIONAL Operator
Not Valid in Fortran

2. (10 min., 12 points)

What will the following program print?



         REAL d,e,g
         a = 35/6
         b = 2.5-4*3.0+a
         c = mod(21,5)
         d = 17/4*3
         e = (10.0/4)**2
         f = a+b
         PRINT *,a,b,c,d,e,f
         END

3. (10 min., 12 points)

What will the following program print?



         REAL w,v,u
         INTEGER z,y,x
     
         y = 12./5
         v = y
         x = 16/2**3/3*2
         z = (3.5)**2-11
         w = 2**(7+1)/6+y-v
         u = 1.1E1+1.1E-1
         PRINT *,u
         PRINT *,v,w
         PRINT *,x,y
         PRINT *,z
         END

4. (10 minutes, 15 points)

What will the following program print?


        INTEGER I,J
        J=3
        DO 10 I=1,17,3
           IF ( (I .EQ. 1) .OR. (I .EQ. 16) ) THEN
              IF ( I .EQ. 1) THEN
                 PRINT *, 'NEVER'
              ELSE
                 PRINT *, 'TROUBLES'
              ENDIF
           ELSE
              IF (I/J .LT. J) THEN
                 PRINT *, 'TROUBLE'
              ELSE
                 PRINT *,'TILL'
                 J = J + 2
              ENDIF
            ENDIF
  10     CONTINUE
         PRINT *, 'YOU'
         STOP
         END

5. (10 minutes, 15 points)

What will the following program print?



       REAL   K, N
       B = 3
       N = 2.8
       A = 10
       K = 3.2
       U = 3.2
       Q = 7.8
     
       Total = B + N + A + K + U + Q
       CALL AVRG(A,Q,U)
       CALL AVRG(B,K,N)
       Q = A + B
       A = Q*6
       CALL ATOTAL(Total, A)
       PRINT *, A,B,N,K,U,Q
       PRINT *, Total
       END
     
       SUBROUTINE AVRG(Q,A,B)
       Q = (Q+A+B)/3
       RETURN
       END
     
       SUBROUTINE ATOTAL(A,B)
       A = (A+B)/9
       RETURN
       END

6. (40 minutes, 36 points)

The business results of a company for one year are data in the following format.

Columns 1-3 Month (e.g. JAN FEB ...)
Columns 4-10 Units sold (e.g. 417 524)
Columns 11-16 Sales ($'000) (e.g. $73,600 is entered as 73.6)

Write a FORTRAN 77 program to ..

Find the total & average of data in Units & Sales
Find the best & worst monthly sales values and the months in which they occur (e.g. MAY).
Draw a Bar-Chart like the following mock printout. The Bar indicates the sales (rounded to the nearest integer) in a month.

MTH SALES ($'000)
JAN ********
FEB *
MAR ************
APR *********************
MAY **********************
JUN ************************
JUL ***********************
AUG *************
SEP *******************
OCT ***********
NOV ********************
DEC *******************

End of Midterm