Anonymous user
Count in octal: Difference between revisions
→{{header|Sidef}}
Langurmonkey (talk | contribs) |
|||
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}}==
| |||