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

ReSQL.ru

2.0.56

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

Гость

Войти | Профиль | Очистить

Нов. | Гор. | Избр.

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

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

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

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

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

Действия ...

Доб. в избранное
Игнор. тему
Прикреп. тему
Пометить прочит. / непрочит.
Фильтр:
Сообщения автора темы
Сообщение содержит вложения
Сообщение содержит картинки
Сообщение содержит видеоклипы
Сообщение содержит аудиоклипы
Сообщение содержит картинки или видео 18+

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

25.05.2009, 11:03

#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, 12:07

#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, 14:19

#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, 18:59

#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

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

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

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

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

start [/forum/topic.php?fid=41&mobile=1&tid=1586407]:	0ms
get settings:	10ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	41ms
get topic data:	10ms
get forum data:	3ms
get page messages:	49ms
get tp. blocked users:	1ms
others:	15ms

total:	150ms