как сделать чтобы номера не повторялись? / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / как сделать чтобы номера не повторялись?

4 сообщений из 4, страница 1 из 1

как сделать чтобы номера не повторялись?

#36004868

Liosha_nove4ok

Гость

как сделать чтобы номера не повторялись?

автор
a=0
b=0
c=0
d=0
e=0
FOR i=1 TO 5

DO WHILE (a=0)
a=INT(100*RAND())
ENDDO

DO WHILE (b=0 AND b!=a)
b=INT(100*RAND())
ENDDO

DO WHILE (c=0 AND c!=a AND c!=b)
c=INT(100*RAND())
ENDDO

DO WHILE (d=0 AND d!=a AND d!=b AND d!=c)
d=INT(100*RAND())
ENDDO

DO WHILE (e=0 AND e!=a AND e!=b AND e!=c AND e!=d)
e=INT(100*RAND())
ENDDO

m=alltrim(STR(a))+', '+alltrim(STR(b))+', '+alltrim(str(c))+', '+alltrim(STR(d))+', '+alltrim(STR(e))
thisform.text1.Value=m

ENDFOR

...

Рейтинг:

0 / 0

25.05.2009, 11:03

| Ответить | Цитировать | Написать

как сделать чтобы номера не повторялись?

#36005045

Kruchinin Pahan

Участник

Откуда: Екатеринбург

Сообщения: 926

Рейтинг: 0 / 0

Liosha_nove4ok,

Ну, раз всего до сотни, я бы так сделал:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

CLEAR
USE IN SELECT("CurTmp")
CREATE CURSOR CurTmp (No I)
FOR m.i =  1  TO  100 
	INSERT INTO CurTmp VALUES (m.i)
NEXT m.i
SELECT *, RAND() FROM CurTmp ORDER BY  2  INTO ARRAY laTmp

FOR m.i =  1  TO  5 
	?laTmp[m.i,  1 ]
NEXT m.i

Где-то было доказательство, что распределение не совсем равномерное получается. Но, для моих целей, обычно хватает.

...

Рейтинг:

0 / 0

25.05.2009, 12:07

| Ответить | Цитировать | Написать

как сделать чтобы номера не повторялись?

#36005545

Liosha_nove4ok

Гость

Kruchinin Pahan,

спс, разобрался чуток подругому

автор
a=0
b=0
c=0
d=0
e=0
FOR i=1 TO 5

DO WHILE (a=0)
a=INT(35*RAND())
ENDDO

DO WHILE (b=0)
b=INT(35*RAND())
ENDDO

DO WHILE (b=a)
b=INT(35*RAND())
ENDDO

DO WHILE (c=0)
c=INT(35*RAND())
ENDDO

DO WHILE (c=a or c=b)
c=INT(35*RAND())
ENDDO

DO WHILE (d=0)
d=INT(35*RAND())
ENDDO

DO WHILE (d=a or d=b or d=c)
d=INT(35*RAND())
ENDDO

DO WHILE (e=0)
e=INT(35*RAND())
ENDDO

DO WHILE (e=a or e=b or e=c or e=d)
e=INT(35*RAND())
ENDDO

ENDFOR

m=alltrim(STR(a))+', '+alltrim(STR(b))+', '+alltrim(str(c))+', '+alltrim(STR(d))+', '+alltrim(STR(e))
thisform.text1.Value=m

...

Рейтинг:

0 / 0

25.05.2009, 14:19

| Ответить | Цитировать | Написать

как сделать чтобы номера не повторялись?

#36006424

reware

Участник

Откуда: Хабаровск

Сообщения: 591

Рейтинг: 0 / 0

Liosha_nove4okкак сделать чтобы номера не повторялись?

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.

STORE  0  TO a,b,c,d,e
DO WHILE a= 0 
a=INT( 100 *RAND())
ENDDO

DO WHILE (b= 0  OR b=a)
b=INT( 100 *RAND())
ENDDO

DO WHILE (c= 0  OR c=a OR c=b)
c=INT( 100 *RAND())
ENDDO

DO WHILE (d= 0  OR d=a OR d=b OR d=c)
d=INT( 100 *RAND())
ENDDO

DO WHILE (e= 0  OR e=a OR e=b OR e=c OR e=d)
e=INT( 100 *RAND())
ENDDO

m=alltrim(STR(a))+', '+alltrim(STR(b))+', '+alltrim(str(c))+', '+alltrim(STR(d))+', '+alltrim(STR(e))
thisform.text1.Value=m

...

Рейтинг:

0 / 0

25.05.2009, 18:59

| Ответить | Цитировать | Написать

4 сообщений из 4, страница 1 из 1

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / как сделать чтобы номера не повторялись?

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&msg=36006424&tid=1586407]:	0ms
get settings:	10ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	40ms
get topic data:	11ms
get forum data:	2ms
get page messages:	48ms
get tp. blocked users:	1ms
others:	13ms

total:	146ms