Count in octal: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,190: / Line 2,190: @@
 <lang ruby>var i = 0;
 loop { say i++.as_oct }</lang>
+=={{header|Simula}}==
+<lang simula>
+BEGIN
+    PROCEDURE OUTOCT(N); INTEGER N;
+    BEGIN
+        PROCEDURE OCT(N); INTEGER N;
+        BEGIN
+            IF N > 0 THEN BEGIN
+                OCT(N//8);
+                OUTCHAR(CHAR(RANK('0')+MOD(N,8)));
+            END;
+        END OCT;
+        IF N < 0 THEN BEGIN OUTCHAR('-'); OUTOCT(-N); END
+        ELSE IF N = 0 THEN OUTCHAR('0')
+        ELSE OCT(N);
+    END OUTOCT;
+    INTEGER I;
+    WHILE I < MAXINT DO BEGIN
+        OUTINT(I,0);
+        OUTTEXT(" => ");
+        OUTOCT(I);
+        OUTIMAGE;
+        I := I+1;
+    END;
+END.
+</lang>
 =={{header|Sparkling}}==