Largest five adjacent number: Difference between revisions
Content added Content deleted
(Ada version) |
(add FreeBASIC) |
||
Line 182: | Line 182: | ||
<pre> |
<pre> |
||
99987 |
99987 |
||
</pre> |
|||
=={{header|FreeBASIC}}== |
|||
Generate the number digit by digit, and test as we go. If the task didn't specifically ask to generate the whole 1,000 digit number I wouldn't bother storing more than five of its digits at a time. |
|||
<lang freebasic> |
|||
randomize timer |
|||
dim as ubyte number(0 to 999) |
|||
dim as uinteger seg, highest = 0, lowest = 100000 |
|||
for i as uinteger = 0 to 999 |
|||
number(i) = int(rnd*10) |
|||
if i >= 4 then |
|||
seg = number(i) + 10*number(i-1) + 100*number(i-2) +_ |
|||
1000*number(i-3) + 10000*number(i-4) |
|||
if seg < lowest then lowest = seg |
|||
if seg > highest then highest = seg |
|||
end if |
|||
next i |
|||
print highest, lowest |
|||
</lang> |
|||
{{output}} |
|||
<pre> |
|||
99748 31 |
|||
</pre> |
</pre> |
||