Continued fraction/Arithmetic/Construct from rational number: Difference between revisions
Content added Content deleted
(→{{header|ALGOL 68}}: Fix negative numbers) |
m (→{{header|ALGOL 68}}: Typo) |
||
| Line 122: | Line 122: | ||
); |
); |
||
# returns the |
# returns the quotient of numerator over denominator and sets # |
||
# numerator and denominator to the next values for # |
# numerator and denominator to the next values for # |
||
# the continued fraction # |
# the continued fraction # |
||
PROC r2cf = ( REF INT numerator, REF INT denominator )INT: |
PROC r2cf = ( REF INT numerator, REF INT denominator )INT: |
||
IF denominator = 0 |
IF denominator = 0 |
||