! ! =====> Program - P21.F90 ! ! ! DECLARATION STATEMENTS ! INTEGER AGE,POUNDS,GRAMS REAL DAYS CHARACTER (LEN=20) :: NAME,ADDRESS LOGICAL SINGLE ! ! EXECUTABLE STATEMENTS ! ! PRINT *, 'This is Program >> P21 - Assignment Statement' ! AGE=19 POUNDS=105 GRAMS=POUNDS*454 DAYS=AGE*365.25 NAME='JANE' ADDRESS='123 MAIN STREET' SINGLE=.TRUE. ! ! PRINTING STATEMENTS ! PRINT *, NAME,ADDRESS print *, AGE,DAYS print *, POUNDS,GRAMS end OUTPUT: Program entered This is Program >> P21 - Assignment Statement JANE 123 MAIN STREET 19 6.9397500E+03 105 47670
Page builder: Charles Boivin
Last modified: 11/07/95