Computer Science Canada need pogram fixed wood be nice if i had help |
| Author: | AngryBlackman [ Tue Jan 17, 2006 10:40 am ] |
| Post subject: | need pogram fixed wood be nice if i had help |
hey jus need to kno if its possible for ne1 to adjust this program for me, so its using arrays instead of what i already have...and if it's possible to adjust the program so it is also using sequential files to bring up the questions...im new to turing so im jus kinda figurin things out heres the program...i need a reply by tomorrow mornin thanx! var num, num2, num3, num4, num5, num6, num7, num8, num9, num10, num11 : int var num12, num13, num14, num15, num16, num17, num18, num19, num20, num21, num22 : int var num23, num24, num25, num26, num27, num28, num29, num30, num31, num32, num33 : int var num34, num35, num36, num37, num38, num39, num40, num41 : int var num42, num43, num44, num45, num46, num47, num48, num49, num50, num51, num52 : int var next : string (1) var count : int count := 0 var x : int var y : int var c : int loop delay (20) randint (x, 1, maxx) randint (y, 1, maxy) randint (x, 1, maxx) randint (y, 1, maxy) randint (c, 1, maxcolor) Draw.FillStar (x, y, x + 50, y + 50, c) exit when c = 250 end loop colourback (black) cls colour (brightgreen) loop put "Welcome to my Quiz" put "1)Judaism" put "2)Christianity" put "3)Islam" put "4)Buddhism" put "5)Hinduism" put "6)Exit" get num cls case num of label 1 : put "Jews are monotheistic, so what does that mean?" put "1)That they belive in two Gods" put "2)That they Believe in three Gods" put "3)That they Believe in one Gods" put "4)That they Believe in four or more Gods" get num2 if num2 = 3 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls Pic.ScreenLoad ("judaism1.jpg", 200, 20, 0) put "How many commandments are in the Torah?" put "1)273" put "2)613" put "3)591" put "4)623" get num3 if num3 = 2 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "Which of the following is the Jewish place of worship?" put "1)Chapel" put "2)Church" put "3)Temple" put "4)Synagogne" get num4 if num4 = 4 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "Which of the following is Jewish scripture?" put "1)Torah" put "2)Qur'an" put "3)Bible" put "4)Tipitaka" get num5 if num5 = 1 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "How many candles do they light on the menorah during Hanukkah?" put "1)3" put "2)6" put "3)5" put "4)9" get num6 if num6 = 4 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "What does the Mezuzah symbolize?" put "1)That God is present in the Synagogne" put "2)That God is present in the Body" put "3)That God is present in the Home" put "4)That God is present in Children" get num7 if num7 = 3 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "What does Tishuvah mean?" put "1)repentence" put "2)prayer" put "3)confession" put "4)worship" get num8 if num8 = 1 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "In which book does it tell the first story of passover?" put "1)Genisus" put "2)book of John" put "3)Exodus" put "4)book of Mark" get num9 if num9 = 3 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "Which of the following is the Jewish New Year?" put "1)Rosh Hashanah" put "2)Hanukkah" put "3)Passover" put "4)Yom Kippur" get num10 if num10 = 1 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "What are the three main parts of Judaism?" put "1)God,worship and Torah" put "2)Isreal,God and prayer" put "3)God,prayer and worship" put "4)God,Torah and Isreal" get num11 if num11 = 4 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls label 2 : put "Who is the central Figure of Christianity?" put "1)God" put "2)Jesus" put "3)Mary" put "4)The Pope" get num12 if num12 = 2 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "Which of the following is the leader of the Christian Community?" put "1)Clergy" put "2)Bishop" put "3)Pope" put "4)Priest" get num13 if num13 = 3 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "Where are the sacred scriptures located?" put "1)Bible" put "2)Torah" put "3)Qur'an" put "4)Tipitaka" get num14 if num14 = 1 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "Which of the following is a christian sacred time?" put "1)Yom Kippur" put "2)Christmas" put "3)Rosh Hashanah" put "4)Narvona" get num15 if num15 = 2 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "How often do christians go to church?" put "1)Once a day" put "2)Once a year" put "3)Once a month" put "4)Every Sunday" get num16 if num16 = 4 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "Is a church considered a sacred place?" put "1)Yes" put "2)No" get num17 if num17 = 1 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "Is the story about Adam and Eve an explanation about how sin originated?" put "1)Yes" put "2)No" get num18 if num18 = 1 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "Which of the following the turning of bread and wine into the Body and Blood of Christ?" put "1)Mezuzah" put "2)Narvona" put "3)Transubstantiation" put "4)Buddha" get num19 if num19 = 3 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "What does incarnation mean?" put "1)To make blood" put "2)To make flesh" put "3)To make bone" put "4)To make life" get num20 if num20 = 2 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "What is an icon?" put "1)A sacred sculpture of Jesus" put "2)A sacred painting of Jesus" put "3)A sacred sculpture of a saint" put "4)A sacred painting of a saint" get num21 if num21 = 4 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls label 3 : put "Which of the following is the Islamic place of prayer and worship?" put "1)temple" put "2)church" put "3)mosque" put "4)synagogne" get num22 if num22 = 3 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "Which of the following are the teachings of Muhammad?" put "1)Haddith" put "2)Qur'an" put "3)Torah" put "4)Bible" get num23 if num23 = 1 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "What is the twelfth Islamic month known as?" put "1)Passover" put "2)Yom Kippur" put "3)Rosh Hashanah" put "4)Ramadan" get num24 if num24 = 4 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "What are the two main sources of the Islamic beliefs?" put "1)Torah and the Bible" put "2)Qur'an and Haddith" put "3)Qur'an and the Bible" put "4)Torah and Haddith" get num25 if num25 = 2 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "Which month do Islamic people fast?" put "1)the twelfth" put "2)the sixth" put "3)the third" put "4)the ninth" get num26 if num26 = 4 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "What is the name of the Islamic pilgramige?" put "1)Hajj" put "2)Hafiz" put "3)Qur'an" put "4)Jinn" get num27 if num27 = 1 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "Which of the following contains the sacred scriptures?" put "1)Haddith" put "2)Torah" put "3)Qur'an" put "4)Bible" get num28 if num28 = 3 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "Which of the following means to memorize or to guard in islamic?" put "1)Hajj" put "2)Hafiz" put "3)Transubstantiation" put "4)Nervona" get num29 if num29 = 2 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "___ are spirits capable of good or bad" put "1)Mezuzah" put "2)Hafiz" put "3)Hajj" put "4)Jinn" get num30 if num30 = 4 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "What are the five pilars of Islam?" put "1)Profession of Faith, Prayer, Aimsgiving. Fasting and Pilgrimage" put "2)Profession of Faith, Prayer, Worship. Fasting and Pilgrimage" put "3)Profession of Faith, Confession, Aimsgiving. Fasting and Pilgrimage" put "4)Follow Allah, Prayer, Aimsgiving. Fasting and Pilgrimage" get num31 if num31 = 1 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls label 4 : put "Which of the following means the entire Buddhist community?" put "1)Samsara" put "2)Tipitaka" put "3)Sangha" put "4)Shakyamuni" get num32 if num32 = 3 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "Which of the following are the stories about Siddhartha Gautama?" put "1)Shakyamuni" put "2)Sangha" put "3)Tipitaka" put "4)Vinaya Pitaka" get num33 if num33 = 1 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "Which word means the cycle of birth, death and rebirth?" put "1)Shakyamuni" put "2)Sangha" put "3)Tipitaka" put "4)Samsara" get num34 if num34 = 4 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "What is the center belief of Buddhists?" put "1)Tipitaka" put "2)The Four Noble Truths" put "3)Sangha" put "4)Shakyamuni" get num35 if num35 = 2 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "What are the Buddhist scriptures called?" put "1)Vinaya Pitaka" put "2)Shakyamuni" put "3)Tipitaka" put "4)Sangha" get num36 if num36 = 3 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "Is meditation considered a sacred time?" put "1)Yes" put "2)No" get num37 if num37 = 1 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "What is the code of monastic discipline?" put "1)Samsara" put "2)Sangha" put "3)Tipitaka" put "4)Vinaya Pitaka" get num38 if num38 = 4 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "Which of the following is the Buddhist place of worship?" put "1)Synagogne" put "2)Mosque" put "3)Temple" put "4)Church" get num39 if num39 = 3 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "What are the two most common forms of meditation?" put "1)Mindfulness of Air and Meditation of Loving-Kindness" put "2)Mindfulness of Breath and Meditation of Loving-Kindness" put "3)Mindfulness of Breath and Meditation of Kindness" put "4)Mindfulness of Breath and Meditation of Love" get num40 if num40 = 2 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "Which of the Following is not one of the Four Noble Truths?" put "1)Life is filled with suffering" put "2)The cause of suffering is desire" put "3)To cease sufferinng one must cease desiring" put "4)Right understanding" get num41 if num41 = 4 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls label 5 : put "What is the name for Sikh clergy?" put "1)Ashrams" put "2)Granthu" put "3)Moksha" put "4)Karma" get num42 if num42 = 2 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "What are community houses where followers of a guru live called?" put "1)Granthu" put "2)Mokahs" put "3)Karma" put "4)Ashrams" get num43 if num43 = 4 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "What is the purpose of yoga?" put "1)to achieve Moksha" put "2)to achieve Holi" put "3)to achieve Guru" put "4)to achieve Ahimsa" get num44 if num44 = 1 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "What does Karma mean?" put "1)worship" put "2)a deed or prayer" put "3)a deed or action" put "4)an action" get num45 if num45 = 3 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "What word refers to that which is beyond the material world?" put "1)Transcendent" put "2)Mantra" put "3)Guru" put "4)Holi" get num46 if num46 = 1 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "Which of the following is a word, phrase or special sound usually from scripture?" put "1)Guru" put "2)Holi" put "3)Ahimsa" put "4)Mantra" get num47 if num47 = 4 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "What is a guide or teacher that helps fellow Hindus called?" put "1)Guru" put "2)Holi" put "3)Ahimsa" put "4)Ashrams" get num48 if num48 = 1 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "Which of the following is the Hindu place of worship?" put "1)Synagogne" put "2)Mosque" put "3)Temple" put "4)Church" get num49 if num49 = 3 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "What is the spring festival called?" put "1)Karma" put "2)Holi" put "3)Ashrams" put "4)Ahimsa" get num50 if num50 = 2 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls put "Which of the Following is the Hindu's belief in nonviolence?" put "1)Holi" put "2)Yoga" put "3)Ashrams" put "4)Ahimsa" get num51 if num51 = 4 then put "You are right" count := count + 1 else put "You are wrong" end if delay (1000) cls label 6 : put "press 6 again to exit program" get num52 exit when num52 = 6 cls end case put "You got ", count * 10, " percent" if count = 10 or count = 20 or count = 30 or count = 40 or count = 50 then Draw.FillOval (100, 100, 100, 100, yellow) drawarc (100, 50, 25, 20, 180, 0, 1) Draw.FillOval (65, 125, 25, 25, 0) Draw.FillOval (125, 125, 25, 25, 0) Draw.FillOval (65, 125, 10, 10, black) Draw.FillOval (125, 125, 10, 10, black) locate (2, 1) put "Good Job!!" elsif count = 9 or count = 19 or count = 29 or count = 39 or count = 49 then put "So close maybe next time you will get perfect" else Draw.FillOval (100, 100, 100, 100, yellow) drawarc (100, 50, 25, 20, 0, 180, 1) Draw.FillOval (65, 125, 25, 25, 0) Draw.FillOval (125, 125, 25, 25, 0) Draw.FillOval (65, 125, 10, 10, black) Draw.FillOval (125, 125, 10, 10, black) put "Good try aim for perfect next time" end if delay (3000) cls end loop cls Pic.ScreenLoad ("bye.jpg", 200, 20, 0) put "Thank you for coming" put "Please come again!" |
|