Homework Help is Here – Start Your Trial Now!
Engineering
Computer Engineering
How do these translate into c++? implicit none integer, parameter :: initial_bank=100 integer :: num_games, games_won=0, games_lost=0 integer :: i, payout, bank integer, dimension(13,10) :: dice real :: win_pct   subroutine twentySix (payout) implicit none integer, dimension(13,10) :: dice integer, intent(out) :: payout integer :: point, pnt_cnt real :: x integer :: i, j ! determine point call random_number(x) point = int(x*6.0) + 1 ! roll dice pnt_cnt = 0 do i = 1, 13 do j = 1, 10 call random_number(x) dice(i,j) = int(x*6.0) + 1 if (dice(i,j) == point) pnt_cnt = pnt_cnt + 1 end do end do

How do these translate into c++? implicit none integer, parameter :: initial_bank=100 integer :: num_games, games_won=0, games_lost=0 integer :: i, payout, bank integer, dimension(13,10) :: dice real :: win_pct   subroutine twentySix (payout) implicit none integer, dimension(13,10) :: dice integer, intent(out) :: payout integer :: point, pnt_cnt real :: x integer :: i, j ! determine point call random_number(x) point = int(x*6.0) + 1 ! roll dice pnt_cnt = 0 do i = 1, 13 do j = 1, 10 call random_number(x) dice(i,j) = int(x*6.0) + 1 if (dice(i,j) == point) pnt_cnt = pnt_cnt + 1 end do end do

Computer Networking: A Top-Down Approach (7th Edition)
Computer Networking: A Top-Down Approach (7th Edition)
7th Edition
ISBN:9780133594140
Author:James Kurose, Keith Ross
Publisher:James Kurose, Keith Ross
Chapter1: Computer Networks And The Internet
Section: Chapter Questions
Problem R1RQ: What is the difference between a host and an end system? List several different types of end...
See similar textbooks
icon
Related questions
Question

How do these translate into c++?

implicit none
integer, parameter :: initial_bank=100
integer :: num_games, games_won=0, games_lost=0
integer :: i, payout, bank
integer, dimension(13,10) :: dice
real :: win_pct

 

subroutine twentySix (payout)
implicit none
integer, dimension(13,10) :: dice
integer, intent(out) :: payout
integer :: point, pnt_cnt
real :: x
integer :: i, j

! determine point
call random_number(x)
point = int(x*6.0) + 1

! roll dice
pnt_cnt = 0

do i = 1, 13
do j = 1, 10
call random_number(x)
dice(i,j) = int(x*6.0) + 1
if (dice(i,j) == point) pnt_cnt = pnt_cnt + 1
end do
end do

 

Expert Solution
steps

Step by step

Solved in 2 steps

SEE SOLUTIONCheck out a sample Q&A here
Blurred answer
Recommended textbooks for you
Computer Networking: A Top-Down Approach (7th Edi…
Computer Networking: A Top-Down Approach (7th Edi…
Computer Engineering
ISBN:
9780133594140
Author:
James Kurose, Keith Ross
Publisher:
PEARSON
Computer Organization and Design MIPS Edition, Fi…
Computer Organization and Design MIPS Edition, Fi…
Computer Engineering
ISBN:
9780124077263
Author:
David A. Patterson, John L. Hennessy
Publisher:
Elsevier Science
Network+ Guide to Networks (MindTap Course List)
Network+ Guide to Networks (MindTap Course List)
Computer Engineering
ISBN:
9781337569330
Author:
Jill West, Tamara Dean, Jean Andrews
Publisher:
Cengage Learning
Concepts of Database Management
Concepts of Database Management
Computer Engineering
ISBN:
9781337093422
Author:
Joy L. Starks, Philip J. Pratt, Mary Z. Last
Publisher:
Cengage Learning
Prelude to Programming
Prelude to Programming
Computer Engineering
ISBN:
9780133750423
Author:
VENIT, Stewart
Publisher:
Pearson Education
Sc Business Data Communications and Networking, T…
Sc Business Data Communications and Networking, T…
Computer Engineering
ISBN:
9781119368830
Author:
FITZGERALD
Publisher:
WILEY
SEE MORE TEXTBOOKS