I need to know how to store random numbers from 0 - 9 in an array with no repeats and output them in random order for my project.
My coding is:
" %Variable declaration
var intnum : array 0 .. 9 of int
var inttemps : array 0 .. 9 of int
var intswitch : int
var intrand : int
var intrand3 : int
var inttemp : int
var intrand2 : int
var intcounter : int
var intcount : int
var inttrack : int
colorback (1)
cls
color (3)
%variable initialization
intcounter := 0
intcount := 0
for i : 0 .. 9
intnum (i) := 0
end for
for i: 0 .. 9
inttemps(i) := 0
end for
%processing stage
for i : 0 .. 9
loop
randint (intrand, 0, 9)
exit when intnum (intrand) = 0
end loop
intnum (intrand) := 1
end for
for i : 0 .. 9
if intnum (intrand) = 1 then
put i, " "..
end if
end for
locate (2, 1)
put "Up to which number would you like to reverse?"
loop
get intswitch
var intstore : array 0..intswitch of int
for decreasing i: intswitch .. 0
if intnum(i) = 1 then
put i, " "..
end if
end for
inttemp := intswitch + 1
for i : inttemp .. 9
if intnum (i) = 1 then
put i, " " ..
end if
end for
intcount := intcount + 1
end loop
for i : inttemp .. 9
if intnum (i) = 1 then
put i, " " ..
end if
end for
for i : 0 .. 9
if inttemps (intrand) = 1 then
put i, " "..
end if
end for
locate (2, 1)
put "Up to which number would you like to reverse?"
loop
get intswitch
var intstore : array 0..intswitch of int
for i: 0..intswitch
if intnum(i) = 1 then
put i, " "..
end if
end for
inttemp := intswitch + 1
for i : inttemp .. 9
if intnum (i) = 1 then
put i, " " ..
end if
end for
intcount := intcount + 1
end loop
for i : inttemp .. 9
if intnum (i) = 1 then
put i, " " ..
end if
end for
"
The program is supposed to show the digits 0 through 9 in a random order, then the user can input a number, and the number entered reverses the order of the numbers outputted. The object is to have all the numbers in numerical order.
Thanks! |
