Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.12.02;
Скачать: [xml.tar.bz2];

Вниз

Как сделать так чтобы числа не повторялись.   Найти похожие ветки 

 
NaRuTo   (2007-11-07 20:22) [0]

Подскажите пожалуйста как мне быть я хочу сделать так чтобы мои числа не повторялись. Но как я пытаюсь так мне компилятор выдаёт ошибку.


 
Leonid Troyanovsky ©   (2007-11-07 20:32) [1]


> NaRuTo   (07.11.07 20:22)

> Подскажите пожалуйста как мне быть я хочу сделать так чтобы
> мои числа не повторялись. Но как я пытаюсь так мне компилятор
> выдаёт ошибку.

А как он узнал об этом желании?

--
Regards, LVT.


 
vpbar ©   (2007-11-07 20:35) [2]

Ну причем тут компилятор? Это ваши числа. За ваши числа только вы в ответе.


 
palva ©   (2007-11-07 22:08) [3]

Вы в ответе за числа, которые вы приручили...


 
Dib@zol ©   (2007-11-07 22:18) [4]

> [0] NaRuTo   (07.11.07 20:22)

Што за числа-то? Показывай алгоритм, а то телепатор барахлит.
Вобщем, чё ты хочешь сделать? Излагай.


 
Правильный_Вася   (2007-11-07 22:23) [5]

генератор случайных екзешников?


 
Elec3C ©   (2007-11-07 22:34) [6]


> Подскажите пожалуйста как мне быть я хочу сделать так чтобы
> мои числа не повторялись. Но как я пытаюсь так мне компилятор
> выдаёт ошибку

LOL = Pow(LOL, 1/2);)) Объясняй точнее!


 
Zeqfreed ©   (2007-11-07 23:15) [7]

Да чего не ясно то. Стандартный вопрос для этой конференции, по-моему. Требуется генерировать последовательности псевдослучайных чисел с дополнительным условием — одно число должно быть сгенерировано лишь один раз. Или я не прав?

Реализация без особых мыслительных затрат включает в себя хранение списка уже сгенерированных чисел и проверки сгенерированного вновь числа на вхождение в этот список. Можно придумать и другие реализации.


 
@!!ex ©   (2007-11-08 00:05) [8]


> Zeqfreed ©   (07.11.07 23:15) [7]

телепатор подсказывает, что так оно и есть...
Но... хотелось бы от автора конкретики услышать..
И с чего это у него компилятор ошибку выдает тоже...


 
KilkennyCat ©   (2007-11-08 00:35) [9]

Я так хочу, чтобы числа не кончались,
Чтоб они не повторялись...
Числа-а, ах, числа-а...

Берем массив. Заполняем его нужными числами нормальным образом, например:

for i:=0 to 10 do a[i] := i;// массив а[0..9] заполнен последовательностью 1..10

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

Это неоптимальный, но вариант.


 
KilkennyCat ©   (2007-11-08 00:36) [10]

очепятки

for i:=0 to 9 do a[i] := i+1;


 
Германн ©   (2007-11-08 00:40) [11]


> KilkennyCat ©   (08.11.07 00:36) [10]
>
> очепятки
>

Не только очепятки. Но и очевидное несоответствие сабжу. Не путай цифры и числа!
:-)


 
@!!ex ©   (2007-11-08 00:47) [12]


> Не путай цифры и числа!

Ну так цифры - это тоже числа...

"Железо - это метал?
А метал - это железо?" (С)


 
KilkennyCat ©   (2007-11-08 00:58) [13]


> Германн ©   (08.11.07 00:40) [11]


я - пьяное инопланетяно. мне - можно. ;)
А вообще, у меня именно числа не повторяются. А цифры могут.


 
Германн ©   (2007-11-08 01:02) [14]


> я - пьяное инопланетяно. мне - можно. ;)

Что-то слишком часто в последнее время :-)


 
KilkennyCat ©   (2007-11-08 01:04) [15]


> Что-то слишком часто в последнее время :-)


все относительно... относительно предыдущего времени - очень редко :(



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.12.02;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.48 MB
Время: 0.046 c
1-1189687888
Андрей Пл
2007-09-13 16:51
2007.12.02
TDBChart есть ли у компонента метод наподобие Print Preview?


4-1177050445
vann
2007-04-20 10:27
2007.12.02
Как программно заменить выделенный текст в окне другого приложени


15-1193827892
Ega23
2007-10-31 13:51
2007.12.02
Народ, а никто случайно не знает, какой сейчас официальный


15-1193809034
Flexer
2007-10-31 08:37
2007.12.02
Установка DevExpress на Delphi 7


15-1193838867
pathfinder
2007-10-31 16:54
2007.12.02
Создание справки.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский