Computers in Engineering WWW Site - Example 2.1

Example 2.1


FORTRAN Version

!
      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 P21
OUTPUT:

              +--------------------------------------------------+
              |     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

Pascal Version

{
     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