PROGRAM 3


      PROGRAM CONE
C.....THIS PROGRAM CALCULATES THE VOLUME OF THE FRUSTUM OF A RIGHT CIRCULAR
C.....CONE.
C.....F012     ANTHONY F. ORTIZ     **P26**
C.....DECLARE THE VARIABLES (PI, D1, D2, H, A1, A2, AND V).
      REAL PI, D1, D2, H, A1, A2, V
C.....OPEN THE DATA FILE 'F012P26.DAT' AND THE OUT FILE 'F012P26.OUT'.
      OPEN (1, FILE = 'F012P26.DAT')
      OPEN (2, FILE = 'F012P26.OUT')
C.....PUT THE HEADER, TITLE, AND COLUMN HEADINGS IN THE OUT FILE 'F012P26.OUT'.
      WRITE (2, *) '           F012     ANTHONY F. ORTIZ     ',
     $'**P26**'
      WRITE (2, *)
      WRITE (2, *) '              VOLUME OF THE FRUSTUM OF RIGHT',
     $' CIRCULAR CONES'
      WRITE (2, *)
      WRITE (2, *) '      DIAMETER 1      DIAMETER 2      ALTITUDE',
     $'       VOLUME'
      WRITE (2, *)
C.....GET THE THREE VARIABLE VALUES FROM THE DATA FILE 'F012P26.DAT'.
   10 READ (1, *, END = 20) D1, D2, H
C.....CALCULATE THE AREAS OF THE TWO BASES AND THE VOLUME OF THE FRUSTUM
C.....OF A RIGHT CIRCULAR CONE.
      PI = 3.141593
      A1 = (D1 / 2) ** 2 * PI
      A2 = (D2 / 2) ** 2 * PI
      V = H / 3 * (A1 + A2 + SQRT (A1 * A2))
C.....PUT THE VALUES OF D1, D2, H, AND V IN THE OUT FILE 'F012P26.OUT'.
      WRITE (2, *) D1, D2, H, '    ', V
      GOTO 10
   20 STOP
      END

C.....DATA FILE:  F012P26.DAT

26.1 70.9 51.0
17.2  6.8 12.2
38.7  8.3 63.4
23.4 46.6 24.6
11.5 62.5 85.8
14.4  9.6 36.1
 5.7 22.3 47.3
20.8 30.2 85.5
54.1 14.9 79.7

C.....OUTFILE:  F012P26.OUT

        F012     ANTHONY F. ORTIZ     **P26**

               VOLUME OF THE FRUSTUM OF RIGHT CIRCULAR CONES

       DIAMETER 1      DIAMETER 2      ALTITUDE       VOLUME

       26.100000       70.900000       51.000000      100919.500000
       17.200000        6.800000       12.200000        1466.152000
       38.700000        8.300000       63.400000       31333.700000
       23.400000       46.600000       24.600000       24534.580000
       11.500000       62.500000       85.800000      106859.200000
       14.400000        9.600000       36.100000        4137.251000
        5.700000       22.300000       47.300000        8134.342000
       20.800000       30.200000       85.500000       44159.750000
       54.100000       14.900000       79.700000       82520.830000




BACK TO COMP150 PAGE.