- #1
max2112
- 1
- 0
I was given an assignment to create a program that solves the Josephus Problem (.[/PLAIN] the program needs to work for n amount of people, and it must use an array.
Problem:
I need to create a subroutine that will allow the user to read(*,*) n
and create an array that is n big.
Attempt:
subroutine sub(n)
implicit none
integer :: n, i
integer :: array(n)
do i = 1, n
array(i) = 0
end do
end subroutine sub
program arrays
implicit none
integer :: size, i
write(*,*) "how big is your array"
read(*,*) size
call sub(size)
end program arrays
I am stuck, and don't know why this isn't working.
Problem:
I need to create a subroutine that will allow the user to read(*,*) n
and create an array that is n big.
Attempt:
subroutine sub(n)
implicit none
integer :: n, i
integer :: array(n)
do i = 1, n
array(i) = 0
end do
end subroutine sub
program arrays
implicit none
integer :: size, i
write(*,*) "how big is your array"
read(*,*) size
call sub(size)
end program arrays
I am stuck, and don't know why this isn't working.
Attachments
Last edited by a moderator: