Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / подскажите с примером. qbasic 4.5 / 8 сообщений из 8, страница 1 из 1
21.02.2010, 18:54
    #36482263
rttr
rttr
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
подскажите с примером. qbasic 4.5
вообщем понимаю что уже почти история, но...
скачал qbasic - попробовал, но вопросы остались.

есть такой код
Код: plaintext
1.
2.
3.
4.
SCREEN  12 
 10  CLS
 20  FOR k =  1  TO  2 
 30  PRINT INT(RND( 1 ) *  10 )
 40  NEXT k
сразу тут вопросы почему всегда рандом выдает одни и теже числа 7 и 5?

пробовал вставлять RANDOMIZE ситуация ен меняется за исключением что теперь показывает все время два других числа 7 и 3.
вообщем нужно чтоб рандом выдавал разные числа даже при первом запуске
а то при первом запуске начинает с одних и тех же чисел

Еще такой вариант есть
Код: plaintext
1.
2.
3.
4.
5.
6.
SCREEN  12 
 10  CLS
 20  FOR k =  1  TO  2 
 30  PRINT INT(RND( 1 ) *  10 )
 40  NEXT k
 50  IF INKEY$ = "" THEN  50 
 60  GOTO  10
тут вроде все как нужно - единсвтенное не знаю как выйти из программы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2010, 19:21
    #36482279
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
подскажите с примером. qbasic 4.5
1) а RANDOMIZE вставлял без параметров?

2) ну типа
Код: plaintext
1.
2.
 50  K$=INKEY$
 60  IF K$="" GOTO  50 
 70  IF K$<>"Q" GOTO  10
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2010, 20:41
    #36482352
rttr
rttr
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
подскажите с примером. qbasic 4.5
Shocker.Pro,

да сначала без параметров
при запуске он запрашивает параметр

и с параметром и без просто меняются начальные числа при запуске
оторые остаются постоянными при каждом запуске
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2010, 20:48
    #36482355
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
подскажите с примером. qbasic 4.5
трудно сказать
старые досовские программы иногда выдают странные глюки на современных быстрых процессорах.... Попробуйте найти где-нить 386-ю машину и запустить на ней
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.02.2010, 13:36
    #36482896
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
подскажите с примером. qbasic 4.5
Это не глюк, это псевдорандом. Даже на 286 было так же.

Jah loves you.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.02.2010, 13:41
    #36482905
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
подскажите с примером. qbasic 4.5
AntonariyЭто не глюк, это псевдорандом.

Однако RANDOMIZE без параметров должно было по идее задавать начальное значение для псевдорандома.

Можно, кстати, запускать RANDOMIZE с параметром, отталкиваясь от, скажем, текущего времени.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.02.2010, 18:04
    #36483318
awl100Alex
awl100Alex
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
подскажите с примером. qbasic 4.5
Код: plaintext
1.
2.
3.
Randomize Timer
For k =  1  To  2 
Print Int(Rnd( 1 ) *  10 )
Next k
Всегда разные значения при первом старте.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.02.2010, 18:25
    #36484668
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
подскажите с примером. qbasic 4.5
awl100Alex,

во, точно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / подскажите с примером. qbasic 4.5 / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]