ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / 2 vopros
15 сообщений из 15, страница 1 из 1
2 vopros
    #32539757
novichek1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
novichek1
Гость
Pomoqite pojalusta!
1. Mne nado vibrat slucaynie cislo mejdu intervalamai, napirmer [0-31]
2.Kak pereobrazovat cislo v dvoicnom vide,napirmer:15=01111: 27=11011
...
Рейтинг: 0 / 0
29.05.2004, 10:49
| Ответить | Цитировать | Написать  
2 vopros
    #32539827
Sergey Ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Ch
Участник
1.
Код: plaintext
INT( 1 +(RAND()- 6 *10E- 18 )* 31 )

2.
авторFUNCTION Num2Bin(pn_num)
LOCAL ln_num, ;
lc_bin
lc_bin = SPACE(0)
ln_num = pn_num
DO WHILE ln_num <> 0
lc_bin = TRANSFORM(MOD(ln_num, 2)) + lc_bin
ln_num = INT(ln_num / 2)
ENDDO
RETURN (lc_bin)

Вызов:
Код: plaintext
? Num2Bin( 27 )
...
Рейтинг: 0 / 0
29.05.2004, 15:21
| Ответить | Цитировать | Написать  
2 vopros
    #32539828
Sergey Ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Ch
Участник
Можно и наоборот (из 10 в 2):
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
FUNCTION Bin2Num(pc_bin) 
  LOCAL ln_cntr, ;
        ln_num
  ln_num =  0  
  FOR ln_cntr =  1  TO LEN(pc_bin)
    IF SUBSTR(pc_bin, ln_cntr,  1 ) = "1" 
       ln_num = ln_num +  2  ^ (LEN(pc_bin) - ln_cntr) 
    ENDIF
  ENDFOR 
RETURN (ln_num)
...
Рейтинг: 0 / 0
29.05.2004, 15:24
| Ответить | Цитировать | Написать  
2 vopros
    #32539835
Фотография MaestroEv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MaestroEv
Участник
По первому... Rand() *31
...
Рейтинг: 0 / 0
29.05.2004, 15:53
| Ответить | Цитировать | Написать  
2 vopros
    #32539841
novichek1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
novichek1
Гость
Spasibo, vam! 1-y ponyal, 2-y seycas poprobuyu. Spasibo.
No u menya yeshyo 1 vopros:
V tablitse 2 polya: A i B ,oba numeric. 4 zapis:

A B

a1 b1
a2 b2
a3 b3
a4 b4


nado proverit : naxoditsya li kajdiy zapis B mejdu sosednimi zapisyami A

1. a1>b1, a1>b2, a1>b3, a1>b4
2. a1<b1<a2, a1<b2<a2, a1<b3<a2, a1<b4<a2
3. a2<b1<a3, a2<b2<a3, a2<b3<a3, a2<b4<a3
4. a3<b1<a4, a3<b2<a4, a3<b3<a4, a3<b4<a4

Vot takoy ochen slojniy dlya menya zadaca, Pomoqite yesli mojete!
...
Рейтинг: 0 / 0
29.05.2004, 16:22
| Ответить | Цитировать | Написать  
2 vopros
    #32540464
alexFV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexFV
Участник
2 novichek1
Вариантов решения твоей задачи множество.
Например можно использовать массив.
Привожу примерный код:
Пункт 1 я не делал - это ты сам легко сделаешь, а так примерно это будет выглядеть так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
select MyTable &&Выбираем требуюмую таблицу
copy to array aMyArray && Заносим данные в массив
*Далее обычный вложенный цикл
for i= 1  to alen(aMyArray, 1 )- 1 
	for j= 1  to alen(aMyArray, 1 )
		if between(aMyArray[j, 2 ],aMyArray[i, 1 ],aMyArray[i+ 1 , 1 ])
			ResProv = .T.
		else
			ResProv = .F.			
		endif
		? aMyArray[j, 2 ],aMyArray[i, 1 ],aMyArray[i+ 1 , 1 ]
		? ResProv 
	endfor
endfor

Попробуй, хотя на скорую руку, и я не проверял, но должно работать.
...
Рейтинг: 0 / 0
31.05.2004, 09:40
| Ответить | Цитировать | Написать  
2 vopros
    #32540477
