Arithmetic/Integer: Difference between revisions
Content added Content deleted
(SNUSP) |
(→{{header|Modula-3}}: ++ metafont) |
||
| Line 315: | Line 315: | ||
format "Quotient: %\n" (x / y) |
format "Quotient: %\n" (x / y) |
||
format "Remainder: %\n" (mod x y) |
format "Remainder: %\n" (mod x y) |
||
=={{header|Metafont}}== |
|||
<lang metafont>string s[]; |
|||
message "input number a: "; |
|||
s1 := readstring; |
|||
message "input number b: "; |
|||
s2 := readstring; |
|||
a := scantokens s1; |
|||
b := scantokens s2; |
|||
def outp(expr op) = |
|||
message "a " & op & " b = " & decimal(a scantokens(op) b) enddef; |
|||
outp("+"); |
|||
outp("-"); |
|||
outp("*"); |
|||
outp("div"); |
|||
outp("mod"); |
|||
end</lang> |
|||
=={{header|Modula-3}}== |
=={{header|Modula-3}}== |
||