Вверх ↑
Этот топик читают: Гость
Ответов: 223
Рейтинг: 24
#1: 2009-07-09 20:32:51 ЛС | профиль | цитата
Как сгенерировать случайную последовательность чисел?-от 0 до 9.Начал делать так
Схему привел ,что-бы приблизительно было понятно ,что надо.В 10 строк занести цифры от 0-9 случайным
образом.Например-0;2;5;9;6;7;3;1;4;8.С уважением
code_14057.txt
карма: 0

0
файлы: 1code_14057.txt [608B] [162]
Ответов: 1161
Рейтинг: 160
#2: 2009-07-09 20:38:37 ЛС | профиль | цитата
они должны повторятся или нет?
карма: 0

0
Ответов: 875
Рейтинг: 322
#3: 2009-07-09 20:41:00 ЛС | профиль | цитата
wasya, в публикаторе в разделе tools лежит схема shuffle - посмотри
карма: 1

0
Ответов: 223
Рейтинг: 24
#4: 2009-07-09 20:47:24 ЛС | профиль | цитата
LainX, не должны
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#5: 2009-07-09 21:41:28 ЛС | профиль | цитата
wasya,
code_14059.txt
------------ Дoбавленo в 21.42:
самому смешно стало.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
файлы: 1code_14059.txt [1.5KB] [192]
Голосовали:wasya
Ответов: 485
Рейтинг: 86
#6: 2009-07-09 22:34:45 ЛС | профиль | цитата
Чуток попроще
code_14061.txt
карма: 0

2
файлы: 1code_14061.txt [1KB] [169]
Голосовали:Tad, wasya
Ответов: 223
Рейтинг: 24
#7: 2009-07-10 10:44:32 ЛС | профиль | цитата
Tad, filyaxxxcom, всем спасибо - то что надо
карма: 0

0
Администрация
Ответов: 15295
Рейтинг: 1519
#8: 2009-07-10 11:00:05 ЛС | профиль | цитата
еще на два элемента и 4 связи короче
code_14068.txt

карма: 27
1
файлы: 1code_14068.txt [767B] [269]
Голосовали:wasya
Ответов: 16884
Рейтинг: 1239
#9: 2009-07-10 12:57:08 ЛС | профиль | цитата
Dilma писал(а):
еще на два элемента и 4 связи короче
не согласен.
Применение FOR - это рассчет на авось.
За 100 форов может и не родить 10 разных цифр. И даже за 1000 - тоже твердой уверенности быть не может.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Администрация
Ответов: 15295
Рейтинг: 1519
#10: 2009-07-10 14:04:05 ЛС | профиль | цитата
Tad писал(а):
Применение FOR - это рассчет на авось.

не понял проблемы. В примерах выше FOR видимо не используется?
карма: 27
0
Ответов: 16884
Рейтинг: 1239
#11: 2009-07-10 14:16:05 ЛС | профиль | цитата
В моем примере - FOR нет
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26151
Рейтинг: 2127
#12: 2009-07-10 14:18:34 ЛС | профиль | цитата
Вот вам схема без For

Add(MainForm,11182862,175,203)
{
Left=20
Top=105
Width=136
Height=246
}
Add(Random,5447273,294,259)
{
Max=9
Point(Max)
link(onRandom,14407297:doGetIndex,[])
}
Add(BitBtn,7308592,175,245)
{
Left=10
Top=10
link(onClick,12020418:doEvent1,[])
}
Add(Memo,7997982,476,273)
{
Left=5
Top=35
Width=110
Height=170
}
Add(StrList,14407297,350,217)
{
Point(onGetIndex)
Point(doGetIndex)
link(onChange,1072903:doWork2,[(404,223)(404,265)])
link(Str,5447273:Random,[(356,205)(328,205)(328,303)(300,303)])
link(onGetIndex,11261520:doCompare,[])
}
Add(DoData,3348647,413,294)
{
link(onEventData,7997982:doText,[])
link(Data,14407297:Text,[(419,282)(356,282)])
}
Add(If_else,11261520,413,224)
{
Type=1
Op2=Integer(0)
link(onTrue,14407297:doAdd,[(459,230)(459,193)(336,193)(336,223)])
link(onFalse,1072903:doWork1,[(459,237)])
}
Add(If_else,9914032,357,294)
{
Type=4
Op2=Integer(10)
link(onTrue,3348647:doData,[])
link(onFalse,11125907:doWork3,[(400,307)(400,333)(263,333)])
link(Op1,14407297:Count,[])
}
Add(HubEx,11125907,259,252)
{
link(onEvent,5447273:doRandom,[])
}
Add(HubEx,1072903,455,252)
{
Angle=1
link(onEvent,9914032:doCompare,[(459,285)(345,285)(345,300)])
}
Add(Hub,12020418,224,245)
{
OutCount=3
link(onEvent1,14407297:doClear,[(264,251)(264,230)])
link(onEvent2,5447273:doRandomize,[(277,258)(277,272)])
link(onEvent3,11125907:doWork2,[])
}

карма: 22

2
Голосовали:Konst, wasya
Ответов: 8926
Рейтинг: 823
#13: 2009-07-10 14:43:58 ЛС | профиль | цитата
nesco, в выложенной схеме For выполнен на "рассыпухе" , к тому же последовательность чисел одна
карма: 19

0
Разработчик
Ответов: 26151
Рейтинг: 2127
#14: 2009-07-10 14:48:16 ЛС | профиль | цитата
Леонид писал(а):
к тому же последовательность чисел одна

Это поправимо. И это не For на рассыпухе, это, скорее, Repeat на рассыпухе до получения заведомо 10-ти разных значений. Ну неужеле не видно два условия -- неповторяемость чисел и делать до 10-ти. И какой же это For
------------ Дoбавленo в 14.52:
Переправил пример под разные последовательности
карма: 22

0
Ответов: 8926
Рейтинг: 823
#15: 2009-07-10 17:08:56 ЛС | профиль | цитата
nesco, что For, что Repeat.. - всё равно циклы
Вот в более общем виде code_14073.txt, а то вопрос периодически поднимается, может пригодится для принципа
карма: 19

0
файлы: 1code_14073.txt [5.6KB] [179]
Сообщение
...
Прикрепленные файлы
(файлы не залиты)