! PROGRAM P23 ! ! IMPLICIT NONE INTEGER :: I, J ! PRINT *, 'This is Program >> P23 - INTEGER Operations' ! ! ! INTEGER OPERATIONS ! I = 1 J = 2 PRINT *,' I+J = ',I+J PRINT *,' I-J = ',I-J PRINT *,' I*J = ',I*J PRINT *,' I/J = ',I/J ! STOP END PROGRAM P23OUTPUT:
+--------------------------------------------------+ | 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 >> P23 - INTEGER Operations I+J = 3 I-J = -1 I*J = 2 I/J = 0
{ Conversions in expressions } PROGRAM p23 (input, output); VAR i, j : INTEGER; a, b : REAL; { Integer operations } BEGIN i := 1; j := 2; writeln (' i+j = ', i+j); writeln (' i-j = ', i-j); writeln (' i*j = ', i*j); writeln (' i/j = ', i DIV j) END.
Last modified: 21/07/97