Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 Arrays and Sequential Files
Index -> Programming, Turing -> Turing Help
View previous topic Printable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
pwnapple




PostPosted: Tue Jan 17, 2006 5:03 pm   Post subject: Arrays and Sequential Files

i need it to have arrays cuz theres too many variables so i need the whole to thing to be changed so it can use arrays and i need sequential files to be bring up the questions
thanks for the help

code:
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!"


Sponsor
Sponsor
Sponsor
sponsor
Display posts from previous:   
   Index -> Programming, Turing -> Turing Help
View previous topic Tell A FriendPrintable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 1 Posts ]
Jump to:   


Style:  
Search: