Arithmetic/Integer: Difference between revisions
Content added Content deleted
m (→[[Arithmetic/Integer#ALGOL 68]]: fix pre tag) |
|||
Line 94: | Line 94: | ||
=={{header|ALGOL 68}}== |
=={{header|ALGOL 68}}== |
||
{{trans|C}} |
|||
{{works with|ALGOL 68|Revision 1 - no extensions to language used}} |
|||
{{works with|ALGOL 68G|Any - tested with release [http://sourceforge.net/projects/algol68/files/algol68g/algol68g-1.18.0/algol68g-1.18.0-9h.tiny.el5.centos.fc11.i386.rpm/download 1.18.0-9h.tiny]}} |
|||
{{wont work with|ELLA ALGOL 68|Any (with appropriate job cards) - tested with release [http://sourceforge.net/projects/algol68/files/algol68toc/algol68toc-1.8.8d/algol68toc-1.8-8d.fc9.i386.rpm/download 1.8-8d] - due to extensive use of FORMATted transput}} |
|||
<lang algol68>main:( |
<lang algol68>main:( |
||
LONG INT a=355, b=113; |
LONG INT a=355, b=113; |
||
Line 103: | Line 109: | ||
printf(($"a MOD b = a%*b = a%×b = a÷×b = a÷*b = "gl$, a %* b)); |
printf(($"a MOD b = a%*b = a%×b = a÷×b = a÷*b = "gl$, a %* b)); |
||
printf(($"a UP b = a**b = a↑b = "gl$, a ** b)) |
printf(($"a UP b = a**b = a↑b = "gl$, a ** b)) |
||
)</lang> |
|||
⚫ | |||
Output: |
|||
<pre> |
|||
⚫ | |||
a-b = +242 |
a-b = +242 |
||
a*b = a×b = +40115 |
a*b = a×b = +40115 |
||
Line 109: | Line 118: | ||
a OVER b = a%b = a÷b = +3 |
a OVER b = a%b = a÷b = +3 |
||
a MOD b = a%*b = a%×b = a÷×b = a÷*b = +16 |
a MOD b = a%*b = a%×b = a÷×b = a÷*b = +16 |
||
a UP b = a**b = a↑b = +1.499007808785573768814747570e+288 |
a UP b = a**b = a↑b = +1.499007808785573768814747570e+288 |
||
</pre> |
|||
[[ALGOL 68R]] has the curious (and consequently non-standard) /:= operator. This operator |
[[ALGOL 68R]] has the curious (and consequently non-standard) /:= operator. This operator |
||
delivers two INTs as a result. eg. |
delivers two INTs as a result. eg. |