Help me with this problem plz...

KillCloud · **Posted:** Sat May 27, 2006 12:22 pm

Please help me to write a program that does the following:
Suppose that people enter an empty room until a pair of people share a birthday. Write a program to find out how many people will have to enter before there is a match. Assume birthdays are uniform random integers between 0 and 364.
thanks

jamonathin · **Posted:** Sat May 27, 2006 1:04 pm

Well, it's obvious what time of the year it is - [FP] Time.

The members of CompSci.ca do not do homework assignments for other people, and it's obvious that it's for school.

Now hopefully for your sake you have been paying attention in class and you can attempt a program of your own. Once you manage to accomplish that, then we can assist you in your program. Untill then try something of your own and refer to the Turing Walkthrough for explanations on commands.

upthescale · **Posted:** Sat May 27, 2006 2:39 pm

Ok, terrible coding, but it still does the job...the delay is at the bottom set to '30' so the years and births will go fast, but it will take shorter time to find a match! play with the delay to apeed it or slow it doen

code:

%May not be the best coding, but it still works
%Nevermind, TERRIBLE coding
setscreen ("graphics:600;500;position:truemiddle;center;nobuttonbar;title:Matching Birthdays;offscreenonly")
var birth, birthgirls : int
var jan, feb, mar, apr, may, june, july, aug, sep, oct, nov, dec : int
var year, yeargirls : int
var font : int := Font.New ("arial:15:underline")
loop
colorback (10)
cls
%Randoms
randint (birth, 1, 31)
randint (year, 1, 12)
randint (birthgirls, 1, 31)
randint (yeargirls, 1, 12)
%Randoms
%Boys
if year = 1 then
locate (4, 10)
put "January"
end if
if year = 2 then
locate (4, 10)
put "February"
end if
if year = 3 then
locate (4, 10)
put "March"
end if
if year = 4 then
locate (4, 10)
put "April"
end if
if year = 5 then
locate (4, 10)
put "May"
end if
if year = 6 then
locate (4, 10)
put "June"
end if
if year = 7 then
locate (4, 10)
put "July"
end if
if year = 8 then
locate (4, 10)
put "August"
end if
if year = 9 then
locate (4, 10)
put "September"
end if
if year = 10 then
locate (4, 10)
put "October"
end if
if year = 11 then
locate (4, 10)
put "November"
end if
if year = 12 then
locate (4, 10)
put "December"
end if
%Boys
%%Girls
if yeargirls = 1 then
locate (4, 30)
put "January"
end if
if yeargirls = 2 then
locate (4, 30)
put "February"
end if
if yeargirls = 3 then
locate (4, 30)
put "March"
end if
if yeargirls = 4 then
locate (4, 30)
put "April"
end if
if yeargirls = 5 then
locate (4, 30)
put "May"
end if
if yeargirls = 6 then
locate (4, 30)
put "June"
end if
if yeargirls = 7 then
locate (4, 30)
put "July"
end if
if yeargirls = 8 then
locate (4, 30)
put "August"
end if
if yeargirls = 9 then
locate (4, 30)
put "September"
end if
if yeargirls = 10 then
locate (4, 30)
put "October"
end if
if yeargirls = 11 then
locate (4, 30)
put "November"
end if
if yeargirls = 12 then
locate (4, 30)
put "December"
end if
%%Girls
locate (7, 10)
put birth
locate (7, 30)
put birthgirls
locate (1, 1)
Font.Draw ("Boys", 0, maxy - 20, font, red)
Font.Draw ("Year", 0, maxy - 70, font, red)
Font.Draw ("Birth", 0, maxy - 120, font, red)
Font.Draw ("Girls", 210, maxy - 20, font, red)
Font.Draw ("Year", 210, maxy - 70, font, red)
Font.Draw ("Birth", 210, maxy - 120, font, red)
if birth = birthgirls and year = yeargirls then
exit %End Loop
end if
locate (1, 8)
delay (30)
View.Update
end loop
Font.Draw ("We Have a Match", 0, maxy - 320, font, red)

KillCloud · **Posted:** Sat May 27, 2006 3:11 pm

thx for your reply
however, im thinking of a easier way, where the numbers from 0 to 364 can represent the specific dates (doesnt matter which year they were born in)
and i have problems with the counting part, where i have to output the number of people who had already entered the room when there is a match of the same birthday
here is what i have so far. it's messed up all right

code:

var Max := 500
var arrayCount := 1
var x : int
var birthday : array 1 .. Max of int
for i : 1 .. Max
randint (x, 0, 364)
birthday (arrayCount) := x
var found : boolean := false
for j : 1 .. arrayCount - 1
if birthday (arrayCount) = birthday (j) then
found := true
exit
end if
end for
if not found then
arrayCount := arrayCount + 1
end if
end for
put arrayCount

[/code]

Clayton · **Posted:** Sat May 27, 2006 7:04 pm

Turing:

var birthday : flexible array 1 .. 1 of int
var flag : boolean := false
loop %because we dont know how many people will come until a match is made
birthday (upper (birthday)) := Rand.Int (1, 355)
for i : 1 .. upper (birthday)
put birthday (i), " " ..
end for
Time.DelaySinceLast (500)
if upper (birthday) >= 2 then
for j : 1 .. upper (birthday) - 1
if birthday (upper (birthday)) = birthday (j) then
flag := true
exit when flag
end if
end for
end if
new birthday, upper (birthday) + 1
cls
end loop
put upper (birthday), " kids showed up until they had a common birthday"

your program should look something like that you mostly have it

MysticVegeta · **Posted:** Sat May 27, 2006 8:00 pm

I dont understand why you have the if structure and the for loop to output brithday, also you need 1 extra line before the end loop, "exit when flag"..

Turing:

var birthday : flexible array 1 .. 0 of int
var flag : boolean := false
loop
new birthday, upper (birthday) + 1
birthday (upper (birthday)) := Rand.Int (0, 365)
put birthday (upper (birthday)), " " ..
for x : 1 .. upper (birthday) - 1
if birthday (x) = birthday (upper (birthday)) then
flag := true
end if
end for
exit when flag
end loop
put skip, upper (birthday), " kids showed up until they had a common birthday"

KillCloud · **Posted:** Sat May 27, 2006 8:20 pm

thanks a lot
that really helps, i really appreciate that Very Happy

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members