! 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 P41OUTPUT:
+--------------------------------------------------+ | 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
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