! PROGRAM P24 ! ! ! CONVERSIONS IN EXPRESSIONS ! IMPLICIT NONE REAL :: A, B ! PRINT *, 'This is Program >> P24 - REAL Operations' ! ! ! REAL OPERATIONS ! A = 1.5 B = 3.0 PRINT *,' A+B = ',A+B PRINT *,' A-B = ',A-B PRINT *,' A*B = ',A*B PRINT *,' A/B = ',A/B ! STOP END PROGRAM P24OUTPUT:
+--------------------------------------------------+ | 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 >> P24 - REAL Operations A+B = 4.50000 A-B = -1.50000 A*B = 4.50000 A/B = 0.500000
{ Conversions in expressions } PROGRAM p24 (input, output); VAR a, b : REAL; { Real operations } BEGIN a := 1.5; b := 3.0; writeln (' a+b = ', a+b); writeln (' a-b = ', a-b); writeln (' a*b = ', a*b); writeln (' a/b = ', a/b) END.
Last modified: 21/07/97