home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / science / sapara.arj / SAPARA.FOR < prev    next >
Text File  |  1992-04-30  |  1KB  |  48 lines
  1.         program surfacepara
  2.         real a,b,c,sa
  3.         integer cont
  4.  
  5.         write(*,5000)
  6.         write(*,4500)
  7.         write(*,4600)
  8.         write(*,5000)
  9.         write(*,5000)
  10.         write(*,4700)
  11.         write(*,4800)
  12. 10      write(*,5000)
  13.         write(*,5000)
  14.         write(*,6000)
  15.         read(*,6100) a
  16.         write(*,6200)
  17.         read(*,6300) b
  18.         write(*,6400)
  19.         read(*,6500) c
  20.         sa = 2*(a*b + b*c + c*a)
  21.         write(*,6600) sa
  22.         write(*,7000)
  23.         read(*,7100) cont
  24.         if (cont .eq. 1) goto 10
  25.  
  26.  
  27. 4000    format(' This program will calculate the surface area of')
  28. 4100    format(' a rectangular parallelopiped. We at MacroWare')
  29. 4200    format(' do not exactly know what this shape is but we')
  30. 4300    format(' do know the formula for its surface area so we')
  31. 4400    format(' have written this program.')
  32. 4500    format(' Note - numbers must be entered in the form: ')
  33. 4600    format('        $$$$$$$$$.$$$ or 4. or 4.000 for 4')
  34. 4700    format(' Copyright (C) 1992 MacroWare Software')
  35. 4800    format('         All Rights Reserved')
  36. 5000    format('    ')
  37. 6000    format(' Enter length of first side: ')
  38. 6100    format(f10.3)
  39. 6200    format(' Enter length of second side: ')
  40. 6300    format(f10.3)
  41. 6400    format(' Enter length of third side: ')
  42. 6500    format(f10.3)
  43. 6600    format(' The answer is ',f10.3)
  44. 7000    format(' Try again? (1 for yes or enter for no)')
  45. 7100    format(i1)
  46.         end
  47.  
  48.