! PROGRAM P21 ! ! ! DECLARATION STATEMENTS ! IMPLICIT NONE 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 AND ADDRESS :' PRINT *, NAME,ADDRESS PRINT *,'AGE AND NUMBER OF DAYS :' PRINT *, AGE,DAYS PRINT *,'POUNDS AND GRAMS :' PRINT *, POUNDS,GRAMS PRINT *,'SINGLE :' PRINT *, SINGLE STOP END PROGRAM P21OUTPUT:
+--------------------------------------------------+ | 32-bit Power for Lahey Computer Systems | | Phar Lap's 386|DOS-Extender(tm) Version 7.0 | | Copyright (C) 1986-94 Phar Lap Software, Inc. | | Available Memory = 14880 Kb | +--------------------------------------------------+ This is Program >> P21 - Assignment Statement NAME AND ADDRESS : JANE 123 MAIN STREET AGE AND NUMBER OF DAYS : 19 6939.75 POUNDS AND GRAMS : 105 47670 SINGLE : T
{ Declaration statements } PROGRAM p21 (input, output); VAR age, pds : INTEGER; grams, days : REAL; name, adrs : STRING[20]; single : BOOLEAN; { Executable statements } BEGIN age := 19; pds := 105; grams := pds * 454.0; days := age * 365.25; name := 'Jane'; adrs := '123 Main street'; single := true; { Printing statements } writeln (name, ' ', adrs); writeln (age, days); writeln (pds, grams:8:0); writeln (single) END.
Last modified: 21/07/97