Рулетка!

@Dreder · Регистрация: 20.02.2012

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

Задача заключается в том что бы проверить ГСЧ на его идеальность.С этим нам и должна помочь "рулетка". У нас есть 2 цвета красный и черный.Нужно смоделировать систему для проверки ГСЧ в делфи
То есть узнать сколько максимально раз подряд выпадал тот или иной цвет.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
procedure TForm1.FormCreate(Sender: TObject);
begin
 Randomize;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var RandSeed: LongInt;
r,b,i:integer;
 
begin
r:=0;
b:=0;
n:=StrToInt(Edit1.text);
for i := 1 to n  do
begin
RandSeed:=random(36);
If RandSeed mod 2 = 0 then
r:=r+1
else
b:=b+1;
end;
if r>b then
ShowMessage('Red '+ IntToStr(r))
else
ShowMessage('Black '+ IntToStr(b))
end;

Пока у меня получилось так)

Так Как на рулетки Красный и чёрный цвет идут по очереди) 0 не Считаем.Он нам не нужен.

Комментарий модератора

Используйте специальные теги форматирования программного кода!

@NIch · 20.02.2012, 16:31

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

Пока у меня получилось так)

Отлично, а что не получилось?
PS Чуть подправлю...учтем зеро...

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
procedure TForm1.Button1Click(Sender: TObject);
var 
  RandSeed : LongInt;
  r, b, z, i : integer;
begin
  r := 0;
  b := 0;
  z := 0;
  n := StrToInt(Edit1.text);
  for i := 1 to n do
  begin
    RandSeed := Random(36);
    if RandSeed = 0 then
    begin
      Inc(z);
      Continue;
    end;
    if RandSeed mod 2 = 0 then
      Inc(r);
    else
      Inc(b);
  end;
  ShowMessage('Zero = ' + IntToStr(z) + ' ' + 
                     'Red =  ' + IntToStr(r) + ' ' +
                     'Black = ' + IntToStr(b));
end;

@Kill Phil · 20.02.2012, 19:17

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

Задача заключается в том что бы проверить ГСЧ на его идеальность.С этим нам и должна помочь "рулетка". У нас есть 2 цвета красный и черный.Нужно смоделировать систему для проверки ГСЧ в делфи
То есть узнать сколько максимально раз подряд выпадал тот или иной цвет.

Добавлено через 1 минуту
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
var RandSeed: LongInt;
r,b,i:integer;

begin
r:=0;
b:=0;
n:=StrToInt(Edit1.text);
for i := 1 to n do
begin
RandSeed:=random(36);
If RandSeed mod 2 = 0 then
r:=r+1
else
b:=b+1;
end;
if r>b then
ShowMessage('Red '+ IntToStr(r))
else
ShowMessage('Black '+ IntToStr(b))
end;

Пока у меня получилось так)

Добавлено через 1 минуту
Так Как на рулетки Красный и чёрный цвет идут поочереди) 0 не Считаем.Он нам не нужен.

50 на 50)) но на Онлайн казино ты не выиграешь не че, по причине ограничения ставок, там может и красное 10 раз подрят выпасть... ты походу в инете нашел этот развод с математический прогрессией, уж что я только не пробовал с этой рулеткой, ставил процентное соотношение 66% против 33% 1 к 3... тоже не работает и все по причине ОГРАНИЧЕНИЕ СТАВОК)

@Dreder · 20.02.2012, 20:54 **[ТС]**

Спасибо)) Суть в том что мне надо количество повторений выпадиния того или иного цвета.Там Допустим 5 раз подряд красное вот эту 5ку мне надо занести в файл или массив всё равно а потом вывести или на гистограмму либо просто в сообщение самое большое число повторений))

Добавлено через 52 секунды
нет это моя курсовая)))

@Arcor · 20.02.2012, 21:00

это вообще не такая и простая задача в эти несколько строк, если ее реально строить, то движком является теория вероятности, точно какая я не скажу вам, то что тему не очень совсем разобрал, но недавно, месяца 2 назад, решали эту задачу на лекции, как пример. Там было штук 5 больших формул, которые опираются на итерации, зависящие значения от других функций. Так что, вот такие дела

Можно конечно нечто простое написать, но будет ли оно подражать реальности или нет

@Dreder · 20.02.2012, 21:13 **[ТС]**

Ну Скажу что это просто начало))) Требований там много)) И Курсовая будет не на 50 строк и не на 100) Я просто написал что не могу сделать и если кто то может помочь буду благодарен)

Добавлено через 34 секунды
Там и теор. вер. и Метод Монте-карло и тд....))

@Kill Phil · 21.02.2012, 20:42

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

