Computer Science Canada

DESPERATELY NEED HELP: MY PROGRAM WON'T EXIT >>> RE
Author:  Angel [ Thu Jan 08, 2004 12:53 am ]
Post subject:  DESPERATELY NEED HELP: MY PROGRAM WON'T EXIT >>> RE
My program won't exit HELP!

code:
Tony was here and attached the code as a file


Please just modify the last parts of teh program so that it exits where required!!! PLEEEEEEEASE!!!
Author:  DanShadow [ Fri Feb 06, 2004 2:13 pm ]
Post subject: 
lol....im not gonna read all that code. (and its too long, next time, plz just send a ".t" file.) Here is a much easier way to do yours. (and lessss messy)
code:

var length_of_quiz:int:=10
var questions:array 1..length_of_quiz of string
var choice1,choice2,choice3:array 1..length_of_quiz of string
var answer:array 1..length_of_quiz of string
var input:string
var questions_correct:int:=0
questions(1):="What is the point of writing this?"
choice1(1):="To try to help people"
choice2(1):="Im bored...gimme a break"
choice3(1):="Because I have too....if I dont, theyll beat me"
answer(1):="a"
%Put the rest of the questions/answers/choices here

for i:1..length_of_quiz
put questions(i)
put "a) ",choice1(i)
put "b) ",choice2(i)
put "c) ",choice3(i)
put "Your Choice: "..
get input
if input=answer(i) then
put "Correct!!"
questions_correct+=1
else
put "Wrong!! The correct answer was ",answer(i),"!"
end if
delay(3000)
cls
end for

That should work so much better...and might solve your problem..heh
Author:  santabruzer [ Fri Feb 06, 2004 4:44 pm ]
Post subject: 
ah.. you and your copy and paste trivia.. it's just weird.. i find that people would rather copy and paste rather than create an array program, that will read from a file.. kinda like this one 8) .... of course you need a file called "questions.txt", that will have the following format:

code:
question
choice1
choice2
choice3
choice4
answer

the answer must be a one digit number.. of course you can mod the code to your prefernce Razz ...
here it is:

code:
const maxchoice := 4
const maxquestion := 2
var file := "questions.txt"
var filestream : int
var filecount : int := 1
var null : string
var choose : string (1)

type choices :
    record
        quetext : string
        choices : array 1 .. maxchoice of string
        answer : string (1)
    end record

var question : flexible array 1 .. 0 of choices

open : filestream, file, get

loop
    new question, filecount
    loop
        get : filestream, question (filecount).quetext : *
        for i : 1 .. maxchoice
            get : filestream, question (filecount).choices (i) : *
        end for
        get : filestream, question (filecount).answer
        exit
    end loop
    exit when eof (filestream)
    filecount += 1
end loop

close : filestream

for i : 1 .. filecount
    put question (i).quetext
    for k : 1 .. maxchoice
        put k, ") ", question (i).choices (k)
    end for
    put ""
    getch (choose)
    if choose = question (i).answer then
        put "You are Correct!!"
    else
        put "You are wrong"
    end if
    put "Please Press Any Key to Continue"
    getch (choose)
    cls
end for

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy