Example 5.1

FORTRAN Version

!
      PROGRAM P51
!
      IMPLICIT NONE
      CHARACTER(LEN=3) :: MONTH(12)
      INTEGER  :: UNITS(12)
      REAL :: SALES(12)
!
!
      PRINT *, 'This is Program >> P51  - Read data into arrays'
!
!     Tell program where data for  READ   is coming from
      OPEN(UNIT=5, FILE='P51.DAT')      ! UNIT=5 is the default input
!
!
      READ 10,MONTH
      READ 20,UNITS
      READ 30,SALES
      PRINT 10,MONTH
      PRINT 20,UNITS
      PRINT 30,SALES
10    FORMAT(12A5)
20    FORMAT(12I5)
30    FORMAT(12F5.0)
      STOP
      END PROGRAM P51

  JAN  FEB  MAR  APR  MAY  JUN  JUL  AUG  SEP  OCT  NOV  DEC
  672  609  715  803  810  831  829  727  780  703  791  783
  3.4  3.2  3.7  4.2  4.8  5.1  5.1  5.1  4.3  3.9  4.2  3.6

              +--------------------------------------------------+
              |     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 >> P51  - Read data into arrays
 JAN  FEB  MAR  APR  MAY  JUN  JUL  AUG  SEP  OCT  NOV  DEC
 672  609  715  803  810  831  829  727  780  703  791  783
  3.   3.   4.   4.   5.   5.   5.   5.   4.   4.   4.   4.

Pascal Version

PROGRAM p51 (input, output);
VAR
  month : ARRAY[1..12] OF string[3];
  units : ARRAY[1..12] OF INTEGER;
  sales : ARRAY[1..12] OF REAL;
  i : INTEGER;
BEGIN
  FOR i := 1 TO 12 DO
    readln ( month[i] );
  FOR i := 1 TO 12 DO
    readln ( units[i] );
  FOR i := 1 TO 12 DO
    readln ( sales [i] )
END.

jan
feb
mar
apr
may
jun
jul
aug
sep
oct
nov
dec
672
609
715
803
810
831
829
727
780
703
791
783
3.4
3.2
3.7
4.2
4.8
5.1
5.1
5.1
4.3
3.9
4.2
3.6

Last modified: 22/07/97