Arithmetic/Rational/Modula-2: Difference between revisions

m
no edit summary
(Modula-2. Un-omitted!!)
 
mNo edit summary
Line 44:
PROCEDURE WriteRational( i : RAT );
 
END Rational.</lang>
 
Implementation Module
Line 270:
 
END Rational.
</lang>
 
Test Program
Line 382:
 
WriteString("Press any key..."); WHILE NOT KeyPressed() DO END;
END TestRat.</lang>
Anonymous user