Ну Скажу что это просто начало))) Требований там много)) И Курсовая будет не на 50 строк и не на 100) Я просто написал что не могу сделать и если кто то может помочь буду благодарен)

Добавлено через 34 секунды
Там и теор. вер. и Метод Монте-карло и тд....))

Монте - Карло по моему это не метод, а эффект... это когда на протяжении нескольких раздач, например в покере(так как я там сталкивался с этим), тебе раздают пару тузов, раза 3 подряд и ты по логике вещей думаешь что 4 - ый раз так уже не повезет. Но математически это возможно)))

@Linar1991 · 01.05.2012, 15:53

Привет, всем, пожалуйста, нужна помощь в решение задачи, точнее она решена, только перевести с basic в delphi,задача похожа на задачу с рулеткой.

Проект «Бросание монеты»
Dim dblX, dblY As Double, I, lngN, lngO, lngR As Long
Private Sub cmd1_Click ()
lngO = 0
lngR = 0
lngN = txtN.Text
pic1.Cls
pic1.Scale (-1, 1) – (1, -1)
pic1.Line (-1, 1) – (1, -1), , B
‘Генерация точек
For I = 1 To lngN
dblX = 2 * Rnd – 1
dblY = 2 * Rnd – 1
pic1.PSet (dblX, dblY)
If -1 <= dblX And dblX < 0 And -1 <= dblY And dblY <= 1 Then
lngO = lngO + 1
Else
lngR = lngR + 1
End If
Next I
txtO.Text = lngO
txtR.Text = lngR
‘ Ось Х
pic1.Line (-1, 0) – (1, 0)
For I = -1 To 1
pic1.PSet (I, 0)
pic1.Print I
Next I
‘ Ось Y
pic1.Line (0, -1) – (0, 1)
For I = -1 To 1
pic1.PSet (0, I)
pic1.Print I
Next I
End Sub

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@Dreder 1 / 1 / 0 Регистрация: 20.02.2012 Сообщений: 17
	20.02.2012, 20:54 [ТС]
	Спасибо)) Суть в том что мне надо количество повторений выпадиния того или иного цвета.Там Допустим 5 раз подряд красное вот эту 5ку мне надо занести в файл или массив всё равно а потом вывести или на гистограмму либо просто в сообщение самое большое число повторений)) Добавлено через 52 секунды нет это моя курсовая))) 0

@Arcor 5709 / 2300 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	20.02.2012, 21:00
	это вообще не такая и простая задача в эти несколько строк, если ее реально строить, то движком является теория вероятности, точно какая я не скажу вам, то что тему не очень совсем разобрал, но недавно, месяца 2 назад, решали эту задачу на лекции, как пример. Там было штук 5 больших формул, которые опираются на итерации, зависящие значения от других функций. Так что, вот такие дела Можно конечно нечто простое написать, но будет ли оно подражать реальности или нет 1

@Dreder 1 / 1 / 0 Регистрация: 20.02.2012 Сообщений: 17
	20.02.2012, 21:13 [ТС]
	Ну Скажу что это просто начало))) Требований там много)) И Курсовая будет не на 50 строк и не на 100) Я просто написал что не могу сделать и если кто то может помочь буду благодарен) Добавлено через 34 секунды Там и теор. вер. и Метод Монте-карло и тд....)) 0

@Linar1991 0 / 0 / 0 Регистрация: 01.05.2012 Сообщений: 3
	01.05.2012, 15:53
	Привет, всем, пожалуйста, нужна помощь в решение задачи, точнее она решена, только перевести с basic в delphi,задача похожа на задачу с рулеткой. *Проект «Бросание монеты»* Dim dblX, dblY As Double, I, lngN, lngO, lngR As Long Private Sub cmd1_Click () lngO = 0 lngR = 0 lngN = txtN.Text pic1.Cls pic1.Scale (-1, 1) – (1, -1) pic1.Line (-1, 1) – (1, -1), , B ‘Генерация точек For I = 1 To lngN dblX = 2 * Rnd – 1 dblY = 2 * Rnd – 1 pic1.PSet (dblX, dblY) If -1 <= dblX And dblX < 0 And -1 <= dblY And dblY <= 1 Then lngO = lngO + 1 Else lngR = lngR + 1 End If Next I txtO.Text = lngO txtR.Text = lngR ‘ Ось Х pic1.Line (-1, 0) – (1, 0) For I = -1 To 1 pic1.PSet (I, 0) pic1.Print I Next I ‘ Ось Y pic1.Line (0, -1) – (0, 1) For I = -1 To 1 pic1.PSet (0, I) pic1.Print I Next I End Sub 0