Генератор псевдослучайных чисел

@dmitry95 · Регистрация: 13.04.2014

Author24 — интернет-сервис помощи студентам

~~Нужно составить~~ Пожалуйста, помогите составить программу, моделирующую игру двух человек в "Альтернативу" (бросание шестигранного кубика, грани которого нумеруются от 1 до 6). Требуется использовать генератор псевдослучайных чисел r(k) = {pi + 11*r(k-1)}

@kushok · 04.05.2014, 22:20

не совсем понятен Ваш "генератор": чему равно r(1) тогда?
А вообще должно быть что-то типа такого:

Fortran

program altenativa
 
integer :: random
 
random = 1
 
call r(random)
 
do while (.TRUE.)
 
    write(*, *) "press Enter to continue..."
    
    read(*, *)
    
    call r(random)
    
    write(*, *) random
 
end do
 
contains 
 
subroutine r(k)
    integer, intent(INOUT) :: k
    
    k = MOD( int (3.1415 + 11*k), 6) + 1
    
end subroutine r
 
end program

@dmitry95 · 04.05.2014, 22:49 **[ТС]**

Спасибо, там почему-то чередуются числа 1, 3

@kushok · 04.05.2014, 23:50

придумайте какой-нибудь другой генератор псевдослучайных чисел...
Например

Fortran

subroutine r(k)
    integer, intent(INOUT) :: k
    real :: rand
 
    call RANDOM_NUMBER(rand)
    rand = rand * 1000
    k = MOD( int (rand + 11*k), 6) + 1
    
end subroutine r

@palva · 05.05.2014, 09:55

Сообщение от dmitry95

Требуется использовать генератор псевдослучайных чисел r(k) = {pi + 11*r(k-1)}

Fortran

program test
real r, myrand
r=0.5
print *, myrand(r)
print *, myrand(r)
print *, myrand(r)
end program test
real function myrand(r)
real r
r=3.14159+11*r
r=r-aint(r)
myrand=r
end function myrand

@dmitry95 0 / 0 / 0 Регистрация: 13.04.2014 Сообщений: 9
		1
	Генератор псевдослучайных чисел 04.05.2014, 18:44. Показов 980. Ответов 4 Метки нет (Все метки) ~~Нужно составить~~ Пожалуйста, помогите составить программу, моделирующую игру двух человек в "Альтернативу" (бросание шестигранного кубика, грани которого нумеруются от 1 до 6). Требуется использовать генератор псевдослучайных чисел r(k) = {pi + 11*r(k-1)} 0

@dmitry95 0 / 0 / 0 Регистрация: 13.04.2014 Сообщений: 9
	04.05.2014, 22:49 [ТС]	3
	Спасибо, там почему-то чередуются числа 1, 3 0

	05.05.2014, 09:55

Опции темы