Генератор случайных чисел... QBasic

[JunioR_kz]

Здравствуйте дорогие программисты, мне нужна ваша помощь.....

1. Составьте программу на Бейсике для испытания генератора случайных чисел, моделирующую подбрасывание монетки и подсчитывающую соотношение "Орел/решка"

2. К чему стремится соотношение "орел/решка" при увеличении числа " подбрасываний "
а) к бесконечности
б) к одной второй
в) к двум
г) к еденице
д) может у кого свой ответ есть _____________


___________________________
информатика друг человека)))

[Андрюха_ЕШКО]

Смотрите, я вот програмку с генератором чисел, кто поможет переделать её?
код:

* ЛОТО*
   OPTION BASE 1
   DIM k(100) AS INTEGER
   DIN n AS INTEGER, n1 AS INTEGER, n2 AS INTEGER
'ввод исходных данных
   INPUT " Общее число шаров"; n1
   INPUT " Число извлекаемых шаров"; n2
'проведение тиража
   PRINT "Тираж"; n2; "из"; n1
   RANDOMIZE TIMER
   PRINT " Выпали номера:"
   FOR i% = 1 TO n2
m1:   k(i%) = INT(RND(1) * (n1-1) + 1.5)
        IF i% = 1 THEN GOTO m2
'проверка выпавшего числа шаров
        FOR j% = 1 TO i% - 1
          IF k(I%) = k(j%) THEN GOTO m1   ' если такой уже был
        NEXT j%
'печать сообщения
m2:     PRINT k(i%);
        NEXT i%
        PRINT
        END

[Андрюха_ЕШКО]

вот, держи, всё работает!

 REM Coin
10 CLS:E=0
20 INPUT "Сколько раз подкидывать"; N
30 FOR I=1 TO N
40 X=INT (1 - RND)
50 IF CINT(X) = 0 THEN E=E+1
60 NEXT I
70 PRINT "Орел/решка=";E;"/";N-E
80 END

[Brabus]

2. Вероятность выпадения орла - 50%. Собственно как и решки.

[JunioR_kz]

Спасибо большое!

[сфинкс]

абсолютно по теме моя разработка:

Генератор номеров КЕНО и 6из45 НЕ для ставок

а для проверки реальности повтора номеров и десятков НЕсовпадений подряд

алгоритм: выбирается случайный номер и даётся случайное приращение

с контролем повторов и нахождения номеров внутри диапазона

результаты пишет в файл в том же каталоге и далее можно и нужно перенести в таблицу Excel


DIM a(66, 22): CLS
RANDOMIZE TIMER
OPEN "KENO_dav.txt" FOR OUTPUT AS #1

FOR s = 1 TO 66: REM tiagey
a(s, 1) = INT(RND * 80) + 1: REM 1-y sluch

22 FOR j = 2 TO 21: REM dlya 20 nomerov
shag = INT(RND * 80) + 1: REM plus shag
a(s, j) = a(s, j - 1) + shag: REM zavisit
IF a(s, j) > 80 THEN a(s, j) = a(s, j) - 80: REM uchet 80
NEXT

FOR m = 1 TO 19
FOR n = m + 1 TO 20
IF a(s, m) = a(s, n) THEN GOTO 22
IF INKEY$ = " " THEN STOP
NEXT: NEXT

NEXT

FOR v = 1 TO 66
FOR w = 1 TO 20
PRINT #1, a(v, w),
NEXT: PRINT #1, : NEXT