Instructions for Candidates
The question paper is divided into four sections and a recommendation is given to candidates as to
how long to spend on each section. Below are the recommended timings for the 2011 examination.
Section A
You are advised to spend no more than 30 minutes on this section.
Questions will examine the specification content not specific to the Preliminary Material.
Section B
You are advised to spend no more than 20 minutes on this section.
You will be asked to create a new program not related to the Preliminary Material or Skeleton
Program.
Section C
You are advised to spend no more than 20 minutes on this section.
Questions will refer to the Preliminary Material and the Skeleton Program, but will not require
programming.
Section D
You are advised to spend no more than 50 minutes on this section.
Questions will use the the Skeleton Program and the Preliminary Material and may require the
HiScores.txt Data File.
Electronic Answer Document
Answers to questions for all four sections must be entered into the word processed document made
available to you at the start of the examination and referred to in the question paper rubrics as the
Electronic Answer Document.
Preparation for the Examination
You should ensure that you are familiar with this Preliminary Material and the Skeleton Program.
For the Skeleton Program for your programming language, you should be familiar with:
the built-in functions available for manipulating string data and converting strings to other data
types
file handling commands for CSV (Comma Separated Variable) files
declaring and using arrays.
Turn over
3
M/Jun11/COMP1/PM
Dice Cricket Game
The Skeleton Program is a program for the two-player game of Dice Cricket. Dice Cricket is a
simple game based on the sport of cricket.
When playing Dice Cricket, players use two special dice called the Bowl Die1 and the Appeal Die.
The Bowl Die is a 6-sided die where, instead of the numbers 1 to 6, the sides have "0", "1", "2", "4",
"6", and "OUT" written on them. The player whose turn it is rolls the Bowl Die. If the result is one
of the numeric values then this is added to their score (the number of runs they have got) and they
continue to roll the Bowl Die until "OUT" is rolled. If the result is "OUT" then they roll the Appeal Die
to see what happens next.
The Appeal Die is a 4-sided die where the numbers 1 to 4 have been replaced with different values.
The values on the Appeal Die are "NOT OUT", "CAUGHT", "LBW" and "BOWLED". If when a
player rolls the Appeal Die they get a result of "NOT OUT" then their turn continues and they can
roll the Bowl Die again. Any other result on the Appeal Die means that they are out and their turn
finishes. When player one's turn is over player two has their turn. When player two is out the two
players' scores are compared and the winner is the one with the highest score.
In the Skeleton Program players can choose to play with real dice or virtual dice. If real dice are
used then the two players have actually got a Bowl Die and an Appeal Die and enter the values they
roll into the program. If virtual dice are used then the program simulates the rolling of the Bowl Die
and Appeal Die by generating random numbers. There are 6 different values on the Bowl Die and 4
different values on the Appeal Die.
The Skeleton Program also stores the names and scores of the four highest results obtained by
players playing Dice Cricket. After each game the scores of the two players are compared with the
previous top scores. The winner's details, if their score is higher, will replace those of the player
with the lowest top score. The loser's details, if their score is high enough, could also replace one of
the previous player’s details. If the winning player’s score is the same as the lowest top score their
details are not stored. If a game is drawn with a score lower than three of the top four scores then
only player one’s details will be stored.
In the Skeleton Program there is a menu containing five options:
Play game version with virtual dice
Play game version with real dice
Load top scores
Display top scores
Quit
If the user chooses to load top scores from a file then the file HiScores.txt is opened and the
contents placed in the array TopScores.
The Data File
Ricky,12
Sachin,45
Brian,2
Monty,1
The data file HiScores.txt will be available to you at the start of the examination.
1Dice is the plural of the word die.
4
M/Jun11/COMP1/PM
Variables
Some of the variables used are:
Identifier Data Type Purpose
TopScores Array[1..4]
of Record
This is an array of records. Each
record stores the details about one of
the top four scores. A record consists
of a name (string data type) and a
score (integer data type)
PlayerOut Boolean Used to indicate if a player is out or
not
CurrentPlayerScore Integer Used to store the number of runs that
the current player has accumulated
PlayerNo Integer Used to indicate if it is player one's or
player two's turn
Notes
The programming language used to code the game will determine the letter case for each identifier
and so may not match exactly the identifiers shown in the table above.
Your chosen programming language may use arrays with a lower bound value of 0. If so, position 0
will not have been used.
END OF PRELIMINARY MATERIAL
Copyright
Tuesday, 24 May 2011
Preparation for Examination
Preparation for the Examination
You should ensure that you are familiar with this Preliminary Material and the Skeleton Program.
For the Skeleton Program for your programming language, you should be familiar with:
the built-in functions available for manipulating string data and converting strings to other data types
http://pascal-programming.info/lesson12.php
file handling commands for CSV (Comma Separated Variable) files
http://www.daniweb.com/software-development/pascal-and-delphi/threads/237345
declaring and using arrays.
http://pascal-programming.info/lesson11.php
You should ensure that you are familiar with this Preliminary Material and the Skeleton Program.
For the Skeleton Program for your programming language, you should be familiar with:
the built-in functions available for manipulating string data and converting strings to other data types
http://pascal-programming.info/lesson12.php
file handling commands for CSV (Comma Separated Variable) files
http://www.daniweb.com/software-development/pascal-and-delphi/threads/237345
declaring and using arrays.
http://pascal-programming.info/lesson11.php
exam skelaton see highscores.txt
Program DiceCricket;
{Skeleton Program code for the AQA COMP1 Summer 2011 examination
this code should be used in conjunction with the Preliminary Material
written by the AQA COMP1 Programmer Team developed in the
Free Pascal IDE for Win32 v1.0.10 programming environment}
{Centres using Delphi should add the compiler directive that sets
the application type to Console (other centres can ignore this
comment). Centres may also add the SysUtils library if their
version of Pascal uses this}
{Permission to make these changes to the Skeleton Program does not
need to be obtained from AQA/AQA Programmer - just remove the \ symbol from
the next line of code and remove the braces around Uses SysUtils;}
{\$APPTYPE CONSOLE}
{Uses
SysUtils;}
Const MaxSize = 4;
Type TTopScore = Record
Name : String;
Score : Integer;
End;
TTopScores = Array[1..MaxSize] Of TTopScore;
Var
TopScores : TTopScores;
PlayerOneName : String;
PlayerTwoName : String;
OptionSelected : Integer;
Procedure ResetTopScores(Var TopScores : TTopScores);
Var
Count : Integer;
Begin
For Count := 1 To MaxSize
Do
Begin
TopScores[Count].Name := '-';
TopScores[Count].Score := 0;
End;
End;
Function GetValidPlayerName : String;
Var
PlayerName : String;
Begin
Repeat
Readln(PlayerName);
If PlayerName = ''
Then Write('That was not a valid name. Please try again: ');
Until PlayerName <> '';
GetValidPlayerName := PlayerName;
End;
Procedure DisplayMenu;
Begin
Writeln;
Writeln('Dice Cricket');
Writeln;
Writeln('1. Play game version with virtual dice');
Writeln('2. Play game version with real dice');
Writeln('3. Load top scores');
Writeln('4. Display top scores');
Writeln('9. Quit');
Writeln;
End;
Function GetMenuChoice : Integer;
Var
OptionChosen : Integer;
Begin
Write('Please enter your choice: ');
Readln(OptionChosen);
If (OptionChosen < 1) Or ((OptionChosen > 4) And (OptionChosen <> 9))
Then
Begin
Writeln;
Writeln('That was not one of the allowed options. Please try again: ');
End;
GetMenuChoice := OptionChosen;
End;
Function RollBowlDie(VirtualDiceGame : Boolean) : Integer;
Var
BowlDieResult : Integer;
Begin
If VirtualDiceGame
Then BowlDieResult := Random(6) + 1
Else
Begin
Writeln('Please roll the bowling die and then enter your result.');
Writeln;
Writeln('Enter 1 if the result is a 1');
Writeln('Enter 2 if the result is a 2');
Writeln('Enter 3 if the result is a 4');
Writeln('Enter 4 if the result is a 6');
Writeln('Enter 5 if the result is a 0');
Writeln('Enter 6 if the result is OUT');
Writeln;
Write('Result: ');
Readln(BowlDieResult);
Writeln;
End;
RollBowlDie := BowlDieResult;
End;
Function CalculateRunsScored(BowlDieResult : Integer) : Integer;
Var
RunsScored : Integer;
Begin
Case BowlDieResult Of
1 : RunsScored := 1;
2 : RunsScored := 2;
3 : RunsScored := 4;
4 : RunsScored := 6;
5, 6 : RunsScored := 0;
End;
CalculateRunsScored := RunsScored;
End;
Procedure DisplayRunsScored(RunsScored : Integer);
Begin
Case RunsScored Of
1 : Writeln('You got one run!');
2 : Writeln('You got two runs!');
4 : Writeln('You got four runs!');
6 : Writeln('You got six runs!');
End;
End;
Procedure DisplayCurrentPlayerNewScore(CurrentPlayerScore : Integer);
Begin
Writeln('Your new score is: ', CurrentPlayerScore);
End;
Function RollAppealDie(VirtualDiceGame : Boolean) : Integer;
Var
AppealDieResult : Integer;
Begin
If VirtualDiceGame
Then AppealDieResult := Random(4) + 1
Else
Begin
Writeln('Please roll the appeal die and then enter your result.');
Writeln;
Writeln('Enter 1 if the result is NOT OUT');
Writeln('Enter 2 if the result is CAUGHT');
Writeln('Enter 3 if the result is LBW');
Writeln('Enter 4 if the result is BOWLED');
Writeln;
Write('Result: ');
Readln(AppealDieResult);
Writeln;
End;
RollAppealDie := AppealDieResult;
End;
Procedure DisplayAppealDieResult(AppealDieResult : Integer);
Begin
Case AppealDieResult Of
1 : Writeln('Not out!');
2 : Writeln('Caught!');
3 : Writeln('LBW!');
4 : Writeln('Bowled!');
End;
End;
Procedure DisplayResult(PlayerOneName : String; PlayerOneScore : Integer;
PlayerTwoName : String; PlayerTwoScore : Integer);
Begin
Writeln;
Writeln(PlayerOneName, ' your score was: ', PlayerOneScore);
Writeln(PlayerTwoName, ' your score was: ', PlayerTwoScore);
Writeln;
If PlayerOneScore > PlayerTwoScore
Then Writeln(PlayerOneName, ' wins!');
If PlayerTwoScore > PlayerOneScore
Then Writeln(PlayerTwoName, ' wins!');
Writeln;
End;
Procedure UpdateTopScores(Var TopScores : TTopScores; PlayerName : String;
PlayerScore : Integer);
Var
LowestCurrentTopScore : Integer;
PositionOfLowestCurrentTopScore : Integer;
Count : Integer;
Begin
LowestCurrentTopScore := TopScores[1].Score;
PositionOfLowestCurrentTopScore := 1;
{Find the lowest of the current top scores}
For Count := 2 To MaxSize
Do
If TopScores[Count].Score < LowestCurrentTopScore Then Begin LowestCurrentTopScore := TopScores[Count].Score; PositionOfLowestCurrentTopScore := Count; End; If PlayerScore > LowestCurrentTopScore
Then
Begin
TopScores[PositionOfLowestCurrentTopScore].Score := PlayerScore;
TopScores[PositionOfLowestCurrentTopScore].Name := PlayerName;
Writeln('Well done ', PlayerName, ' you have one of the top scores!');
End;
End;
Procedure DisplayTopScores(TopScores : TTopScores);
Var
Count : Integer;
Begin
Writeln('The current top scores are: ');
Writeln;
For Count := 1 To MaxSize
Do Writeln(TopScores[Count].Name, ' ', TopScores[Count].Score);
Writeln;
Writeln('Press the Enter key to return to the main menu');
Readln;
End;
Procedure LoadTopScores(Var TopScores : TTopScores);
{Centres using older versions of Pascal might need to delete the line that
uses StrToInt and use the two alternative lines in braces. Permission to
make these changes does not need to be obtained from AQA/AQA Programmer.}
Var
Count : Integer;
Count2 : Integer;
{Err : Integer;}
LineFromFile : String;
ValuesOnLine : Array[1..2] Of String;
CurrentFile : Text;
Begin
Assign(CurrentFile, 'HiScores.txt');
Reset(CurrentFile);
For Count := 1 To MaxSize
Do
Begin
ValuesOnLine[1] := '';
ValuesOnLine[2] := '';
Readln(CurrentFile, LineFromFile);
Count2 := 1;
Repeat
ValuesOnLine[1] := ValuesOnLine[1] + LineFromFile[Count2];
Count2 := Count2 + 1;
Until LineFromFile[Count2] = ',';
Count2 := Count2 + 1;
Repeat
ValuesOnLine[2] := ValuesOnLine[2] + LineFromFile[Count2];
Count2 := Count2 + 1;
Until Count2 > Length(LineFromFile);
TopScores[Count].Name := ValuesOnLine[1];
TopScores[Count].Score := StrToInt(ValuesOnLine[2]);
{Val(ValuesOnLine[2],TopScores[Count].Score, Err);}
End;
Close(CurrentFile);
End;
Procedure PlayDiceGame(PlayerOneName, PlayerTwoName : String;
VirtualDiceGame : Boolean; Var TopScores : TTopScores);
Var
PlayerOut : Boolean;
CurrentPlayerScore : Integer;
AppealDieResult : Integer;
PlayerNo : Integer;
PlayerOneScore : Integer;
PlayerTwoScore : Integer;
BowlDieResult : Integer;
RunsScored : Integer;
Begin
For PlayerNo := 1 To 2
Do
Begin
CurrentPlayerScore := 0;
PlayerOut := False;
If PlayerNo = 1
Then Writeln(PlayerOneName, ' is batting')
Else Writeln(PlayerTwoName, ' is batting');
Writeln;
Writeln('Press the Enter key to continue');
Readln;
Repeat
BowlDieResult := RollBowlDie(VirtualDiceGame);
If BowlDieResult In [1..4]
Then
Begin
RunsScored := CalculateRunsScored(BowlDieResult);
DisplayRunsScored(RunsScored);
CurrentPlayerScore := CurrentPlayerScore + RunsScored;
Writeln('Your new score is: ', CurrentPlayerScore);
End;
If BowlDieResult = 5
Then Writeln('No runs scored this time. Your score is still: ',
CurrentPlayerScore);
If BowlDieResult = 6
Then
Begin
Writeln('This could be out... press the Enter key to find out.');
Readln;
AppealDieResult := RollAppealDie(VirtualDiceGame);
DisplayAppealDieResult(AppealDieResult);
If AppealDieResult >= 2
Then PlayerOut := True
Else PlayerOut := False;
End;
Writeln;
Writeln('Press the Enter key to continue');
Readln;
Until PlayerOut;
Writeln('You are out. Your final score was: ', CurrentPlayerScore);
Writeln;
Writeln('Press the Enter key to continue');
Readln;
If PlayerNo = 1
Then PlayerOneScore := CurrentPlayerScore
Else PlayerTwoScore := CurrentPlayerScore;
End;
DisplayResult(PlayerOneName, PlayerOneScore, PlayerTwoName, PlayerTwoScore);
If (PlayerOneScore >= PlayerTwoScore)
Then
Begin
UpdateTopScores(TopScores, PlayerOneName, PlayerOneScore);
UpdateTopScores(TopScores, PlayerTwoName, PlayerTwoScore);
End
Else
Begin
UpdateTopScores(TopScores, PlayerTwoName, PlayerTwoScore);
UpdateTopScores(TopScores, PlayerOneName, PlayerOneScore);
End;
Writeln;
Writeln('Press the Enter key to continue');
Readln;
End;
Begin
Randomize;
ResetTopScores(TopScores);
Write('What is player one''s name? ');
PlayerOneName := GetValidPlayerName;
Write('What is player two''s name? ');
PlayerTwoName := GetValidPlayerName;
Repeat
Repeat
DisplayMenu;
OptionSelected := GetMenuChoice;
Until OptionSelected In [1..4, 9];
Writeln;
If OptionSelected In [1..4]
Then
Case OptionSelected Of
1 : PlayDiceGame(PlayerOneName, PlayerTwoName, True, TopScores);
2 : PlayDiceGame(PlayerOneName, PlayerTwoName, False, TopScores);
3 : LoadTopScores(TopScores);
4 : DisplayTopScores(TopScores);
End;
Until OptionSelected = 9;
End.
{Skeleton Program code for the AQA COMP1 Summer 2011 examination
this code should be used in conjunction with the Preliminary Material
written by the AQA COMP1 Programmer Team developed in the
Free Pascal IDE for Win32 v1.0.10 programming environment}
{Centres using Delphi should add the compiler directive that sets
the application type to Console (other centres can ignore this
comment). Centres may also add the SysUtils library if their
version of Pascal uses this}
{Permission to make these changes to the Skeleton Program does not
need to be obtained from AQA/AQA Programmer - just remove the \ symbol from
the next line of code and remove the braces around Uses SysUtils;}
{\$APPTYPE CONSOLE}
{Uses
SysUtils;}
Const MaxSize = 4;
Type TTopScore = Record
Name : String;
Score : Integer;
End;
TTopScores = Array[1..MaxSize] Of TTopScore;
Var
TopScores : TTopScores;
PlayerOneName : String;
PlayerTwoName : String;
OptionSelected : Integer;
Procedure ResetTopScores(Var TopScores : TTopScores);
Var
Count : Integer;
Begin
For Count := 1 To MaxSize
Do
Begin
TopScores[Count].Name := '-';
TopScores[Count].Score := 0;
End;
End;
Function GetValidPlayerName : String;
Var
PlayerName : String;
Begin
Repeat
Readln(PlayerName);
If PlayerName = ''
Then Write('That was not a valid name. Please try again: ');
Until PlayerName <> '';
GetValidPlayerName := PlayerName;
End;
Procedure DisplayMenu;
Begin
Writeln;
Writeln('Dice Cricket');
Writeln;
Writeln('1. Play game version with virtual dice');
Writeln('2. Play game version with real dice');
Writeln('3. Load top scores');
Writeln('4. Display top scores');
Writeln('9. Quit');
Writeln;
End;
Function GetMenuChoice : Integer;
Var
OptionChosen : Integer;
Begin
Write('Please enter your choice: ');
Readln(OptionChosen);
If (OptionChosen < 1) Or ((OptionChosen > 4) And (OptionChosen <> 9))
Then
Begin
Writeln;
Writeln('That was not one of the allowed options. Please try again: ');
End;
GetMenuChoice := OptionChosen;
End;
Function RollBowlDie(VirtualDiceGame : Boolean) : Integer;
Var
BowlDieResult : Integer;
Begin
If VirtualDiceGame
Then BowlDieResult := Random(6) + 1
Else
Begin
Writeln('Please roll the bowling die and then enter your result.');
Writeln;
Writeln('Enter 1 if the result is a 1');
Writeln('Enter 2 if the result is a 2');
Writeln('Enter 3 if the result is a 4');
Writeln('Enter 4 if the result is a 6');
Writeln('Enter 5 if the result is a 0');
Writeln('Enter 6 if the result is OUT');
Writeln;
Write('Result: ');
Readln(BowlDieResult);
Writeln;
End;
RollBowlDie := BowlDieResult;
End;
Function CalculateRunsScored(BowlDieResult : Integer) : Integer;
Var
RunsScored : Integer;
Begin
Case BowlDieResult Of
1 : RunsScored := 1;
2 : RunsScored := 2;
3 : RunsScored := 4;
4 : RunsScored := 6;
5, 6 : RunsScored := 0;
End;
CalculateRunsScored := RunsScored;
End;
Procedure DisplayRunsScored(RunsScored : Integer);
Begin
Case RunsScored Of
1 : Writeln('You got one run!');
2 : Writeln('You got two runs!');
4 : Writeln('You got four runs!');
6 : Writeln('You got six runs!');
End;
End;
Procedure DisplayCurrentPlayerNewScore(CurrentPlayerScore : Integer);
Begin
Writeln('Your new score is: ', CurrentPlayerScore);
End;
Function RollAppealDie(VirtualDiceGame : Boolean) : Integer;
Var
AppealDieResult : Integer;
Begin
If VirtualDiceGame
Then AppealDieResult := Random(4) + 1
Else
Begin
Writeln('Please roll the appeal die and then enter your result.');
Writeln;
Writeln('Enter 1 if the result is NOT OUT');
Writeln('Enter 2 if the result is CAUGHT');
Writeln('Enter 3 if the result is LBW');
Writeln('Enter 4 if the result is BOWLED');
Writeln;
Write('Result: ');
Readln(AppealDieResult);
Writeln;
End;
RollAppealDie := AppealDieResult;
End;
Procedure DisplayAppealDieResult(AppealDieResult : Integer);
Begin
Case AppealDieResult Of
1 : Writeln('Not out!');
2 : Writeln('Caught!');
3 : Writeln('LBW!');
4 : Writeln('Bowled!');
End;
End;
Procedure DisplayResult(PlayerOneName : String; PlayerOneScore : Integer;
PlayerTwoName : String; PlayerTwoScore : Integer);
Begin
Writeln;
Writeln(PlayerOneName, ' your score was: ', PlayerOneScore);
Writeln(PlayerTwoName, ' your score was: ', PlayerTwoScore);
Writeln;
If PlayerOneScore > PlayerTwoScore
Then Writeln(PlayerOneName, ' wins!');
If PlayerTwoScore > PlayerOneScore
Then Writeln(PlayerTwoName, ' wins!');
Writeln;
End;
Procedure UpdateTopScores(Var TopScores : TTopScores; PlayerName : String;
PlayerScore : Integer);
Var
LowestCurrentTopScore : Integer;
PositionOfLowestCurrentTopScore : Integer;
Count : Integer;
Begin
LowestCurrentTopScore := TopScores[1].Score;
PositionOfLowestCurrentTopScore := 1;
{Find the lowest of the current top scores}
For Count := 2 To MaxSize
Do
If TopScores[Count].Score < LowestCurrentTopScore Then Begin LowestCurrentTopScore := TopScores[Count].Score; PositionOfLowestCurrentTopScore := Count; End; If PlayerScore > LowestCurrentTopScore
Then
Begin
TopScores[PositionOfLowestCurrentTopScore].Score := PlayerScore;
TopScores[PositionOfLowestCurrentTopScore].Name := PlayerName;
Writeln('Well done ', PlayerName, ' you have one of the top scores!');
End;
End;
Procedure DisplayTopScores(TopScores : TTopScores);
Var
Count : Integer;
Begin
Writeln('The current top scores are: ');
Writeln;
For Count := 1 To MaxSize
Do Writeln(TopScores[Count].Name, ' ', TopScores[Count].Score);
Writeln;
Writeln('Press the Enter key to return to the main menu');
Readln;
End;
Procedure LoadTopScores(Var TopScores : TTopScores);
{Centres using older versions of Pascal might need to delete the line that
uses StrToInt and use the two alternative lines in braces. Permission to
make these changes does not need to be obtained from AQA/AQA Programmer.}
Var
Count : Integer;
Count2 : Integer;
{Err : Integer;}
LineFromFile : String;
ValuesOnLine : Array[1..2] Of String;
CurrentFile : Text;
Begin
Assign(CurrentFile, 'HiScores.txt');
Reset(CurrentFile);
For Count := 1 To MaxSize
Do
Begin
ValuesOnLine[1] := '';
ValuesOnLine[2] := '';
Readln(CurrentFile, LineFromFile);
Count2 := 1;
Repeat
ValuesOnLine[1] := ValuesOnLine[1] + LineFromFile[Count2];
Count2 := Count2 + 1;
Until LineFromFile[Count2] = ',';
Count2 := Count2 + 1;
Repeat
ValuesOnLine[2] := ValuesOnLine[2] + LineFromFile[Count2];
Count2 := Count2 + 1;
Until Count2 > Length(LineFromFile);
TopScores[Count].Name := ValuesOnLine[1];
TopScores[Count].Score := StrToInt(ValuesOnLine[2]);
{Val(ValuesOnLine[2],TopScores[Count].Score, Err);}
End;
Close(CurrentFile);
End;
Procedure PlayDiceGame(PlayerOneName, PlayerTwoName : String;
VirtualDiceGame : Boolean; Var TopScores : TTopScores);
Var
PlayerOut : Boolean;
CurrentPlayerScore : Integer;
AppealDieResult : Integer;
PlayerNo : Integer;
PlayerOneScore : Integer;
PlayerTwoScore : Integer;
BowlDieResult : Integer;
RunsScored : Integer;
Begin
For PlayerNo := 1 To 2
Do
Begin
CurrentPlayerScore := 0;
PlayerOut := False;
If PlayerNo = 1
Then Writeln(PlayerOneName, ' is batting')
Else Writeln(PlayerTwoName, ' is batting');
Writeln;
Writeln('Press the Enter key to continue');
Readln;
Repeat
BowlDieResult := RollBowlDie(VirtualDiceGame);
If BowlDieResult In [1..4]
Then
Begin
RunsScored := CalculateRunsScored(BowlDieResult);
DisplayRunsScored(RunsScored);
CurrentPlayerScore := CurrentPlayerScore + RunsScored;
Writeln('Your new score is: ', CurrentPlayerScore);
End;
If BowlDieResult = 5
Then Writeln('No runs scored this time. Your score is still: ',
CurrentPlayerScore);
If BowlDieResult = 6
Then
Begin
Writeln('This could be out... press the Enter key to find out.');
Readln;
AppealDieResult := RollAppealDie(VirtualDiceGame);
DisplayAppealDieResult(AppealDieResult);
If AppealDieResult >= 2
Then PlayerOut := True
Else PlayerOut := False;
End;
Writeln;
Writeln('Press the Enter key to continue');
Readln;
Until PlayerOut;
Writeln('You are out. Your final score was: ', CurrentPlayerScore);
Writeln;
Writeln('Press the Enter key to continue');
Readln;
If PlayerNo = 1
Then PlayerOneScore := CurrentPlayerScore
Else PlayerTwoScore := CurrentPlayerScore;
End;
DisplayResult(PlayerOneName, PlayerOneScore, PlayerTwoName, PlayerTwoScore);
If (PlayerOneScore >= PlayerTwoScore)
Then
Begin
UpdateTopScores(TopScores, PlayerOneName, PlayerOneScore);
UpdateTopScores(TopScores, PlayerTwoName, PlayerTwoScore);
End
Else
Begin
UpdateTopScores(TopScores, PlayerTwoName, PlayerTwoScore);
UpdateTopScores(TopScores, PlayerOneName, PlayerOneScore);
End;
Writeln;
Writeln('Press the Enter key to continue');
Readln;
End;
Begin
Randomize;
ResetTopScores(TopScores);
Write('What is player one''s name? ');
PlayerOneName := GetValidPlayerName;
Write('What is player two''s name? ');
PlayerTwoName := GetValidPlayerName;
Repeat
Repeat
DisplayMenu;
OptionSelected := GetMenuChoice;
Until OptionSelected In [1..4, 9];
Writeln;
If OptionSelected In [1..4]
Then
Case OptionSelected Of
1 : PlayDiceGame(PlayerOneName, PlayerTwoName, True, TopScores);
2 : PlayDiceGame(PlayerOneName, PlayerTwoName, False, TopScores);
3 : LoadTopScores(TopScores);
4 : DisplayTopScores(TopScores);
End;
Until OptionSelected = 9;
End.
Monday, 23 May 2011
EAD
Instructions
• This is the Electronic Answer Document (EAD).
• Type the information needed in the boxes at the top of this page.
• Before the examination begins type in your Centre Number, Candidate
Name and Candidate Number in the footer of this EAD (not the front cover).
• Answer all questions by typing your answers into this document on screen.
You must save this document at regular intervals.
Information
• No extra time is allowed for printing and collating.
During the examination
• You may print out pages of your EAD.
• A print monitor will collect and deliver your print out to you. You must not
collect your own print out.
Exceptions
• If you experience difficulty inserting screen shots into your EAD then you may
print these separately and attach to the EAD with a reference in the correct
place in the EAD. Ensure your centre number, candidate name and candidate
number are on each sheet.
At the end of the examination
• Save for the last time and print out your EAD. A print monitor will collect and
deliver your print out to you. You must not collect your own print out. Check
that your details are in the footers of every page. You can write them in if
they are not.
• Enter your signature on the front cover when your print out is handed to you.
• Hand in all pages of this EAD to the invigilator.
Warning
• It may not be possible to credit an answer if your details are not printed on
every page as instructed above.
• This is the Electronic Answer Document (EAD).
• Type the information needed in the boxes at the top of this page.
• Before the examination begins type in your Centre Number, Candidate
Name and Candidate Number in the footer of this EAD (not the front cover).
• Answer all questions by typing your answers into this document on screen.
You must save this document at regular intervals.
Information
• No extra time is allowed for printing and collating.
During the examination
• You may print out pages of your EAD.
• A print monitor will collect and deliver your print out to you. You must not
collect your own print out.
Exceptions
• If you experience difficulty inserting screen shots into your EAD then you may
print these separately and attach to the EAD with a reference in the correct
place in the EAD. Ensure your centre number, candidate name and candidate
number are on each sheet.
At the end of the examination
• Save for the last time and print out your EAD. A print monitor will collect and
deliver your print out to you. You must not collect your own print out. Check
that your details are in the footers of every page. You can write them in if
they are not.
• Enter your signature on the front cover when your print out is handed to you.
• Hand in all pages of this EAD to the invigilator.
Warning
• It may not be possible to credit an answer if your details are not printed on
every page as instructed above.
Tuesday, 17 May 2011
Thursday, 12 May 2011
fix
1.
{Skeleton Program code for the AQA COMP1 Summer 2011 examination
2.
this code should be used in conjunction with the Preliminary Material
3.
written by the AQA COMP1 Programmer Team developed in the
4.
Free Pascal IDE for Win32 v1.0.10 programming environment}
5.
6.
{$APPTYPE CONSOLE}
7.
8.
uses
9.
SysUtils;
10.
11.
const
12.
MAXSIZE = 4;
13.
14.
type
15.
TTopScore = record
16.
Name : string; //Records the name of the player that got the high score
17.
Score : integer; //Records the score the player got
18.
end;
19.
20.
TTopScores = array[1..MaxSize] of TTopScore;
21.
22.
var
23.
TopScores : TTopScores; //?????????????????????????
24.
PlayerOneName : string; //Records Player One's name
25.
PlayerTwoName : string; //Records Player Two's name
26.
OptionSelected : integer; //Records the option selected in the menu
27.
28.
procedure ResetTopScores(var TopScores : TTopScores); //Resets the array
29.
//TopScores
30.
var
31.
Count : integer; //Stores loop number
32.
begin
33.
for Count := 1 to MaxSize do
34.
begin
35.
TopScores[Count].Name := '-'; //Resets the name of the player
36.
TopScores[Count].Score := 0; //Resets the score of the player
37.
end;
38.
end;
39.
40.
function GetValidPlayerName : string; //Checks the player name is valid
41.
var
42.
PlayerName : string; //Stores the player name
43.
begin
44.
repeat
45.
Readln(PlayerName); //Stores the inputted data as variable 'PlayerName'
46.
47.
PlayerName := Trim(PlayerName); //Trims playername of spaces
48.
49.
if (PlayerName = '') or (Length(Playername) > 20) then
50.
Write('That was not a valid name. Please try again: ');
51.
until (PlayerName <> '') and (Length(PlayerName) <= 20); 52. //Reteats an error message if the player's name is blank or over 20 53. //characters long 54. 55. GetValidPlayerName := PlayerName; //Once name is valid, stores Playername into 56. //GetValidPlayerName 57. end; 58. 59. procedure DisplayMenu; //Displays the multiple choice menu 60. begin 61. Writeln; 62. Writeln('Dice Cricket'); 63. Writeln; 64. Writeln('1. Play game version with virtual dice'); 65. Writeln('2. Play game version with real dice'); 66. Writeln('3. Load top scores'); 67. Writeln('4. Display top scores'); 68. Writeln('5. Sort top scores'); 69. Writeln('6. Save top Scores'); 70. Writeln('7. Reset Top Scores'); 71. Writeln('8. Unknown Option'); 72. Writeln('9. Quit'); 73. Writeln; 74. end; 75. 76. function GetMenuChoice : integer; //Checks the entered menu option and stores it 77. var 78. OptionChosen : integer; //Stores the option chosen in the menu 79. begin 80. Write('Please enter your choice: '); //Displays a message to enter choice 81. 82. try 83. Readln(OptionChosen); //Reads input and stores as variable OptionChosen 84. except 85. Optionchosen := 0; //If invalid data is inputted set 'Optionchosen' to 0 86. end; 87. 88. if (OptionChosen < 1) or ((OptionChosen > 7) and (OptionChosen <> 9)) then
89.
begin
90.
Writeln;
91.
Writeln('That was not one of the allowed options. Please try again: ');
92.
end; //Displays an error message if the option entered is less than one,
93.
//more than 7 and not equal to 9.
94.
95.
GetMenuChoice := OptionChosen; //Copies content of 'GetMenuChouse' to
96.
//'OptionChosen'
97.
end;
98.
99.
function RollBowlDie(VirtualDiceGame : Boolean) : integer;
100.
//Rolls dice and displays the result
101.
var
102.
BowlDieResult : integer; //Result after the dice was rolled
103.
begin
104.
if VirtualDiceGame then
105.
BowlDieResult := Random(6) + 1 //Gets random dice result and stroes as
106.
//variable 'BowlDieResult'
107.
else
108.
begin
109.
repeat
110.
Writeln('Please roll the bowling die and then enter your result.');
111.
Writeln;
112.
Writeln('Enter 1 if the result is a 1');
113.
Writeln('Enter 2 if the result is a 2');
114.
Writeln('Enter 3 if the result is a 4');
115.
Writeln('Enter 4 if the result is a 6');
116.
Writeln('Enter 5 if the result is a 0');
117.
Writeln('Enter 6 if the result is OUT');
118.
Writeln;
119.
Write('Result: ');
120.
//Options to enter what result you got
121.
try
122.
ReadLn(BowlDieResult); //Stores enteres result as 'BowlDieResult'
123.
except
124.
WriteLn;
125.
WriteLn('You must not enter a letter as a roll result!');
126.
BowlDieResult := 0; //Sets result to 0 if incorrect data is entered
127.
end;
128.
129.
until BowlDieResult in [1..6]; //Repeats until an option 1 to 6 is entered
130.
end;
131.
132.
RollBowlDie := BowlDieResult;
133.
//Stores contents of BowlDieResult into RollBowlDie
134.
end;
135.
136.
function CalculateRunsScored(BowlDieResult : integer) : integer;
137.
//Calculates the scores when different numbers are inputted
138.
139.
var
140.
RunsScored : integer; //Stores the score assigned to inputted number.
141.
begin
142.
case BowlDieResult of
143.
1 : RunsScored := 1;
144.
2 : RunsScored := 2;
145.
3 : RunsScored := 4; //Assigns scores to inputted options
146.
4 : RunsScored := 6;
147.
5, 6 : RunsScored := 0;
148.
end;
149.
150.
CalculateRunsScored := RunsScored;
151.
//Copies contents of RunsScored to CalculateRunsScored
152.
end;
153.
154.
procedure DisplayRunsScored(RunsScored : integer);
155.
//Displays the score the player got
156.
begin
157.
case RunsScored of
158.
1 : Writeln('You got one run!');
159.
2 : Writeln('You got two runs!');
160.
4 : Writeln('You got four runs!');
161.
6 : Writeln('You got six runs!');
162.
end;
163.
end;
164.
165.
procedure DisplayCurrentPlayerNewScore(CurrentPlayerScore : integer);
166.
//Displays the current players score
167.
begin
168.
Writeln('Your new score is: ', CurrentPlayerScore);
169.
end;
170.
171.
function RollAppealDie(VirtualDiceGame : Boolean) : integer;
172.
//Displays the appeal die menu and records score entered
173.
var
174.
AppealDieResult : integer; //Stores the appeal die score entered
175.
begin
176.
if VirtualDiceGame then
177.
AppealDieResult := Random(4) + 1
178.
else
179.
begin
180.
Repeat //Repeats menu till a valid number is given
181.
Writeln('Please roll the appeal die and then enter your result.');
182.
Writeln;
183.
Writeln('Enter 1 if the result is NOT OUT');
184.
Writeln('Enter 2 if the result is CAUGHT');
185.
Writeln('Enter 3 if the result is LBW');
186.
Writeln('Enter 4 if the result is BOWLED');
187.
Writeln;
188.
Write('Result: ');
189.
190.
try
191.
Readln(AppealDieResult);
192.
//Stores number entered as variable 'AppealDieResult'
193.
except //Displays an error messaage if an invalid option is inputted
194.
WriteLn('This is not one of the allowed options!');
195.
WriteLn;
196.
AppealDieResult := 0; //Sets variable AppealDieResult to 0
197.
end;
198.
199.
Until AppealDieResult in [1..4];
200.
201.
Writeln;
202.
end;
203.
204.
RollAppealDie := AppealDieResult;
205.
end;
206.
207.
procedure DisplayAppealDieResult(AppealDieResult : integer);
208.
//Displays appeal die score
209.
begin //Assigns a message to be displayed when each number is entered
210.
case AppealDieResult of
211.
1 : Writeln('Not out!');
212.
2 : Writeln('Caught!');
213.
3 : Writeln('LBW!');
214.
4 : Writeln('Bowled!');
215.
end;
216.
end;
217.
218.
procedure DisplayResult(PlayerOneName : string; PlayerOneScore : integer;
219.
PlayerTwoName : string; PlayerTwoScore : integer);
220.
//Displays players scores at end of the game
221.
begin
222.
Writeln; //Tells the player what thier score is
223.
Writeln(PlayerOneName, ' your score was: ', PlayerOneScore);
224.
Writeln(PlayerTwoName, ' your score was: ', PlayerTwoScore);
225.
Writeln;
226.
227.
//If P1's score is more than P2's score then displays this message
228.
if PlayerOneScore > PlayerTwoScore then
229.
Writeln(PlayerOneName, ' wins!');
230.
231.
//If P2's score is more than P1's score then displays this message
232.
if PlayerTwoScore > PlayerOneScore then
233.
Writeln(PlayerTwoName, ' wins!');
234.
235.
//If P2's score is equal to P1's score then displays this message
236.
if PlayerTwoScore = PlayerOneScore then
237.
Writeln(PlayerOneName, ' and ', PlayerTwoName, ' have drawn!');
238.
239.
Writeln;
240.
end;
241.
242.
procedure UpdateTopScores(var TopScores : TTopScores; PlayerName : string;
243.
PlayerScore : integer);
244.
//Calculates if the score should go on top score list
245.
var
246.
LowestCurrentTopScore : integer;
247.
//Stores the lowest current top score in saved text file
248.
PositionOfLowestCurrentTopScore : integer;
249.
//Stores the position of the lowest current top score by looking in the text
250.
//file
251.
Count : integer; //Stores loop number
252.
begin
253.
LowestCurrentTopScore := TopScores[1].Score;
254.
PositionOfLowestCurrentTopScore := 1;
255.
256.
{Find the lowest of the current top scores}
257.
for Count := 2 to MaxSize do
258.
if TopScores[Count].Score < LowestCurrentTopScore then 259. begin 260. LowestCurrentTopScore := TopScores[Count].Score; 261. 262. //Sets the score position as the loop number 263. PositionOfLowestCurrentTopScore := Count; 264. 265. end; 266. 267. //If the player score is more than the current lowest score then saves it 268. //and displays a message congratulating the player. 269. if PlayerScore > LowestCurrentTopScore then
270.
begin
271.
TopScores[PositionOfLowestCurrentTopScore].Score := PlayerScore;
272.
TopScores[PositionOfLowestCurrentTopScore].Name := PlayerName;
273.
Writeln('Well done ', PlayerName, ' you have one of the top scores!');
274.
end;
275.
end;
276.
277.
procedure SaveTopScores (TopScores : TTopScores);
278.
var
279.
Count : Integer; //Stores loop number
280.
CurrentFile : Text;
281.
//Stores the content of the current file containing high scores
282.
283.
begin
284.
Assign(CurrentFile, 'HiScores.txt'); //Selects the file to save the score
285.
Rewrite(CurrentFile);
286.
287.
//Writes the player position, name and score into the file for each loop cycle
288.
for Count := 1 to MAXSIZE do
289.
begin
290.
Write(CurrentFile, Topscores[Count].Name);
291.
Write(Currentfile, ',');
292.
WriteLn(CurrentFile, TopScores[Count].Score);
293.
end;
294.
295.
Close(CurrentFile); //Closes the text file
296.
end;
297.
298.
procedure SortTopScores (var Topscores : TTopScores);
299.
//Sorts the top scores from highest to lowest
300.
var
301.
Count : Integer; //Stores the loop number
302.
Tempscore : TTopScore; //Stores the score temporarily using array TTopScore
303.
Swapped : Boolean; //Stores weather the scors have been swapped or not.
304.
begin
305.
repeat //Sorts the score using a bubble sort. Repeats till they are in order
306.
Swapped := False;
307.
for count := 1 to (MAXSIZE -1) do
308.
if Topscores[Count].Score < Topscores[Count +1].Score then 309. begin 310. Tempscore := Topscores[Count]; 311. TopScores[Count] := Topscores[Count +1]; 312. TopScores[Count +1] := Tempscore; 313. 314. Swapped := True; 315. end; 316. until Swapped = False; 317. end; 318. 319. procedure DisplayTopScores(TopScores : TTopScores); 320. //Displays the top scores achieved in the game 321. var 322. Count : integer; //Stores number in loop sequience 323. begin 324. Writeln('The current top scores are: '); //Displays the current top scores 325. Writeln; 326. 327. //Writes the score position, name and score achieved 328. for Count := 1 to MaxSize do 329. Writeln(TopScores[Count].Name, ' ', TopScores[Count].Score); 330. 331. Writeln; 332. Writeln('Press the Enter key to return to the main menu'); 333. Readln; 334. end; 335. 336. procedure LoadTopScores(var TopScores : TTopScores); //Dont attempt 337. 338. var 339. Count : integer; 340. Count2 : integer; 341. LineFromFile : string; //Stores line of text file 342. ValuesOnLine : array[1..2] of string; //Array of high score name + position 343. CurrentFile : text; //Stores the name of the top scores file 344. begin 345. Assign(CurrentFile, 'HiScores.txt'); 346. Reset(CurrentFile); 347. 348. for Count := 1 to MaxSize do 349. begin 350. ValuesOnLine[1] := ''; 351. ValuesOnLine[2] := ''; 352. Readln(CurrentFile, LineFromFile); 353. Count2 := 1; 354. 355. repeat 356. ValuesOnLine[1] := ValuesOnLine[1] + LineFromFile[Count2]; 357. Count2 := Count2 + 1; 358. until LineFromFile[Count2] = ','; 359. 360. Count2 := Count2 + 1; 361. 362. repeat 363. ValuesOnLine[2] := ValuesOnLine[2] + LineFromFile[Count2]; 364. Count2 := Count2 + 1; 365. until Count2 > Length(LineFromFile);
366.
367.
TopScores[Count].Name := ValuesOnLine[1];
368.
TopScores[Count].Score := StrToInt(ValuesOnLine[2]);
369.
end;
370.
371.
Close(CurrentFile);
372.
end;
373.
374.
procedure PlayDiceGame(PlayerOneName, PlayerTwoName : string; //Dont attempt
375.
VirtualDiceGame : Boolean; var TopScores : TTopScores);
376.
377.
var
378.
PlayerOut : Boolean; //Stores whether the player is out or not
379.
CurrentPlayerScore : integer; //Stores the current players score
380.
AppealDieResult : integer; //Stores the result of appeal die roll
381.
PlayerNo : integer; //Used to control selected player
382.
PlayerOneScore : integer; //Stores player one's score
383.
PlayerTwoScore : integer; //Stores player two's score
384.
BowlDieResult : integer; //Stores result of the bowl die
385.
RunsScored : integer; //Stores the score of runs during the game
386.
begin
387.
for PlayerNo := 1 to 2 do
388.
begin
389.
CurrentPlayerScore := 0;
390.
PlayerOut := False;
391.
392.
if PlayerNo = 1 then
393.
Writeln(PlayerOneName, ' is batting')
394.
else
395.
Writeln(PlayerTwoName, ' is batting');
396.
397.
Writeln;
398.
Writeln('Press the Enter key to continue');
399.
Readln;
400.
401.
repeat
402.
BowlDieResult := RollBowlDie(VirtualDiceGame);
403.
404.
if BowlDieResult in [1..4] then
405.
begin
406.
RunsScored := CalculateRunsScored(BowlDieResult);
407.
DisplayRunsScored(RunsScored);
408.
CurrentPlayerScore := CurrentPlayerScore + RunsScored;
409.
Writeln('Your new score is: ', CurrentPlayerScore);
410.
end;
411.
412.
if BowlDieResult = 5 then
413.
Writeln('No runs scored this time. Your score is still: ',
414.
CurrentPlayerScore);
415.
416.
if BowlDieResult = 6 then
417.
begin
418.
Writeln('This could be out... press the Enter key to find out.');
419.
Readln;
420.
AppealDieResult := RollAppealDie(VirtualDiceGame);
421.
DisplayAppealDieResult(AppealDieResult);
422.
423.
if AppealDieResult >= 2 then
424.
PlayerOut := True
425.
else
426.
PlayerOut := False;
427.
end;
428.
429.
Writeln;
430.
Writeln('Press the Enter key to continue');
431.
Readln;
432.
until PlayerOut;
433.
434.
Writeln('You are out. Your final score was: ', CurrentPlayerScore);
435.
Writeln;
436.
Writeln('Press the Enter key to continue');
437.
Readln;
438.
439.
if PlayerNo = 1 then
440.
PlayerOneScore := CurrentPlayerScore
441.
else
442.
PlayerTwoScore := CurrentPlayerScore;
443.
end;
444.
445.
DisplayResult(PlayerOneName, PlayerOneScore, PlayerTwoName, PlayerTwoScore);
446.
447.
if (PlayerOneScore >= PlayerTwoScore) then
448.
begin
449.
UpdateTopScores(TopScores, PlayerOneName, PlayerOneScore);
450.
UpdateTopScores(TopScores, PlayerTwoName, PlayerTwoScore);
451.
end else
452.
begin
453.
UpdateTopScores(TopScores, PlayerTwoName, PlayerTwoScore);
454.
UpdateTopScores(TopScores, PlayerOneName, PlayerOneScore);
455.
end;
456.
457.
Writeln;
458.
Writeln('Press the Enter key to continue');
459.
Readln;
460.
end;
461.
462.
begin
463.
Randomize;
464.
ResetTopScores(TopScores);
465.
466.
repeat
467.
Write('What is player one''s name? '); //Asks player one for thier name
468.
PlayerOneName := GetValidPlayerName; //Checks the name is valid
469.
Write('What is player two''s name? '); //Asks player two for thier name
470.
PlayerTwoName := GetValidPlayerName; //Checks the name is valid
471.
472.
if PlayerOneName = PlayerTwoName then //Checks the names are not the same
473.
WriteLn('Player One and Player Two cannot share names!');
474.
until PlayerOneName <> PlayerTwoName;
475.
476.
repeat //Displays menu and repeats until an option between 1 and 9 is entered
477.
repeat
478.
DisplayMenu;
479.
OptionSelected := GetMenuChoice;
480.
until OptionSelected in [1..9];
481.
Writeln;
482.
483.
//Assigns a procedure or function to each number inputted
484.
if OptionSelected in [1..7] then
485.
case OptionSelected of
486.
1 : PlayDiceGame(PlayerOneName, PlayerTwoName, True, TopScores);
487.
2 : PlayDiceGame(PlayerOneName, PlayerTwoName, False, TopScores);
488.
3 : LoadTopScores(TopScores);
489.
4 : DisplayTopScores(TopScores);
490.
5 : SortTopScores (TopScores);
491.
6 : SaveTopScores (TopScores);
492.
7 : ResetTopScores (TopScores)
493.
end;
494.
until OptionSelected = 9;
495.
end.
{Skeleton Program code for the AQA COMP1 Summer 2011 examination
2.
this code should be used in conjunction with the Preliminary Material
3.
written by the AQA COMP1 Programmer Team developed in the
4.
Free Pascal IDE for Win32 v1.0.10 programming environment}
5.
6.
{$APPTYPE CONSOLE}
7.
8.
uses
9.
SysUtils;
10.
11.
const
12.
MAXSIZE = 4;
13.
14.
type
15.
TTopScore = record
16.
Name : string; //Records the name of the player that got the high score
17.
Score : integer; //Records the score the player got
18.
end;
19.
20.
TTopScores = array[1..MaxSize] of TTopScore;
21.
22.
var
23.
TopScores : TTopScores; //?????????????????????????
24.
PlayerOneName : string; //Records Player One's name
25.
PlayerTwoName : string; //Records Player Two's name
26.
OptionSelected : integer; //Records the option selected in the menu
27.
28.
procedure ResetTopScores(var TopScores : TTopScores); //Resets the array
29.
//TopScores
30.
var
31.
Count : integer; //Stores loop number
32.
begin
33.
for Count := 1 to MaxSize do
34.
begin
35.
TopScores[Count].Name := '-'; //Resets the name of the player
36.
TopScores[Count].Score := 0; //Resets the score of the player
37.
end;
38.
end;
39.
40.
function GetValidPlayerName : string; //Checks the player name is valid
41.
var
42.
PlayerName : string; //Stores the player name
43.
begin
44.
repeat
45.
Readln(PlayerName); //Stores the inputted data as variable 'PlayerName'
46.
47.
PlayerName := Trim(PlayerName); //Trims playername of spaces
48.
49.
if (PlayerName = '') or (Length(Playername) > 20) then
50.
Write('That was not a valid name. Please try again: ');
51.
until (PlayerName <> '') and (Length(PlayerName) <= 20); 52. //Reteats an error message if the player's name is blank or over 20 53. //characters long 54. 55. GetValidPlayerName := PlayerName; //Once name is valid, stores Playername into 56. //GetValidPlayerName 57. end; 58. 59. procedure DisplayMenu; //Displays the multiple choice menu 60. begin 61. Writeln; 62. Writeln('Dice Cricket'); 63. Writeln; 64. Writeln('1. Play game version with virtual dice'); 65. Writeln('2. Play game version with real dice'); 66. Writeln('3. Load top scores'); 67. Writeln('4. Display top scores'); 68. Writeln('5. Sort top scores'); 69. Writeln('6. Save top Scores'); 70. Writeln('7. Reset Top Scores'); 71. Writeln('8. Unknown Option'); 72. Writeln('9. Quit'); 73. Writeln; 74. end; 75. 76. function GetMenuChoice : integer; //Checks the entered menu option and stores it 77. var 78. OptionChosen : integer; //Stores the option chosen in the menu 79. begin 80. Write('Please enter your choice: '); //Displays a message to enter choice 81. 82. try 83. Readln(OptionChosen); //Reads input and stores as variable OptionChosen 84. except 85. Optionchosen := 0; //If invalid data is inputted set 'Optionchosen' to 0 86. end; 87. 88. if (OptionChosen < 1) or ((OptionChosen > 7) and (OptionChosen <> 9)) then
89.
begin
90.
Writeln;
91.
Writeln('That was not one of the allowed options. Please try again: ');
92.
end; //Displays an error message if the option entered is less than one,
93.
//more than 7 and not equal to 9.
94.
95.
GetMenuChoice := OptionChosen; //Copies content of 'GetMenuChouse' to
96.
//'OptionChosen'
97.
end;
98.
99.
function RollBowlDie(VirtualDiceGame : Boolean) : integer;
100.
//Rolls dice and displays the result
101.
var
102.
BowlDieResult : integer; //Result after the dice was rolled
103.
begin
104.
if VirtualDiceGame then
105.
BowlDieResult := Random(6) + 1 //Gets random dice result and stroes as
106.
//variable 'BowlDieResult'
107.
else
108.
begin
109.
repeat
110.
Writeln('Please roll the bowling die and then enter your result.');
111.
Writeln;
112.
Writeln('Enter 1 if the result is a 1');
113.
Writeln('Enter 2 if the result is a 2');
114.
Writeln('Enter 3 if the result is a 4');
115.
Writeln('Enter 4 if the result is a 6');
116.
Writeln('Enter 5 if the result is a 0');
117.
Writeln('Enter 6 if the result is OUT');
118.
Writeln;
119.
Write('Result: ');
120.
//Options to enter what result you got
121.
try
122.
ReadLn(BowlDieResult); //Stores enteres result as 'BowlDieResult'
123.
except
124.
WriteLn;
125.
WriteLn('You must not enter a letter as a roll result!');
126.
BowlDieResult := 0; //Sets result to 0 if incorrect data is entered
127.
end;
128.
129.
until BowlDieResult in [1..6]; //Repeats until an option 1 to 6 is entered
130.
end;
131.
132.
RollBowlDie := BowlDieResult;
133.
//Stores contents of BowlDieResult into RollBowlDie
134.
end;
135.
136.
function CalculateRunsScored(BowlDieResult : integer) : integer;
137.
//Calculates the scores when different numbers are inputted
138.
139.
var
140.
RunsScored : integer; //Stores the score assigned to inputted number.
141.
begin
142.
case BowlDieResult of
143.
1 : RunsScored := 1;
144.
2 : RunsScored := 2;
145.
3 : RunsScored := 4; //Assigns scores to inputted options
146.
4 : RunsScored := 6;
147.
5, 6 : RunsScored := 0;
148.
end;
149.
150.
CalculateRunsScored := RunsScored;
151.
//Copies contents of RunsScored to CalculateRunsScored
152.
end;
153.
154.
procedure DisplayRunsScored(RunsScored : integer);
155.
//Displays the score the player got
156.
begin
157.
case RunsScored of
158.
1 : Writeln('You got one run!');
159.
2 : Writeln('You got two runs!');
160.
4 : Writeln('You got four runs!');
161.
6 : Writeln('You got six runs!');
162.
end;
163.
end;
164.
165.
procedure DisplayCurrentPlayerNewScore(CurrentPlayerScore : integer);
166.
//Displays the current players score
167.
begin
168.
Writeln('Your new score is: ', CurrentPlayerScore);
169.
end;
170.
171.
function RollAppealDie(VirtualDiceGame : Boolean) : integer;
172.
//Displays the appeal die menu and records score entered
173.
var
174.
AppealDieResult : integer; //Stores the appeal die score entered
175.
begin
176.
if VirtualDiceGame then
177.
AppealDieResult := Random(4) + 1
178.
else
179.
begin
180.
Repeat //Repeats menu till a valid number is given
181.
Writeln('Please roll the appeal die and then enter your result.');
182.
Writeln;
183.
Writeln('Enter 1 if the result is NOT OUT');
184.
Writeln('Enter 2 if the result is CAUGHT');
185.
Writeln('Enter 3 if the result is LBW');
186.
Writeln('Enter 4 if the result is BOWLED');
187.
Writeln;
188.
Write('Result: ');
189.
190.
try
191.
Readln(AppealDieResult);
192.
//Stores number entered as variable 'AppealDieResult'
193.
except //Displays an error messaage if an invalid option is inputted
194.
WriteLn('This is not one of the allowed options!');
195.
WriteLn;
196.
AppealDieResult := 0; //Sets variable AppealDieResult to 0
197.
end;
198.
199.
Until AppealDieResult in [1..4];
200.
201.
Writeln;
202.
end;
203.
204.
RollAppealDie := AppealDieResult;
205.
end;
206.
207.
procedure DisplayAppealDieResult(AppealDieResult : integer);
208.
//Displays appeal die score
209.
begin //Assigns a message to be displayed when each number is entered
210.
case AppealDieResult of
211.
1 : Writeln('Not out!');
212.
2 : Writeln('Caught!');
213.
3 : Writeln('LBW!');
214.
4 : Writeln('Bowled!');
215.
end;
216.
end;
217.
218.
procedure DisplayResult(PlayerOneName : string; PlayerOneScore : integer;
219.
PlayerTwoName : string; PlayerTwoScore : integer);
220.
//Displays players scores at end of the game
221.
begin
222.
Writeln; //Tells the player what thier score is
223.
Writeln(PlayerOneName, ' your score was: ', PlayerOneScore);
224.
Writeln(PlayerTwoName, ' your score was: ', PlayerTwoScore);
225.
Writeln;
226.
227.
//If P1's score is more than P2's score then displays this message
228.
if PlayerOneScore > PlayerTwoScore then
229.
Writeln(PlayerOneName, ' wins!');
230.
231.
//If P2's score is more than P1's score then displays this message
232.
if PlayerTwoScore > PlayerOneScore then
233.
Writeln(PlayerTwoName, ' wins!');
234.
235.
//If P2's score is equal to P1's score then displays this message
236.
if PlayerTwoScore = PlayerOneScore then
237.
Writeln(PlayerOneName, ' and ', PlayerTwoName, ' have drawn!');
238.
239.
Writeln;
240.
end;
241.
242.
procedure UpdateTopScores(var TopScores : TTopScores; PlayerName : string;
243.
PlayerScore : integer);
244.
//Calculates if the score should go on top score list
245.
var
246.
LowestCurrentTopScore : integer;
247.
//Stores the lowest current top score in saved text file
248.
PositionOfLowestCurrentTopScore : integer;
249.
//Stores the position of the lowest current top score by looking in the text
250.
//file
251.
Count : integer; //Stores loop number
252.
begin
253.
LowestCurrentTopScore := TopScores[1].Score;
254.
PositionOfLowestCurrentTopScore := 1;
255.
256.
{Find the lowest of the current top scores}
257.
for Count := 2 to MaxSize do
258.
if TopScores[Count].Score < LowestCurrentTopScore then 259. begin 260. LowestCurrentTopScore := TopScores[Count].Score; 261. 262. //Sets the score position as the loop number 263. PositionOfLowestCurrentTopScore := Count; 264. 265. end; 266. 267. //If the player score is more than the current lowest score then saves it 268. //and displays a message congratulating the player. 269. if PlayerScore > LowestCurrentTopScore then
270.
begin
271.
TopScores[PositionOfLowestCurrentTopScore].Score := PlayerScore;
272.
TopScores[PositionOfLowestCurrentTopScore].Name := PlayerName;
273.
Writeln('Well done ', PlayerName, ' you have one of the top scores!');
274.
end;
275.
end;
276.
277.
procedure SaveTopScores (TopScores : TTopScores);
278.
var
279.
Count : Integer; //Stores loop number
280.
CurrentFile : Text;
281.
//Stores the content of the current file containing high scores
282.
283.
begin
284.
Assign(CurrentFile, 'HiScores.txt'); //Selects the file to save the score
285.
Rewrite(CurrentFile);
286.
287.
//Writes the player position, name and score into the file for each loop cycle
288.
for Count := 1 to MAXSIZE do
289.
begin
290.
Write(CurrentFile, Topscores[Count].Name);
291.
Write(Currentfile, ',');
292.
WriteLn(CurrentFile, TopScores[Count].Score);
293.
end;
294.
295.
Close(CurrentFile); //Closes the text file
296.
end;
297.
298.
procedure SortTopScores (var Topscores : TTopScores);
299.
//Sorts the top scores from highest to lowest
300.
var
301.
Count : Integer; //Stores the loop number
302.
Tempscore : TTopScore; //Stores the score temporarily using array TTopScore
303.
Swapped : Boolean; //Stores weather the scors have been swapped or not.
304.
begin
305.
repeat //Sorts the score using a bubble sort. Repeats till they are in order
306.
Swapped := False;
307.
for count := 1 to (MAXSIZE -1) do
308.
if Topscores[Count].Score < Topscores[Count +1].Score then 309. begin 310. Tempscore := Topscores[Count]; 311. TopScores[Count] := Topscores[Count +1]; 312. TopScores[Count +1] := Tempscore; 313. 314. Swapped := True; 315. end; 316. until Swapped = False; 317. end; 318. 319. procedure DisplayTopScores(TopScores : TTopScores); 320. //Displays the top scores achieved in the game 321. var 322. Count : integer; //Stores number in loop sequience 323. begin 324. Writeln('The current top scores are: '); //Displays the current top scores 325. Writeln; 326. 327. //Writes the score position, name and score achieved 328. for Count := 1 to MaxSize do 329. Writeln(TopScores[Count].Name, ' ', TopScores[Count].Score); 330. 331. Writeln; 332. Writeln('Press the Enter key to return to the main menu'); 333. Readln; 334. end; 335. 336. procedure LoadTopScores(var TopScores : TTopScores); //Dont attempt 337. 338. var 339. Count : integer; 340. Count2 : integer; 341. LineFromFile : string; //Stores line of text file 342. ValuesOnLine : array[1..2] of string; //Array of high score name + position 343. CurrentFile : text; //Stores the name of the top scores file 344. begin 345. Assign(CurrentFile, 'HiScores.txt'); 346. Reset(CurrentFile); 347. 348. for Count := 1 to MaxSize do 349. begin 350. ValuesOnLine[1] := ''; 351. ValuesOnLine[2] := ''; 352. Readln(CurrentFile, LineFromFile); 353. Count2 := 1; 354. 355. repeat 356. ValuesOnLine[1] := ValuesOnLine[1] + LineFromFile[Count2]; 357. Count2 := Count2 + 1; 358. until LineFromFile[Count2] = ','; 359. 360. Count2 := Count2 + 1; 361. 362. repeat 363. ValuesOnLine[2] := ValuesOnLine[2] + LineFromFile[Count2]; 364. Count2 := Count2 + 1; 365. until Count2 > Length(LineFromFile);
366.
367.
TopScores[Count].Name := ValuesOnLine[1];
368.
TopScores[Count].Score := StrToInt(ValuesOnLine[2]);
369.
end;
370.
371.
Close(CurrentFile);
372.
end;
373.
374.
procedure PlayDiceGame(PlayerOneName, PlayerTwoName : string; //Dont attempt
375.
VirtualDiceGame : Boolean; var TopScores : TTopScores);
376.
377.
var
378.
PlayerOut : Boolean; //Stores whether the player is out or not
379.
CurrentPlayerScore : integer; //Stores the current players score
380.
AppealDieResult : integer; //Stores the result of appeal die roll
381.
PlayerNo : integer; //Used to control selected player
382.
PlayerOneScore : integer; //Stores player one's score
383.
PlayerTwoScore : integer; //Stores player two's score
384.
BowlDieResult : integer; //Stores result of the bowl die
385.
RunsScored : integer; //Stores the score of runs during the game
386.
begin
387.
for PlayerNo := 1 to 2 do
388.
begin
389.
CurrentPlayerScore := 0;
390.
PlayerOut := False;
391.
392.
if PlayerNo = 1 then
393.
Writeln(PlayerOneName, ' is batting')
394.
else
395.
Writeln(PlayerTwoName, ' is batting');
396.
397.
Writeln;
398.
Writeln('Press the Enter key to continue');
399.
Readln;
400.
401.
repeat
402.
BowlDieResult := RollBowlDie(VirtualDiceGame);
403.
404.
if BowlDieResult in [1..4] then
405.
begin
406.
RunsScored := CalculateRunsScored(BowlDieResult);
407.
DisplayRunsScored(RunsScored);
408.
CurrentPlayerScore := CurrentPlayerScore + RunsScored;
409.
Writeln('Your new score is: ', CurrentPlayerScore);
410.
end;
411.
412.
if BowlDieResult = 5 then
413.
Writeln('No runs scored this time. Your score is still: ',
414.
CurrentPlayerScore);
415.
416.
if BowlDieResult = 6 then
417.
begin
418.
Writeln('This could be out... press the Enter key to find out.');
419.
Readln;
420.
AppealDieResult := RollAppealDie(VirtualDiceGame);
421.
DisplayAppealDieResult(AppealDieResult);
422.
423.
if AppealDieResult >= 2 then
424.
PlayerOut := True
425.
else
426.
PlayerOut := False;
427.
end;
428.
429.
Writeln;
430.
Writeln('Press the Enter key to continue');
431.
Readln;
432.
until PlayerOut;
433.
434.
Writeln('You are out. Your final score was: ', CurrentPlayerScore);
435.
Writeln;
436.
Writeln('Press the Enter key to continue');
437.
Readln;
438.
439.
if PlayerNo = 1 then
440.
PlayerOneScore := CurrentPlayerScore
441.
else
442.
PlayerTwoScore := CurrentPlayerScore;
443.
end;
444.
445.
DisplayResult(PlayerOneName, PlayerOneScore, PlayerTwoName, PlayerTwoScore);
446.
447.
if (PlayerOneScore >= PlayerTwoScore) then
448.
begin
449.
UpdateTopScores(TopScores, PlayerOneName, PlayerOneScore);
450.
UpdateTopScores(TopScores, PlayerTwoName, PlayerTwoScore);
451.
end else
452.
begin
453.
UpdateTopScores(TopScores, PlayerTwoName, PlayerTwoScore);
454.
UpdateTopScores(TopScores, PlayerOneName, PlayerOneScore);
455.
end;
456.
457.
Writeln;
458.
Writeln('Press the Enter key to continue');
459.
Readln;
460.
end;
461.
462.
begin
463.
Randomize;
464.
ResetTopScores(TopScores);
465.
466.
repeat
467.
Write('What is player one''s name? '); //Asks player one for thier name
468.
PlayerOneName := GetValidPlayerName; //Checks the name is valid
469.
Write('What is player two''s name? '); //Asks player two for thier name
470.
PlayerTwoName := GetValidPlayerName; //Checks the name is valid
471.
472.
if PlayerOneName = PlayerTwoName then //Checks the names are not the same
473.
WriteLn('Player One and Player Two cannot share names!');
474.
until PlayerOneName <> PlayerTwoName;
475.
476.
repeat //Displays menu and repeats until an option between 1 and 9 is entered
477.
repeat
478.
DisplayMenu;
479.
OptionSelected := GetMenuChoice;
480.
until OptionSelected in [1..9];
481.
Writeln;
482.
483.
//Assigns a procedure or function to each number inputted
484.
if OptionSelected in [1..7] then
485.
case OptionSelected of
486.
1 : PlayDiceGame(PlayerOneName, PlayerTwoName, True, TopScores);
487.
2 : PlayDiceGame(PlayerOneName, PlayerTwoName, False, TopScores);
488.
3 : LoadTopScores(TopScores);
489.
4 : DisplayTopScores(TopScores);
490.
5 : SortTopScores (TopScores);
491.
6 : SaveTopScores (TopScores);
492.
7 : ResetTopScores (TopScores)
493.
end;
494.
until OptionSelected = 9;
495.
end.
Thursday, 5 May 2011
file saving
Program Lesson9_Program2;
Var FName, Txt : String[10];
UserFile : Text;
Begin
FName := 'Textfile';
Assign(UserFile,'C:\'+FName+'.txt'); {assign a text file}
Rewrite(UserFile); {open the file 'fname' for writing}
Writeln(UserFile,'PASCAL PROGRAMMING');
Writeln(UserFile,'if you did not understand something,');
Writeln(UserFile,'please send me an email to:');
Writeln(UserFile,'victorsaliba@hotmail.com');
Writeln('Write some text to the file:');
Readln(Txt);
Writeln(UserFile,'');
Writeln(UserFile,'The user entered this text:');
Writeln(UserFile,Txt);
Close(UserFile);
End.
Sub saveTopScores(ByRef TopScores() As TTopScore)
Dim file As New System.IO.StreamWriter("HiScores.txt")For i = 1 To MaxSize
file.WriteLine(TopScores(i).Name + "," + TopScores(i)
.Score.ToString())
Next i
file.Close()
End Sub
Tuesday, 3 May 2011
more
Our teachers said we'd be adding in functionality, so i'm guessing the more players is a good idea. checking a user input is valid (in the real dice mode, from the code i think i recall there not being a check to see if the user input was > 0 or < 6. Also, 4 sided dice? someone pointed out, can't remember completely. I'll take a look tomorrow if i'm free
- Increase the top scores to more than 4 players (MaxSize)
- Saving the top scores to a file
- Validating various data entries e.g. name to 20 characters length
- Resetting the hiscores using the function already written in the code
One thing that my class has been thinking about is that it may ask you to write the highscores to a text file
- Currently it just saves them locally, and when you reload the program it clears the highscores ( ResetTopScores() )
- Advice. "FileStream.Writer()" -> I will add the whole writing to a text file code tomorrow
Another thing it may ask us to do is add more players possibly?
So make it so you can have 3 or 4 players playing at one time...not hard...Just add "Dim PlayerThreeName As String" and all the other stuff that has PlayerOne and PlayerTwo
Like jsmith said in the first post, it could ask us to make it so they can choose the amount of hiscores it saves. Quite easy really. In the "Sub Main()" just add
Console.Write("How many hiscores would you like to save: ")
MaxSize = Console.Readline()
If I get any more ideas from classmates then I will post it here.
I will also add the ways to add my ideas
Post any questions on the code that you have to add...I will look into it...write it...and post it for you
This will be fun
- Increase the top scores to more than 4 players (MaxSize)
- Saving the top scores to a file
- Validating various data entries e.g. name to 20 characters length
- Resetting the hiscores using the function already written in the code
One thing that my class has been thinking about is that it may ask you to write the highscores to a text file
- Currently it just saves them locally, and when you reload the program it clears the highscores ( ResetTopScores() )
- Advice. "FileStream.Writer()" -> I will add the whole writing to a text file code tomorrow
Another thing it may ask us to do is add more players possibly?
So make it so you can have 3 or 4 players playing at one time...not hard...Just add "Dim PlayerThreeName As String" and all the other stuff that has PlayerOne and PlayerTwo
Like jsmith said in the first post, it could ask us to make it so they can choose the amount of hiscores it saves. Quite easy really. In the "Sub Main()" just add
Console.Write("How many hiscores would you like to save: ")
MaxSize = Console.Readline()
If I get any more ideas from classmates then I will post it here.
I will also add the ways to add my ideas
Post any questions on the code that you have to add...I will look into it...write it...and post it for you
This will be fun
dice cricket
Dice Cricket Game
The Skeleton Program is a program for the two-player game of Dice Cricket. Dice Cricket is a simple game based on the sport of cricket. When playing Dice Cricket, players use two special dice called the Bowl Die1 and the Appeal Die.
The Bowl Die is a 6-sided die where, instead of the numbers 1 to 6, the sides have "0", "1", "2", "4","6", and "OUT" written on them. The player whose turn it is rolls the Bowl Die. If the result is one of the numeric values then this is added to their score (the number of runs they have got) and they continue to roll the Bowl Die until "OUT" is rolled. If the result is "OUT" then they roll the Appeal Die to see what happens next.
The Appeal Die is a 4-sided die where the numbers 1 to 4 have been replaced with different values. The values on the Appeal Die are "NOT OUT", "CAUGHT", "LBW" and "BOWLED". If when a player rolls the Appeal Die they get a result of "NOT OUT" then their turn continues and they can roll the Bowl Die again. Any other result on the Appeal Die means that they are out and their turn finishes. When player one's turn is over player two has their turn. When player two is out the two players' scores are compared and the winner is the one with the highest score.
In the Skeleton Program players can choose to play with real dice or virtual dice. If real dice are used then the two players have actually got a Bowl Die and an Appeal Die and enter the values they roll into the program. If virtual dice are used then the program simulates the rolling of the Bowl Die and Appeal Die by generating random numbers. There are 6 different values on the Bowl Die and 4 different values on the Appeal Die.
The Skeleton Program also stores the names and scores of the four highest results obtained by players playing Dice Cricket. After each game the scores of the two players are compared with the previous top scores. The winner's details, if their score is higher, will replace those of the player with the lowest top score. The loser's details, if their score is high enough, could also replace one of the previous player’s details. If the winning player’s score is the same as the lowest top score their details are not stored. If a game is drawn with a score lower than three of the top four scores then only player one’s details will be stored.
In the Skeleton Program there is a menu containing five options:
Play game version with virtual dice
Play game version with real dice
Load top scores
Display top scores
Quit
If the user chooses to load top scores from a file then the file HiScores.txt is opened and the contents placed in the array TopScores.
The Data File
Ricky,12
Sachin,45
Brian,2
Monty,1
The data file HiScores.txt will be available to you at the start of the examination.
more
1. Validate Get Menu choice so it does not crash
2. Load Top Scores on start up
3. Validate manual entry: AppealDie and BowlDie entries (Validation + CaseElse)
4. Add extra scoring rules: as mentioned in pre-release (DONT GET HOW)
5. Write scores to disk (array) as CSV
Other possible:
- Change maximum players
- Change scores on disk to more (increase the value of maxsize)
- Make maxsize local and pass it
2. Load Top Scores on start up
3. Validate manual entry: AppealDie and BowlDie entries (Validation + CaseElse)
4. Add extra scoring rules: as mentioned in pre-release (DONT GET HOW)
5. Write scores to disk (array) as CSV
Other possible:
- Change maximum players
- Change scores on disk to more (increase the value of maxsize)
- Make maxsize local and pass it
more programming
It is possible that you may be asked to write a save routine, possibly as an additional menu option. If you search this site there are already several threads about this exam and lots of suggestions as to what may or may not come up on the exam.
Thinking about programming problems
This may be what you are asked for ??
Can someone confirm what is meant to happen to the function of saving csv?- you need to know how to do this
If you load topscores there are four players. Now if two new people play and get two new highscores its meant to replace the lowest scores on the topscores file right?
But is it meant to replace it temporarily just in while your playing the game?
for example say if ur playing and get 2 topscores during the game it will replace the lowest topscores, but once you quit the game those topscores are gone.
Now i want to know do you need to replace the new topscores on the actual textfile?? - you must be able to do this ??
like i said before if i get a topscore and quit the game, is it possible to store the new topscores on the actual hiscores.txt file??
so when you start a new game next time and load the topscores it will have you in the file?
Does that need to happen?
If so how??
Benjamin - you need to complete
Can someone confirm what is meant to happen to the function of saving csv?- you need to know how to do this
If you load topscores there are four players. Now if two new people play and get two new highscores its meant to replace the lowest scores on the topscores file right?
But is it meant to replace it temporarily just in while your playing the game?
for example say if ur playing and get 2 topscores during the game it will replace the lowest topscores, but once you quit the game those topscores are gone.
Now i want to know do you need to replace the new topscores on the actual textfile?? - you must be able to do this ??
like i said before if i get a topscore and quit the game, is it possible to store the new topscores on the actual hiscores.txt file??
so when you start a new game next time and load the topscores it will have you in the file?
Does that need to happen?
If so how??
Benjamin - you need to complete
Monday, 18 April 2011
Monday, 28 March 2011
add to cricket program
If " OUT" batsman has the right to refer the decision to an third umpire and the and the this could overturn the decision. The batsman has only one referral
You have to add this into your program.
You have to add this into your program.
Tuesday, 22 March 2011
Thursday, 17 March 2011
advice
General Certificate of Education
Advanced Subsidiary Examination
June 2011
Computing COMP1/AD
Unit 1 Problem Solving, Programming, Data Representation
and Practical Exercise
Advice on using the COMP1 Electronic Answer Document
1 (EAD)Centres may give a copy of this Advice document to candidates at any time, including during
the examination.
The Electronic Answer Document is provided by AQA to centres as a Microsoft
document. Candidates must type their answers to the COMP1 question paper into the EAD
on-screen.
® Word (2003)1
Taken from Appendix 1 of the Teachers' Notes (COMP1/TN)M/Jun11/COMP1/Advice
COMP1/Advice2
M/Jun11/COMP1/Advice
A In advance of the examination
subsequent pages they may use) may be completed in advance of the examination and
saved to the individual candidate’s user area of the secure network. If candidates are
to complete the EAD in this way, the centre is responsible for ensuring that no other
information is typed into the EAD in advance of the examination.
Candidates’ details on the front cover and in the footer of page 2 (and therefore any
– where they are to save the work they do during the examination
– what file format to use
– the name format in which to save their work
– about the role of the Print Monitor
– how to re-size a screen capture (screen dump/screen shot) to ensure the examiner
can read it with ease.
Centres must ensure that candidates know:
but centres are strongly encouraged to ensure that their candidates are familiar with the
EAD before the examination. Candidates are free to practice using
examination.
The COMP1 examination is not a test of candidates’ typing or word processing skills,a copy of it before theB What to do if the EAD fails for any reason
inappropriate places, check whether the margin size on the default printer needs
reducing. The margins used for the original Electronic Answer Document are: Top - 2 cm;
Bottom - 2.5 cm; Left 2 cm; Right - 2 cm.
When printing the Electronic Answer Document, if it appears to have page breaks in
printed out.
If your centre’s word processing software is not compatible with Microsoft
centres should ask candidates to type their answers into a blank document ensuring that the
Do not be concerned if the AQA logo does not appear or is mis-shapen when the EAD is® Word (2003),front page prominently
– GCE Computing, COMP1 examination, Summer + year of examination
– Centre Number
– Candidate Name
– Candidate Number
– at the end of the examination, the candidate’s signature.
carries the following information:Each subsequent page must also
in a footer (either typed in or written by hand):
– Centre Number
– Candidate Name
– Candidate Number.
Each answer
a staple or tie in the top left hand corner.
carry the following personal information of the candidatemust be clearly numbered. All pages must be securely attached together withTurn over
3
M/Jun11/COMP1/Advice
C Using screen captures (screen dumps/shots) in the EAD
Paste the screen capture into a cell of the EAD.
1. select the cell in which the screen capture appears
2. double click to bring up the picture editor dialogue box called ‘Format Picture’
3. select the ‘Layout’ tab
4. select the ‘In Front of Text option’
5. press ‘OK’ and go back to your EAD cell
6. expand the cell in the EAD by pressing the return key on your keyboard enough
times until the cell is big enough to show the whole screen capture. Crop the screen
capture if necessary, but ensure the examiner will be able to read it easily.
If only part of the capture shows up in the cell:
1. paste any screen capture into a blank Word document and save it using a suitable
filename
2. print this document with a footer containing the Centre Number, Candidate Name and
Candidate Number (or write them on by hand after printing)
3. insert the question part number
4. attach to the printed EAD in the relevant place leaving a reference in the
corresponding cell of the EAD to advise the examiner to look for a supplementary
handout containing a screen capture.If the above should fail, candidates should be advised to:
dice cricket
General Certificate of Education
Advanced Subsidiary Examination
June 2011
Computing COMP1/PM
Unit 1 Problem Solving, Programming, Data Representation
and Practical Exercise
Preliminary Material
To be given to candidates on or after Tuesday 1 March 2011, subject to the instructions
given in the
Teachers' Notes (COMP1/TN).Information
This Preliminary Material comprises–
Instructions to Candidates–
a Data File.
Preliminary Material.
A Skeleton Program is provided separately by your teacher and must be read in conjunction with this
Program before the examination.
Candidates are advised to familiarise themselves with the Preliminary Material and Skeleton
be given access to the Skeleton Program electronically at the start of the examination. You must
This Preliminary Material will be made available to you again in the examination. You will alsonot
examination room.
take any copy of the Preliminary Material, Skeleton Program or any other material into theM/Jun11/COMP1/PM
COMP1/PM2
M/Jun11/COMP1/PM
Instructions for Candidates
The question paper is divided into four sections and a recommendation is given to candidates as to
how long to spend on each section. Below are the recommended timings for the 2011 examination.
Section A
You are advised to spend no more than
Questions will examine the specification content
30 minutes on this section.not specific to the Preliminary Material.Section B
You are advised to spend no more than
You will be asked to create a new program
Program
20 minutes on this section.not related to the Preliminary Material or Skeleton.Section C
You are advised to spend no more than
Questions will refer to the
programming.
20 minutes on this section.Preliminary Material and the Skeleton Program, but will not requireSection D
You are advised to spend no more than
Questions will use the the
50 minutes on this section.Skeleton Program and the Preliminary Material and may require theHiScores.txt Data File
.Electronic Answer Document
Answers to questions for all four sections must be entered into the word processed document made
available to you at the start of the examination and referred to in the question paper rubrics as the
Electronic Answer Document
.Preparation for the Examination
You should ensure that you are familiar with this
For the Skeleton Program for your programming language, you should be familiar with:
Preliminary Material and the Skeleton Program.
types
the built-in functions available for manipulating string data and converting strings to other data
file handling commands for CSV (Comma Separated Variable) files
declaring and using arrays.Turn over
3
M/Jun11/COMP1/PM
Dice Cricket Game
The
simple game based on the sport of cricket.
When playing Dice Cricket, players use two special dice called the Bowl Die
The Bowl Die is a 6-sided die where, instead of the numbers 1 to 6, the sides have "0", "1", "2", "4",
"6", and "OUT" written on them. The player whose turn it is rolls the Bowl Die. If the result is one
of the numeric values then this is added to their score (the number of
continue to roll the Bowl Die until "OUT" is rolled. If the result is "OUT" then they roll the Appeal Die
to see what happens next.
The Appeal Die is a 4-sided die where the numbers 1 to 4 have been replaced with different values.
The values on the Appeal Die are "NOT OUT", "CAUGHT", "LBW" and "BOWLED". If when a
player rolls the Appeal Die they get a result of "NOT OUT" then their turn continues and they can
roll the Bowl Die again. Any other result on the Appeal Die means that they are out and their turn
finishes. When player one's turn is over player two has their turn. When player two is out the two
players' scores are compared and the winner is the one with the highest score.
In the
used then the two players have actually got a Bowl Die and an Appeal Die and enter the values they
roll into the program. If virtual dice are used then the program simulates the rolling of the Bowl Die
and Appeal Die by generating random numbers. There are 6 different values on the Bowl Die and 4
different values on the Appeal Die.
The
players playing Dice Cricket. After each game the scores of the two players are compared with the
previous top scores. The winner's details, if their score is higher, will replace those of the player
with the lowest top score. The loser's details, if their score is high enough, could also replace one of
the previous player’s details. If the winning player’s score is the same as the lowest top score their
details are not stored. If a game is drawn with a score lower than three of the top four scores then
only player one’s details will be stored.
In the
Skeleton Program is a program for the two-player game of Dice Cricket. Dice Cricket is a1 and the Appeal Die.runs they have got) and theySkeleton Program players can choose to play with real dice or virtual dice. If real dice areSkeleton Program also stores the names and scores of the four highest results obtained bySkeleton Program there is a menu containing five options:
Play game version with virtual dice
Play game version with real dice
Load top scores
Display top scores
If the user chooses to load top scores from a file then the file
contents placed in the array
QuitHiScores.txt is opened and theTopScores.The Data File
Ricky,12
Sachin,45
Brian,2
Monty,1
The data file
HiScores.txt will be available to you at the start of the examination.1
Dice is the plural of the word die.4
M/Jun11/COMP1/PM
Variables
Some of the variables used are:
Identifier Data Type Purpose
TopScores Array[1..4]
of Record
This is an array of records. Each
record stores the details about one of
the top four scores. A record consists
of a
name (string data type) and ascore
(integer data type)PlayerOut Boolean
not
Used to indicate if a player is out orCurrentPlayerScore Integer
the current player has accumulated
Used to store the number of runs thatPlayerNo Integer
player two's turn
Used to indicate if it is player one's orNotes
The programming language used to code the game will determine the letter case for each identifier
and so may not match exactly the identifiers shown in the table above.
Your chosen programming language may use arrays with a lower bound value of 0. If so, position 0
will not have been used.
Subscribe to:
Posts (Atom)