почему нету случаности

Предыдущая тема Следующая тема Перейти вниз

почему нету случаности

Сообщение  quqa в Ср Окт 10, 2012 4:02 pm

почему всегда один результат?

Код:

PRINT "ВЫЧИСЛИТЬ СУММУ ОТРИЦАТЕЛЬНЫХ ЭЛЕМЕНТОВ МАССИВА"
DIM MASIV(100) AS INTEGER
DIM A AS INTEGER, B AS INTEGER, C AS INTEGER
DO
   A+=1
   C=RND*10
   MASIV(A) = RND*10000
   IF C > 5 THEN MASIV(A) =  -MASIV(A)
   IF A = 100 THEN GOTO FF
LOOP

FF:
A=0
DO
   A+=1
  IF MASIV(A)<0 THEN B=B+MASIV(A)
  IF A = 100 THEN GOTO DD
LOOP

DD:
PRINT "СУММА РАВНА ";B
SLEEP

quqa

Сообщения : 2
Дата регистрации : 2012-10-10

Посмотреть профиль

Вернуться к началу Перейти вниз

Re: почему нету случаности

Сообщение  DEPOzit в Ср Окт 10, 2012 4:44 pm

Так и должно быть, в данном примере генерация будет повторяться при каждом новом запуске программы.
Для получения разных сумм тебе необходима подвязка оператора RND к таймеру.
Поставь RANDOMIZE TIMER в начале программы.

DEPOzit

Сообщения : 113
Дата регистрации : 2008-05-15
Возраст : 36
Откуда : Смоленская обл.

Посмотреть профиль http://freebasic.ru/

Вернуться к началу Перейти вниз

Re: почему нету случаности

Сообщение  quqa в Ср Окт 10, 2012 5:54 pm

да так нормально, спасибо.

quqa

Сообщения : 2
Дата регистрации : 2012-10-10

Посмотреть профиль

Вернуться к началу Перейти вниз

Re: почему нету случаности

Сообщение  Спонсируемый контент


Спонсируемый контент


Вернуться к началу Перейти вниз

Предыдущая тема Следующая тема Вернуться к началу


 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения