     
|
1. Program
2. +, -, *, /, **
3. Yes
4. B
5a. Mixed mode
5b. Sqrt()
6. TAX(SALES)=SALES*0.06
7. a) Integer, b) Character, c) Real
8. As many as variables given in format statement.
9. As many as asked for by the program
10. .LT., .LE., .GT., .EQ., .NE.
11. .NOT., .AND., .OR., .EQV., .NEQV.
12. Planing you logic in your program.
13.
PROGRAM SKYDIV
REAL GACCEL
PARAMETER (GACCEL=9.80665)
INTEGER TIME, MXTIME, DISTNC
PRINT *, 'ENTER MAXIMUM FREEALL (IN SEC)'
READ *, MXTIME
PRINT *, ' TIME (SECS) DISTANCE(METERS)'
DO 10 TIME = 1, MXTIME
DISTNC = 0.5 * (GACCEL) * REAL(TIME)**2
PRINT *, TIME, DISTNC
END DO
STOP
END
14.
REAL FUNCTION C(A,B)
REAL SUM
SUM = 1
DO I=1,1,B
SUM = SUM*A
END DO
C = SUM
RETURN
END
15.
I = N
DO WHILE (I .GT. N)
SUM = SUM + I
I = I - 1
END DO
16.
FORMAT (A18,I3,I5,F4.1,A14)
FORMAT ('0',A18,I3,I5,F4.1,A14)
17. 1, 0, ' ', 1X, 2X, +, -
18. Can store many values in one variable.
19. 
20.
SUBROUTINE NEXT(VALUE, NEXTHIGH)
NEXTHIGH = VALUE + 1
RETURN
END
21. 6
22.
REAL FUNCTION POW(NUM, EXPO)
POW = NUM ** EXPO
RETURN
END
23.
PROGRAM PRETWEN
INTEGER X, SUM
SUM = 0
DO I = 1,5,1
SUM = SUM + (3*I+2)
END DO
PRINT *, SUM
STOP
END
24.
PROGRAM FINAL
INTEGER NUM(100)
CHARACTER *40NAME(100), *9SNN(100)
DO I=1,100,1
READ *, NUM(I), NAME(I), SSN(I)
END DO
BUBBLE(NUM,NAME,SSN)
DO I=1,100,1
PRINT *, NUM(I), NAME(I), SSN(I)
END DO
STOP
END
|
|
|
|