Sha256: f17af3807fb58cb8b93f920df43170ee30d198d23932a0f8e5d39f7817c8af4a

Contents?: true

Size: 923 Bytes

Versions: 10

Compression:

Stored size: 923 Bytes

Contents

{{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}}
main:(
  LONG INT a=355, b=113;
  printf(($"a PLUS b = a+b = "gl$, a + b));
  printf(($"a MINUS b = a-b = "gl$, a - b));
  printf(($"a TIMES b = a*b = a×b = "gl$, a * b));
  printf(($"a DIV b = a/b = "gl$, a / b));
  printf(($"a OVER 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))
)

Version data entries

10 entries across 7 versions & 1 rubygems

Version Path
zettacode-0.1.7 files.zettacode/arithmetic.integer/algol_68.txt
zettacode-0.1.6 files.zettacode/arithmetic.integer/algol_68.txt
zettacode-0.1.6 files.zettacode2/arithmetic.integer/algol_68.txt
zettacode-0.1.5 files.zettacode/arithmetic.integer/algol_68.txt
zettacode-0.1.5 files.zettacode2/arithmetic.integer/algol_68.txt
zettacode-0.1.4 files.zettacode/arithmetic.integer/algol_68.txt
zettacode-0.1.4 files.zettacode2/arithmetic.integer/algol_68.txt
zettacode-0.1.3 files.zettacode/arithmetic.integer/algol_68.txt
zettacode-0.1.2 files.zettacode/arithmetic.integer/algol_68.txt
zettacode-0.1.1 zettacode.files/arithmetic.integer/algol_68.txt