CSCI260 Lab 9 Spring 2009
Due: 11:59 PM., Wednesday, March 25, 2008
Objective: Familiarize yourself with FORTRAN SUBROUTINES and FUNCTIONS.
1. Login to isengard.
2. Change your current working directory to your csci260a directory.
3. Make a lab9 subdirectory and then change directory to your lab9 directory.
4. Copy over the files from the /class/csci260a/Assignments/lab9 directory to your lab9
(current) subdirectory.
5. Use cp to copy and rename the lesson1 shell to mylesson1.f95.
Editing mylesson1.f95
6. Your program should play the dice game called lucky-7. A player starts out with $100
and places how much they wish to bet and on what value set rolled. The pay back for
the bet is 1 to 1 for dice values of 2 – 6, 3 to 1 for dice values of 7 and 1 to 1 for dice
values of 8 to 12. Build a Subroutine that interacts with the user; it should get which
dice values they wish to bet on and how much they wish to bet. If the use ever goes
less that $0 the game should end. The user also has the option to end the game at the
end of each round.
Here is some useful code that you may use in the program.
REAL:: x
::::::::::
CALL RANDOM_SEED
DO
CALL getBet(bet, ch)
CALL RANDOM_NUMBER(x)
d1 = INT(x * 6) +1
CALL RANDOM_NUMBER(x)
d2 = INT(x * 6) +1
:::::::::::
SUBROUTINE getBet(amount, d_values)
IMPLICIT NONE !Must explicitly declare all variables
INTEGER, INTENT(OUT):: amount, d_values
WRITE(*,*)"*****************************************************”
WRITE(*,*)"What range of dice values do you wish to bet on?"
WRITE(*,*)"1. For 1 - 6 "
WRITE(*,*)"2. For 7 "
WRITE(*,*)"3. For 8 - 12 "
WRITE(*,*)"*****************************************************" READ(*,*)
d_values
DO
IF (d_values >= 1 .AND. d_values <= 3)EXIT
WRITE(*,*)"You entered an invalid choice, choose again"
READ(*,*) d_values
END DO
WRITE(*,*)"*****************************************************"
WRITE(*,*)"How much do you wish to bet??"
READ(*,*) amount
WRITE(*,*)"*****************************************************"
END SUBROUTINE
