----------------------------------- compudave Mon Nov 10, 2003 10:45 pm Super7 ----------------------------------- Hi :) I'm taking the grade 11 Computer Info & Sci course. I'd like some help with this program. This program is supposed to randomly choose 7 numbers, the only problem is sometimes these numbers are chosen twice. My question is, what can I add that will make the program not choose the same number twice? randomize var i : int put "Super7 Lottery Number Chooser" for count : 1 ..7 randint(i, 1, 47) put i end for ----------------------------------- Chimaera Mon Nov 10, 2003 10:54 pm ----------------------------------- easy, just set up 7 randints separately and make it redo itself if it is equal to a number that has already been selected. Ta da! 8) ----------------------------------- Tony Mon Nov 10, 2003 11:08 pm ----------------------------------- no no no :roll: tsk tsk tsk you do not to that :roll: I've already wrote up the code for generating a list of random unique numbers, it is [url=http://www.compsci.ca/v2/viewtopic.php?t=2184]here ----------------------------------- Chimaera Mon Nov 10, 2003 11:15 pm ----------------------------------- Here's exactly what your program should be doing randomize var i, a, b, c, d, e,f : int put "Super7 Lottery Number Chooser" randint (a, 1, 47) randint (b, 1, 47) randint (c, 1, 47) randint (d, 1, 47) randint (e, 1, 47) randint (f, 1, 47) randint (i, 1, 47) loop if a = b or a = c or a = d or a = e or a = f or a = i then randint (a, 1, 47) elsif b = a or b = c or b = d or b = e or b = f or b = i then randint (b, 1, 47) elsif c = b or c = a or c = d or c = e or c = f or c = i then randint (c, 1, 47) elsif d = b or d = c or d = a or d = e or d = f or d = i then randint (d, 1, 47) elsif e = b or e = c or e = a or e = d or e = f or e = i then randint (e, 1, 47) elsif f = b or f = c or f = a or f = e or f = d or f = i then randint (f, 1, 47) elsif i = b or i = c or i = a or i = e or i = f or i = d then randint (i, 1, 47) end if exit when a not= b and a not= c and a not= d and a not= e and a not= f and a not= i and b not= a and b not= c or b not= d and b not= e and b not= f and b not= i and c not= b and c not= a and c not= d and c not= e and c not= f and c not= i and d not= b and d not= c and d not= a and d not= e and d not= f and d not= i and e not= b and e not= c and e not= a and e not= d and e not= f and e not= i and f not= b and f not= c and f not= a and f not= e and f not= d and f not= i and f not= b and f not= c and f not= a and f not= e and f not= d and f not= i end loop put a, " ", b, " ", c, " ", d, " ", e, " ", f, " ", i ----------------------------------- PaddyLong Tue Nov 11, 2003 1:06 pm ----------------------------------- ohhh please noooo don't do it the way Chimaera says... that way is horrible... using wayyy more variables than you need.... sure that way works but it's not a very good way to do it ----------------------------------- compudave Tue Nov 11, 2003 1:28 pm ----------------------------------- lol, yeah thanks for the coding but that's a lot of variables... i'm going to try and work with the other code... ----------------------------------- AsianSensation Tue Nov 11, 2003 7:21 pm ----------------------------------- lol, Chimaera, what if someone wanted 100 different numbers? by your method, then it would take (100(101))/2, or 5050 different comparisons. codes have to be effiecient and clean,, and usually have to deal with any situation of it's type. ----------------------------------- Tony Tue Nov 11, 2003 7:29 pm ----------------------------------- doesn't anyone ever look at my code :? I'll post it here, not just the link this time var randN:int %just to hold the number var numbers:array 1..47 of int for i:1..47 numbers(i):=i end for for decreasing i:47..40 randN := Rand.Int(1,i) put numbers(randN) , " ".. if randN not=i then for a:randN+1..i numbers(a-1):=numbers(a) end for end if end for ----------------------------------- Chimaera Tue Nov 11, 2003 9:04 pm ----------------------------------- wow I am so shamed by tony =_= well actually tony didn't shame me, I shamed myself by putting up my cruddy code. :cry: I don't really think in terms of that, I just think of doing what the question asks specifically as opposed to allowing it to be more open ended and perhaps using it for other things in the future. Props to tony for doing that stuff though ----------------------------------- Tony Tue Nov 11, 2003 11:08 pm ----------------------------------- heh, dont worry about that Chimaera :wink: this comes with experience. Everybody starts off with programing a program that acomplishes a task, but with experience and knowledge, you'll begin to see a bigger picture. And as far as I know, when it comes to programming - there's a LOT of changes between original goal and final product. Heh - here's an interesting consept you'll come across if you keep on programming long enough : other objects incorporate in themselves. Though you'd probly need to get into OOP first to understand. ----------------------------------- Chimaera Tue Nov 11, 2003 11:27 pm ----------------------------------- btw what is this OOP stuff that you guys talk about sometimes. I've heard you guys use the term, but still have no idea just what it is. ----------------------------------- Tony Tue Nov 11, 2003 11:32 pm ----------------------------------- OOP - Object Oriented Programming. It's a style of programming where you create interactive objects, rether then one continues code that flows one way. It's possible to use OOP in Turing (WinOOT - Windows Object Oriented Turing :roll: but it's all a big lie. Noone but Catalyst uses OOP in turing :lol:), you might touch onto it in C++ (I didn't :() but Java is where the fun is at :D in Java, everything is OOP. Heck, even your variables are objects - each containing it's own properties and methods that can be executed. ----------------------------------- Blade Tue Nov 11, 2003 11:45 pm ----------------------------------- for the answer to the question... wouldn't it be much better to use a boolean array? because they way tony's doing it you are running a for loop a hella lotta times... maximizing execution time.. ----------------------------------- Tony Tue Nov 11, 2003 11:53 pm ----------------------------------- blade, you must be on drugs or something :? for decreasing i:47..40 thats 7 executions, exactly how many random numbers are needed :roll: first for loop is just initialization of the array, something you would also need for a boolean array :? As I said this before - to randomly pick 1000th unique number, you would have a 1/1000 chance of landing the right number and a hell lots of if statments executed using boolean array method:lol: ----------------------------------- Blade Wed Nov 12, 2003 12:50 pm ----------------------------------- const num:10 var ii,temp:int:=0 var nums:array 1.. num of int var bool:array 1.. num of boolean for i:1..num bool(i):=false end for loop temp:=Rand.Int(1,num) if (bool(temp) = false) then bool(temp):=true nums(ii):=temp ii+=1 end if exit when ii >= num end loop if your numbers are between like 30 and 40 then chance your boolean array to 30 .. 40 and your Rand.Int between 30 and 40 it works for everything, and its simpler than yours, but i dont know about execution time ----------------------------------- Catalyst Wed Nov 12, 2003 1:05 pm ----------------------------------- tony- u should look at the OOP in c++, it might not be as "correct" as it is in java but it is really powerful (mutiple inheritance, abstract functions/classes, etc) ----------------------------------- smith_scott_04 Wed Nov 12, 2003 6:38 pm I Have Already Wrote The Program ----------------------------------- Here is the lotto 649 game just change a few variables. var num : array 1 .. 6 of int var number : array 1 .. 6 of int var tot : int := 0 var finish : boolean %----------------------------------------------------------- procedure RandNum () var doesrepeat : boolean randint (num (1), 1, 49) for cRandNum : 2 .. 6 loop doesrepeat := false randint (num (cRandNum), 1, 49) for cNewRand : 1 .. cRandNum - 1 if num (cRandNum) = num (cNewRand) then doesrepeat := true end if end for exit when doesrepeat = false end loop end for end RandNum %----------------------------------------------------------- procedure ShowNum locate (9, 2) put "The Numbers Were: " locate (10, 2) color (red) put num (1), " - " .. put num (2), " - " .. put num (3), " - " .. put num (4), " - " .. put num (5), " - " .. put num (6) finish := true end ShowNum %----------------------------------------------------------- procedure Guess for locate1 : 3 .. 52 by 5 tot := tot + 1 loop var doesrepeat : boolean := false loop locate (3, 1) color (255) put "Choose 6 Numbers (1,49): " .. drawfillbox (200, 350, 400, 370, white) get number (tot) doesrepeat := false if tot > 1 then for c1 : 1 .. tot - 1 if number (c1) = number (tot) then doesrepeat := true end if end for else exit end if exit when doesrepeat = false end loop if number (tot) 5 then locate (5, locate1) put number (tot) end if exit end if end loop if tot = 6 then exit end if end for end Guess %----------------------------------------------------------- procedure CheckNums var wrong : int := 0 for count : 1 .. 6 for c1 : 1 .. 6 if num (count) = number (c1) then wrong := wrong + 1 end if end for end for locate (7, 2) put "You got: ", (wrong), " right" end CheckNums %----------------------------------------------------------- loop locate (1, 28) color (blue) put "Lotto 649 - Just Imagine" color (255) RandNum Guess CheckNums ShowNum delay (10000) cls tot := 0 end loop ----------------------------------- Chimaera Wed Nov 12, 2003 7:34 pm ----------------------------------- you can't exit your program without doing it manually. Perhaps you should modify your program to do so, but other than that nice program. It doesn't have much to do with Super 7 though. ----------------------------------- Tony Wed Nov 12, 2003 11:52 pm ----------------------------------- blade - obviously mine is simpler AND has better execution time... has less lines of code too :lol: ----------------------------------- compudave Thu Nov 13, 2003 12:52 am ----------------------------------- :lol: hehe, You said it Tony... ----------------------------------- hackman Thu Nov 13, 2003 11:40 am ----------------------------------- I had to do the same program, my teacher was happy with a simple put "Would you like to re-generate the numbers? " if ans="n" then ... ... ... ... ----------------------------------- Tony Thu Nov 13, 2003 3:18 pm ----------------------------------- well the chances of for i:1..10 put Rand.Int(1,10) end for to generate a list of 10 unique numbers... is 1 in 10*9*8...*1 :twisted: