Programs Ch. 8
2. Lottery Number Generator
This program generates a 7-digit lottery number. It should have an Integer array with 7 elements. It has a loop that steps through the array, randomly generating a number between 0 and 9 for each element. Another Loop displays the contents of the array. * Generate seven numbers * Output seven numbers Input | Processing | Output | | Generate seven lottery numbers | Display all seven lottery numbers |

Main Module () Declare integer lotteryNumber [SIZE] Declare integer SIZE = 7 Declare integer index Declare Integer num Call Get_lot_Number (lotteryNumber, SIZE)
Call showWin
End Module

//This module will make the generate the lottery numbers
Get_lot_Number (Integer ref lotteryNumber [], Integer SIZE)
Declare integer index = 0 For index = To SIZE -1 Set lotteryNumber [index] = random (0, 9) Display values [index] End For
End Module
//This module will show the winning numbers
Module showWin (Integer ref lotteryNumber [], Integer SIZE)
Declare Integer count = 0
For count = 0 to SIZE-1
Display lotteryNumber [count]
End For
End Module

Flowchart

10. Tic-Tac-Toe Game
Main Module () //generate board
//Declaring constants Constant String tileB = ” _ ”
Constant String tileX = ” X ”
Constant String tileO = ” O ”
Constant Integer WIN = 3
Constant Integer idxMAX = 2
Constant Integer tileMAX = 9
Constant String LBR = “\n”
//Other declarations
Declare Boolean Integer DRAWN = 0 // 0 is false, 1 is true
Declare Boolean Integer isOver = 0 // 0 is false, 1 is true
Declare String cturn = tileX
Declare Integer SIZE = 3
Declare String board = [ [], [], [] ]
Declare Integer row = 0
Declare Integer col = 0
For row = 0 To SIZE -1
For col = 0 To SIZE -1
Set board[row][col] = tileB
End For
End For
Call showBoard(board)
//make moves
Declare Integer moveNum = 0;
Do
Set cturn = move(cturn, board)
Set moveNum = moveNum + 1
While moveNum < tileMAX AND isGameOver(board) == 0
Display “GAME OVER!”
End Main
//Display Functions
Function showMsg(msg)
Declare String Msg
Display Msg
End Function

Function shower (msg)
Declare String errorPrefix = “ERROR: ”
Display errorPrefix, msg
End Function

Function showBoard (pboard)
Declare String output = “”;
For row = 0 To SIZE -1
For col = 0 To SIZE -1
Set output = output, pboard[row][col] //draw tile
End For
// draw new row
Set output = output, LBR
End For
Display showMsg(output)
End Function

//Validation Functions
Function outOfBounds (row, column)
If row < 0 OR row > idxMAX Then
Display showErr(“Out of Bounds”)
Return 1
Else If column < 0 OR column > idxMAX Then
Display showErr(“Out of Bounds”)
Return 1
Else
Return 0
End If
End Function

Function occupied(pboard, row, column)
If pboard[row][column] != tileB Then
Display showErr(“Slot is occupied.”)
Return 1
Else
Return 0
End If
End Function

//Game Functions
Function takeTurn(pturn)
If pturn == tileX Then
Return tileO
Else
Return tileX
End If
End Function

Function move (player, pboard) //take player input
Declare Integer moveRow = 0
Declare Integer moveCol = 0
Do
Display “Please enter Row for “, player, “”
Input moveRow
Display “Please enter Column”, player, “”
Input moveCol
While outOfBounds (moveRow, moveCol) == 1 OR occupied (pboard, moveRow, moveCol) == 1
Set pboard [moveRow] [moveCol] = player
Call showBoard (pboard)
Return takeTurn (player)
End Function

//State Functions
//Check game state
Function isGameOver (pboard)
Declare Integer rc = 0
Declare Integer i = 0, j = 0
//checkRow
For i = 0 To SIZE -1
If pboard[i][0] == tileX AND pboard[i][1] == tileX AND pboard[i][2] == tileX Then
Display “X wins”
Set rc = 1
Else If pboard [i] [0] == tileO AND pboard[i][1] == tileO AND pboard[i][2] == tileO Then
Display “O wins”
Set rc = 1
End If
End For
//check column
For j = 0 To SIZE -1
If pboard [0][j] == tileX AND pboard[1][j] == tileX AND pboard[2][j] == tileX Then
Display “X wins”
Set rc = 1
Else If pboard [0][j] == tileO AND pboard[1][j] == tileO AND pboard[2][j] == tileO Then
Display “O wins”
Set rc = 1
End If
End For
//check across
If pboard [1][1] == tileX Then
If pboard [0][0] == tileX AND pboard[2][2] == tileX Then
Display “X wins”
Set rc = 1
Else If pboard [0][2] == tileX AND pboard[2][0]==tileX
Display “X wins”
Set rc = 1
End If
Else If pboard[1][1] == tileO Then
If pboard [0][0] == tileO AND pboard[2][2] == tileO Then
Display “O wins”
Set rc = 1
Else If pboard [0][2] == tileO AND pboard[2][0]==tileO
Display “O wins”
Set rc = 1
End If
End If
Return rc
End Function