Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=26241&view=findpost&p=2116840 Sat, 15 Nov 2008 22:14:00 +0000 Генерация случайных чисел https://forum.sources.ru/index.php?showtopic=26241&view=findpost&p=2116840 Генератор Пророчеств.]]> ОМО Алгоритмы https://forum.sources.ru/index.php?showtopic=26241&view=findpost&p=2116814 Sat, 15 Nov 2008 20:58:47 +0000 Генерация случайных чисел https://forum.sources.ru/index.php?showtopic=26241&view=findpost&p=2116814 Там целая глава на эту тему]]> miksayer Алгоритмы https://forum.sources.ru/index.php?showtopic=26241&view=findpost&p=2116731 Sat, 15 Nov 2008 18:41:01 +0000 Генерация случайных чисел https://forum.sources.ru/index.php?showtopic=26241&view=findpost&p=2116731
1.Этот код показывает чисто случайное число, и вводит в документа World случайное число от 30.

Sub RandTime()

Randomize Time * Rnd

a1 = Int(30 * Rnd)

Set o = ActiveDocument.Range
o.Move Unit:=wdParagraph
o.Text = " " & a1

End Sub

2.Перевести все числа в буквы. Некоторых букв нет, так как они не используются.

Sub NumberTranslit

Set MyRange = ActiveDocument.Content
With MyRange.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "10"
.Replacement.Text = "й"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "11"
.Replacement.Text = "к"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "12"
.Replacement.Text = "л"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "13"
.Replacement.Text = "м"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "14"
.Replacement.Text = "н"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "15"
.Replacement.Text = "о"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "16"
.Replacement.Text = "п"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "17"
.Replacement.Text = "р"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "18"
.Replacement.Text = "с"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "19"
.Replacement.Text = "т"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "20"
.Replacement.Text = "у"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "21"
.Replacement.Text = "ф"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "22"
.Replacement.Text = "х"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "23"
.Replacement.Text = "ц"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "24"
.Replacement.Text = "ч"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "25"
.Replacement.Text = "ш"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "26"
.Replacement.Text = "щ"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "27"
.Replacement.Text = "ы"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "28"
.Replacement.Text = "ь"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "29"
.Replacement.Text = "ю"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "30"
.Replacement.Text = "я"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "0"
.Replacement.Text = " "
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "1"
.Replacement.Text = "а"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "2"
.Replacement.Text = "б"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "3"
.Replacement.Text = "в"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "4"
.Replacement.Text = "г"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "5"
.Replacement.Text = "д"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "6"
.Replacement.Text = "е"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "7"
.Replacement.Text = "ж"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "8"
.Replacement.Text = "з"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = "9"
.Replacement.Text = "и"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Replacement.ClearFormatting
.Text = " "
.Replacement.Text = ""
.Execute Replace:=wdReplaceAll
End With

End Sub

4.Все это вкидаем в этот код.

Sub PatchOfRandTime

RandTime
RandTime
RandTime

'Можна и больше RandTime

NumberTranslit

