! PROGRAM P61 ! ! IMPLICIT NONE INTEGER :: I,J,K ! PRINT *, 'This is Program >> P61 - Swap 2 elements' ! ! Tell program where data for READ * is coming from OPEN(UNIT=5, FILE='P61.DAT') ! UNIT=5 is the default input ! READ *,I,J PRINT *,I,J ! EXCHANGE I AND J K=I I=J J=K PRINT *,I,J STOP END PROGRAM P61DATA:
39 47OUTPUT:
+--------------------------------------------------+ | 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 >> P61 - Swap 2 elements 39 47 47 39
{$G256} {$P512} {$D+} PROGRAM p61 (input, output); VAR i, j, k : INTEGER; BEGIN readln ( i, j ); { exchange i and j } k := i; i := j; j := k; writeln ( i, ' ', j ) END.DATA:
39 47
Last modified: 22/07/97