Count in octal: Difference between revisions
no edit summary
No edit summary |
No edit summary |
||
Line 2,704:
++i;
};</lang>
=={{header|S-BASIC}}==
Although many (most?) BASICs have an OCT$ function, S-BASIC does not, so we have to supply our own
<lang BASIC>
rem - return p mod q
function mod(p, q = integer) = integer
end = p - q * (p / q)
rem - return octal representation of n
function oct$(n = integer) = string
var s = string
s = ""
while n > 0 do
begin
s = chr(mod(n,8) + '0') + s
n = n / 8
end
end = s
rem - count in octal until overflow
var i = integer
i = 1
while i > 0 do
begin
print oct$(i)
i = i + 1
end
end
</lang>
{out}
<pre>
1
2
3
4
5
6
7
10
...
77770
77771
77772
77773
77774
77775
77776
77777
</pre>
=={{header|Scala}}==
| |||