End PatchOfRandTime]]> ОМО Алгоритмы https://forum.sources.ru/index.php?showtopic=26241&view=findpost&p=185482 Tue, 04 Jun 2002 06:46:56 +0000 Генерация случайных чисел https://forum.sources.ru/index.php?showtopic=26241&view=findpost&p=185482 1. Чтобы период генератора был как можно больше. Период - это количество генераций через которое генератор начинает повторяться.
2. Чтобы при прочих равных условиях генерация всегда начиналась с одного и того же числа. Иначе проги отлаживать тяжело.]]> alexgett Алгоритмы https://forum.sources.ru/index.php?showtopic=26241&view=findpost&p=185481 Fri, 17 May 2002 07:02:41 +0000 Генерация случайных чисел https://forum.sources.ru/index.php?showtopic=26241&view=findpost&p=185481
Это не плагиат, это я сам написал в Программном форуме! А вот очень интересно - как выяснить, стоит ли в моем компе хардверный генератор случайных чисел? Я в названиях чипов ничего не понимаю...]]> victor Алгоритмы https://forum.sources.ru/index.php?showtopic=26241&view=findpost&p=185480 Fri, 10 May 2002 21:01:45 +0000 Генерация случайных чисел https://forum.sources.ru/index.php?showtopic=26241&view=findpost&p=185480 AnDrum Алгоритмы https://forum.sources.ru/index.php?showtopic=26241&view=findpost&p=185479 Wed, 08 May 2002 07:55:56 +0000 Генерация случайных чисел https://forum.sources.ru/index.php?showtopic=26241&view=findpost&p=185479 codeseg
proc rnd
dataseg
@@rnd      db "aaaaaaaaaaaaaaaaaa"       ; длина строки ограничена моделью памяти  
; и здравым смыслом :-)
; начальное значение не должно быть нулем!
c=$-@@rnd
@@cnt     dw c
@@br1        db 1h
@@br2     db 1000000b
codeseg
     lea di,[@@rnd]
     mov bx,[@@cnt]
     mov cx,[word ptr @@br1]
     and cl,[byte ptr @@rnd+bx-1]
     jz @@test
     and ch,[byte ptr @@rnd]
     jnz @@Reset
     jmp @@Set
@@test:       
     and ch,[byte ptr @@rnd]
     jz @@Reset      
@@Set:
     stc
@@Reset:   
     rcl [@@rnd+bx-1],1
     rcr dx,1
     dec bx
     rcl dx,1
     jnz @@Reset
@@Exit:
     ret      
endp

]]> Zzzaraza Алгоритмы https://forum.sources.ru/index.php?showtopic=26241&view=findpost&p=185478 Tue, 07 May 2002 15:50:04 +0000 Генерация случайных чисел https://forum.sources.ru/index.php?showtopic=26241&view=findpost&p=185478 SP Алгоритмы https://forum.sources.ru/index.php?showtopic=26241&view=findpost&p=185477 Sat, 04 May 2002 16:56:39 +0000 Генерация случайных чисел https://forum.sources.ru/index.php?showtopic=26241&view=findpost&p=185477 Цитата M0l0t, 04.05.02, 18:54:37
"...Извините, ничего похожего не найдено..."  :'(
Та нииии!
Не в форуме поиск, а на сайте паскальном!
Взгляни наверх! Разделы сайта -> Pascal
Вот там надо искать!
]]> vot Алгоритмы https://forum.sources.ru/index.php?showtopic=26241&view=findpost&p=185476 Sat, 04 May 2002 15:24:03 +0000 Генерация случайных чисел https://forum.sources.ru/index.php?showtopic=26241&view=findpost&p=185476
    imul    ax,9421<br>inc     ax
Результат - AX

    in      ax,40h<br>add     al,ah <br>add     al,Rnd<br>mov     Rnd,al
Результат - AL (Rnd - переменная)]]> 7in Алгоритмы https://forum.sources.ru/index.php?showtopic=26241&view=findpost&p=185475 Sat, 04 May 2002 14:54:37 +0000 Генерация случайных чисел https://forum.sources.ru/index.php?showtopic=26241&view=findpost&p=185475 M0l0t Алгоритмы https://forum.sources.ru/index.php?showtopic=26241&view=findpost&p=185474 Sat, 04 May 2002 14:43:49 +0000 Генерация случайных чисел https://forum.sources.ru/index.php?showtopic=26241&view=findpost&p=185474 vot Алгоритмы https://forum.sources.ru/index.php?showtopic=26241&view=findpost&p=185473 Sat, 04 May 2002 14:31:55 +0000 Генерация случайных чисел https://forum.sources.ru/index.php?showtopic=26241&view=findpost&p=185473 Подумал, и понял, что абсолютно не знаю (даже не представляю), КАК заставить комп выбрать случайное число, например, в промежутке от 0 до 10...  
Но от этого стало еще интереснее...  
Мож кто знает алгоритм генератора случ. чисел?..
или какие-нить мысли?..

]]> M0l0t Алгоритмы