ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / подскажите с примером. qbasic 4.5
8 сообщений из 8, страница 1 из 1
подскажите с примером. qbasic 4.5
    #36482263
rttr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rttr
Гость
вообщем понимаю что уже почти история, но...
скачал 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, 18:54
| Ответить | Цитировать | Написать  
подскажите с примером. qbasic 4.5
    #36482279
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
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, 19:21
| Ответить | Цитировать | Написать  
подскажите с примером. qbasic 4.5
    #36482352
rttr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rttr
Гость
Shocker.Pro,

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

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

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

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

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

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


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