I'm making a quiz, in which it will only allow the user to have 3 guesses. If it took the user one guess to input the correct answer, the user will gain 3 marks. If it took the user two guesses to input the correct answer then the user will gain 2 marks. If the user took all 3 guesses to input the correct answer, he/she will only receive one mark. Otherwise, the user will receive no marks.
The problem is, when the user is doing the quiz, the accumulators (variables mark and correct) are not working. In the end, no matter how many questions you answered correctly, the report card will display your mark as 0.
You will see what I mean by running the program.
| Turing: |
put "Problem Statement: To create a program which will display a menu with four"
put "choices. The user uses the keyboard to input his/her choice. The first"
put "choice is called 'Information' and contains a list of any ten countries from"
put "one continent along with their capital city. The second choice is the actual"
put "quiz and it asks the user for the capital of each country."
put "The user has three chances to answer the question. If the user gets it right"
put "on the first chance he/she, gets three points, on the second chance, two"
put "points and so on. The third choice shows the users score and percent out of "
put "the possible 30 points. The 4th choice is an exit, which will quit the program."
var x : string (1)
locate (25, 1)
put "Press any key to continue..." ..
getch (x )
cls
% DEFINE CONSTANT
% DECLARE VARIABLES
var choice : int
var y : string(1)
var answer : string
var mark : int := 0
var correct : int := 0
var font2,width2,font3,width3,width4,width5 : int
font2 := Font.New("Arial:24")
font3 := Font.New("Arial:14")
width2 := Font.Width("Report Card", font2 )
width3 := Font.Width("Number of correct answers: ",font3 )
width4 := Font.Width("Number of incorrect answers: ",font3 )
width5 := Font.Width("Your final percentage: ",font3 )
procedure ask (country, capital : string)
var mark : int
var correct : int
var answer : string
for i : 1.. 3
put "What is the capital city of ", country, "?"
get answer :*
if answer = capital then
exit
mark + = (4-i )
correct + = 1
else put "Sorry, try again!"
end if
end for
cls
end ask
loop
setscreen("text")
%display menu
put "" : 38, "MENU"
put skip
put "" : 20, "1. Information"
put "" : 20, "2. Quiz"
put "" : 20, "3. Results"
put "" : 20, "4. Exit"
% missed lines
get choice
%checks for the range - ADD THE CODE TO CHECK THE INPUT FROM THE KEYBOARD
%clear screen where is needed etc.
case choice of
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%displays information
label 1 :
setscreen("graphics")
cls
put "Please study for the quiz. All the possible questions are given below."
put "You have 2 seconds to read each hint."
put "Press any key to continue..." ..
getch(y )
cls
put "The capital city of Austria is Vienna."
delay(2000)
cls
put "The capital city of Denmark is Copenhagen."
delay(2000)
cls
put "The capital city of France is Paris."
delay(2000)
cls
put "The capital city of Germany is Berlin."
delay(2000)
cls
put "The capital city of Greece is Athens."
delay(2000)
cls
put "The Capital City of Italy is Rome."
delay(2000)
cls
put "The Capital City of Russia is Moscow."
delay(2000)
cls
put "The Capital City of Spain is Madrid."
delay(2000)
cls
put "The Capital City of Sweden is Stockholm."
delay(2000)
cls
put "The Capital City of United Kingdom is London."
delay(2000)
cls
put "We hope you have finished studying."
put "Press any key to go back to the main menu."
getch(y )
cls
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%ask questions, assign score, accumulate total
label 2 :
setscreen("graphics")
cls
ask ("France", "Paris")
ask ("United Kingdom", "London")
ask ("Spain", "Madrid")
ask ("Italy", "Rome")
ask ("Sweden", "Stockholm")
ask ("Greece", "Athens")
ask ("Austria", "Vienna")
ask ("Denmark", "Copenhagen")
ask ("German", "Berlin")
ask ("Russia", "Moscow")
put "You have finished the quiz."
put "Press any key to go back to the main menu."
getch(y )
cls
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% display point score and percentage score
label 3 :
setscreen("Graphics:400;500")
cls
Draw.Box(50, 50, 350, 450, 7)
Draw.Line(50, 400, 350, 400, 7)
Font.Draw("Report Card", 200- (width2 div 2), 410,font2, 7)
Font.Draw("Number of correct answers: ", 60, 370,font3, 7)
Font.Draw("Number of incorrect answers: ", 60, 340,font3, 7)
Font.Draw(intstr(correct ), 60+width3, 370,font3, 7)
Font.Draw(intstr(30-correct ), 60+width4, 340,font3, 7)
Font.Draw("Your final percentage: ", 60, 310,font3, 7)
Font.Draw(realstr(mark/ 30* 100, 3), 60+width5, 310,font3, 7)
Draw.FillBox(120, 200, 140, 280, 7)
Draw.FillBox(260, 200, 280, 280, 7)
if mark > 20 then
Draw.FillBox(90, 80, 110, 150, 7)
Draw.FillBox(290, 80, 310, 150, 7)
Draw.FillBox(110, 80, 290, 100, 7)
elsif mark > 10 and mark <= 20 then
Draw.FillBox(90, 100, 310, 120, 7)
else
Draw.FillBox(90, 80, 110, 150, 7)
Draw.FillBox(290, 80, 310, 150, 7)
Draw.FillBox(110, 130, 290, 150, 7)
end if
delay(5000)
cls
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
label 4 :
exit
end case
end loop
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% good bye screen and stop execution of your program
setscreen("graphics")
cls
var font,width : int
font := Font.New("Arial:26")
width := Font.Width("Thank you for using this program! =)", font )
Font.Draw("Thank you for using this program! =)", maxx div 2 - width div 2, 300, font, red)
|
Any help would be greatly appreciated. |
