Anonymous user
Arithmetic/Rational/Modula-2: Difference between revisions
m
prepare for inclusion as template
mNo edit summary |
m (prepare for inclusion as template) |
||
Line 1:
<noinclude>{{collection|Rational Arithmetic}}</noinclude>
{{works with|FST Modula-2 v4.0|no object oriented code used}}
This is incomplete as the Perfect Numbers task has not been addressed.
;Definition Module
<lang modula2>DEFINITION MODULE Rational;
TYPE RAT = RECORD
Line 46:
END Rational.</lang>
;Implementation Module
<lang modula2>IMPLEMENTATION MODULE Rational;
Line 269:
END WriteRational;
END Rational.</lang>
;Test Program
<lang modula2>MODULE TestRat;
FROM InOut IMPORT WriteString, WriteLine;
| |||