Computers in Engineering WWW Site - Example 4.1

Example 4.1


FORTRAN Version

!
      PROGRAM P41
!
!     Loop with an increment of 2
!
      IMPLICIT NONE
      INTEGER :: M,LS,LT
!
      PRINT *, 'This is Program >> P41  - DO loop'
!
!     M takes odd values from 1 to 99
      LS=0
      LT=0
L1:   DO  M=1,10,2
         LS=LS+1
         LT=LT+M
         PRINT * ,LS,M,LT
      END DO L1
      PRINT * ,LS,M,LT
      STOP
      END PROGRAM P41
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 >> P41  - DO loop
           1           1           1
           2           3           4
           3           5           9
           4           7          16
           5           9          25
           5          11          25

Pascal Version

PROGRAM p41 (input, output);
VAR
  ls, lt, m : integer;
BEGIN
  ls := 0;
  lt := 0;
  m := 1;
  WHILE ( m <= 100 ) DO
    BEGIN
      ls := ls + 1;
      lt := lt + m;
      writeln ( ls, ' ', m, ' ', lt );
      m := m + 2;
    END;
  writeln ( ls, ' ', m, ' ', lt )
END.

Last modified: 21/07/97