alexFV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexFV
Участник
Код с ошибкой.
Я просто хотел показать смысл варианта с массивом.
...
Рейтинг: 0 / 0
31.05.2004, 09:46
| Ответить | Цитировать | Написать  
2 vopros
    #32540483
alexFV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexFV
Участник
Исправь:
Код: plaintext
for i= 2  to alen(aMyArray, 1 )
да
Код: plaintext
if between(aMyArray[j, 2 ],aMyArray[i- 1 , 1 ],aMyArray[i, 1 ])

Должно работать, сам потестируй.
...
Рейтинг: 0 / 0
31.05.2004, 09:55
| Ответить | Цитировать | Написать  
2 vopros
    #32541243
novichek1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
novichek1
Гость
Oshibichniy index:

if between(aMyArray[j,2],aMyArray[i-1,1],aMyArray[i,1])

i bez massiva mojna eto delat?
...
Рейтинг: 0 / 0
31.05.2004, 15:49
| Ответить | Цитировать | Написать  
2 vopros
    #32541370
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Вообще-то написанное тобой условие невыполнимо. Одновременно, не может выполниться условие:
1. a1>b1 ...
2. a1<b1<a2 ...

Т.е. b1 не может быть одновременно и больше и меньше a1

Но если проверять то, что ты написал словами, то это решается достаточно просто. Тебе ведь требуется просто запомнить значение предыдущей записи.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
LOCAL lnPrevA
select MyTab
GO TOP
* Устанавливаю начальное значение заведомо меньше первого значения B
lnPrevA = MyTab.B -  1 
SCAN WHILE m.lnPrevA<MyTab.B AND MyTab.A>MyTab.B
lnPrevA = MyTab.A
ENDSCAN

IF EOF('MyTab')
* Все в порядке, проблем нет
ELSE
* В текущей записи НЕ выполняется условие, что значение B меньше
* значения A в текущей записи, но больше значения A в предыдущей записи
ENDIF
...
Рейтинг: 0 / 0
31.05.2004, 16:36
| Ответить | Цитировать | Написать  
2 vopros
    #32541506
novichek1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
novichek1
Гость
Spasibo! polucilsya! No nashcet 2- vopros u menya chto to ne polucaetsya:
nado chislo iz 10-m vide pereobrozovat na 2-m.
...
Рейтинг: 0 / 0
31.05.2004, 17:25
| Ответить | Цитировать | Написать  
2 vopros
    #32541585
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Ну, так ведь Sergey Ch привел код. Или непонятно написано. Ну тогда то же самое только по другому отформатировано:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
?Num2Bin( 27 )

FUNCTION Num2Bin
LPARAMETERS tnNum
LOCAL lnNum, lcBin
lcBin = ''
lnNum = tnNum
DO WHILE m.lnNum<> 0 
	lcBin = STR(MOD(m.lnNum, 2 ), 1 ) + m.lcBin
	lnNum = INT(m.lnNum/ 2 )
ENDDO
RETURN m.lcBin
...
Рейтинг: 0 / 0
31.05.2004, 18:26
| Ответить | Цитировать | Написать  
2 vopros
    #32541778
Sergey Ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Ch
Участник
To: ВладимирМ

Спасибо, что меня поправили, а то я не ту кнопку форматирования нажал :(
...
Рейтинг: 0 / 0
01.06.2004, 00:09
| Ответить | Цитировать | Написать  
2 vopros
    #32541862
navichek1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
navichek1
Гость
Spasibo
...
Рейтинг: 0 / 0
01.06.2004, 07:24
| Ответить | Цитировать | Написать  
2 vopros
    #32541920
piva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
piva
Участник
А вот еще

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
?Num2Bin( 27 )

FUNCTION Num2Bin
LPARAMETERS tnNum
LOCAL lcBin
lcBin=""
For i= 0  to  31 
	lcBin=Iif(Bittest(tnNum,i),"1","0")+lcBin
Next
RETURN SubStr(lcBin,At("1",lcBin))
...
Рейтинг: 0 / 0
01.06.2004, 08:43
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / 2 vopros
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]