! PROGRAM P25 ! ! ! CONVERSIONS IN EXPRESSIONS ! IMPLICIT NONE INTEGER :: I REAL :: A ! PRINT *, 'This is Program >> P25 - Mixed Operations' ! ! ! MIXED OPERATIONS ! A = 1.5 I = 2 PRINT *,' A+I = ',A+I PRINT *,' A-I = ',A-I PRINT *,' A*I = ',A*I PRINT *,' A/I = ',A/I ! STOP END PROGRAM P25OUTPUT:
+--------------------------------------------------+ | 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 >> P25 - Mixed Operations A+I = 3.50000 A-I = -0.500000 A*I = 3.00000 A/I = 0.750000
{ Conversions in expressions } PROGRAM p25 (input, output); VAR i : INTEGER; a : REAL; { Mixed operations } BEGIN a := 1.5; i := 2; writeln (' a+i = ', a+i); writeln (' a-i = ', a-i); writeln (' a*i = ', a*i); writeln (' a/i = ', a/i) END.
Last modified: 21/07/97