Вверх ↑
Этот топик читают: Гость
Разработчик
Ответов: 26151
Рейтинг: 2127
#31: 2008-02-10 17:04:41 ЛС | профиль | цитата
Вариант с IntToBits



Add(MainForm,6168812,77,119)
{
Left=20
Top=105
Width=296
Height=281
Position=1
link(onCreate,10511176:doEvent1,[])
}
Add(ArrayEnum,11530578,217,140)
{
link(onItem,12950487:doConvert,[])
link(onEndEnum,9387158:doEnum,[(261,153)(261,219)(205,219)(205,286)])
link(Array,533869:Array,[])
}
Add(StrList,10534379,343,140)
{
}
Add(ListBox,533869,203,70)
{
Left=10
Top=35
Width=130
Height=155
TabOrder=-1
Strings=#7:0010000|7:0111000|7:0110000|7:0000010|7:0100010|
}
Add(Convertor,12950487,273,140)
{
Mode=7
link(onResult,10534379:doAdd,[])
}
Add(StrList,1659569,343,280)
{
}
Add(ListBox,2303860,203,210)
{
Left=145
Top=35
Width=130
Height=155
TabOrder=-1
Strings=#7:0001000|7:0011000|7:0110000|7:0110010|7:0100010|
}
Add(ArrayEnum,9387158,217,280)
{
link(onItem,15685451:doConvert,[])
link(onEndEnum,2361031:doEnum,[(303,293)(303,216)])
link(Array,2303860:Array,[])
}
Add(Convertor,15685451,273,280)
{
Mode=7
link(onResult,1659569:doAdd,[])
}
Add(ArrayEnum,2361031,357,210)
{
link(onItem,1185272:doRead,[(401,216)(401,286)(345,286)(345,356)])
link(onEndEnum,12521979:doData,[(411,223)(411,363)])
link(Array,10534379:Array,[])
}
Add(ArrayRW,1185272,357,350)
{
link(onRead,12521979:doOperation1,[])
link(Array,1659569:Array,[])
link(Index,2361031:Index,[])
}
Add(Edit,15479895,518,343)
{
Left=160
Top=195
Width=30
Text=""
}
Add(MultiElementEx,12521979,434,343)
{
@Hint=#11:Coincidence|
link(onEventData,15479895:doText,[])
link(onResult,1846163:doText,[(492,356)(492,391)])
link(Op2,2361031:Item,[(440,293)(363,293)])
}
BEGIN_SDK
Add(EditMultiEx,16634185,21,21)
{
WorkCount=#11:doOperation|12:doOperation1|6:doData|
EventCount=#11:onEventData|8:onResult|
DataCount=#3:Op2|
Width=489
Height=291
link(doOperation,10001985:doClear,[(269,27)(269,97)])
link(doOperation1,5611236:doOperation,[(35,34)(35,76)])
link(doData,1227567:doEvent1,[(245,41)(245,209)])
}
Add(Math,5611236,49,70)
{
OpType=6
ResultType=0
link(onResult,13113798:doEvent1,[])
link(Op2,16634185:Op2,[(62,46)(27,46)])
}
Add(Hub,13113798,98,70)
{
OutCount=3
link(onEvent1,10949165:doBits,[])
link(onEvent2,7134683:doCalc,[(184,83)(184,160)])
}
Add(Memory,7725410,287,105)
{
}
Add(Memory,14433286,280,98)
{
}
Add(Memory,11543668,273,91)
{
}
Add(Memory,5639956,266,84)
{
}
Add(Memory,2800136,259,77)
{
}
Add(Memory,7989143,252,70)
{
}
Add(Math,9717891,364,154)
{
Op1=1
ResultType=0
link(onResult,10001985:doValue,[(408,160)(408,129)(359,129)(359,90)])
link(Op2,14671923:Var2,[])
}
Add(Memory,10001985,371,84)
{
Default=Integer(0)
}
Add(MathParse,7134683,252,154)
{
DataCount=6
MathStr="%1+%2+%3+%4+%5+%6"
ResultType=0
link(onResult,9717891:doOperation,[])
link(X1,7989143:Value,[])
link(X2,2800136:Value,[])
link(X3,5639956:Value,[])
link(X4,11543668:Value,[])
link(X5,14433286:Value,[])
link(X6,7725410:Value,[])
}
Add(IntToBits,10949165,175,70)
{
Count=6
Data_0=Integer(0)
Data_1=Integer(1)
link(onBit1,7989143:doValue,[])
link(onBit2,2800136:doValue,[])
link(onBit3,5639956:doValue,[])
link(onBit4,11543668:doValue,[])
link(onBit5,14433286:doValue,[])
link(onBit6,7725410:doValue,[])
}
Add(MathParse,11146612,406,252)
{
MathStr="%1*100 div 35"
link(onResult,16634185:onResult,[(474,258)(474,34)])
link(X1,8057683:Result,[])
}
Add(Hub,1227567,322,203)
{
link(onEvent1,8057683:doOperation,[])
link(onEvent2,11146612:doCalc,[(380,216)(380,258)])
}
Add(GetDataEx,14671923,364,126)
{
link(Data,10001985:Value,[])
}
Add(Math,8057683,406,203)
{
OpType=1
Op1=35
ResultType=0
link(onResult,16634185:onEventData,[(474,209)(474,27)])
link(Op2,14671923:Var3,[(419,135)])
}
END_SDK
Add(Hub,10511176,140,133)
{
OutCount=3
link(onEvent1,12521979:doOperation,[(303,139)(303,349)])
link(onEvent2,11530578:doEnum,[])
}
Add(Label,926163,119,21)
{
Left=45
Top=10
Width=55
Height=17
Font=[MS Sans Serif,8,1,0,1]
Caption="One Cow"
}
Add(Label,1363523,203,21)
{
Left=185
Top=10
Width=56
Height=17
Font=[MS Sans Serif,8,1,0,1]
Caption="Tow Cow"
}
Add(Label,13461899,245,21)
{
Left=80
Top=205
Width=74
Height=17
Font=[MS Sans Serif,8,1,0,1]
Caption="Coincidence"
}
Add(Edit,1846163,518,385)
{
Left=160
Top=215
Width=30
Text=""
}
Add(Label,1893345,161,21)
{
Left=195
Top=217
Width=13
Height=17
Font=[MS Sans Serif,8,1,0,1]
Caption="%"
}

карма: 22

0
Ответов: 8926
Рейтинг: 823
#32: 2008-02-10 19:03:31 ЛС | профиль | цитата
А вот посимвольное сравнение несчастных коров (проверил время перебора 100х100)
code_8350.txt
карма: 19

0
файлы: 1code_8350.txt [5.6KB] [484]
Разработчик
Ответов: 26151
Рейтинг: 2127
#33: 2008-02-10 19:12:05 ЛС | профиль | цитата
Ну вот, одни советники и пытаются выступить, видимо, только у них и есть интерес к оттачиванию методов оптимизации алгоритмов. Остальные пользователи, что-то приутихли.
карма: 22

0
Ответов: 899
Рейтинг: 43
#34: 2008-02-10 23:14:54 ЛС | профиль | цитата
Мой вариант, доработанный

карма: 0
Время верстки: %cr_time% Текущее время: %time%
1
Голосовали:Stasie
Разработчик
Ответов: 26151
Рейтинг: 2127
#35: 2008-02-10 23:22:40 ЛС | профиль | цитата
unalex, что-то у меня от коров остались одни голени на холодец

А так, неплохо. Есть и поголовная идентификация и стадная, да и интерфейс -- дружественный.
карма: 22

0
Ответов: 899
Рейтинг: 43
#36: 2008-02-10 23:29:48 ЛС | профиль | цитата
nesco, сейчас исправлю(я как раз пост редактировал, не ту схемку сунул)

[size=-2]------ Добавлено в 23:29
nesco писал(а):
Есть и поголовная идентификация и стадная, да и интерфейс -- дружественный

Посильная помощь народному хозяйству
карма: 0
Время верстки: %cr_time% Текущее время: %time%
1
файлы: 1Cow.sha [118.7KB] [533]
Голосовали:Валерий
Разработчик
Ответов: 26151
Рейтинг: 2127
#37: 2008-02-10 23:31:35 ЛС | профиль | цитата
unalex, ну вот, уже лучше, холодец наваристей будет


карма: 22

0
файлы: 1cow_002.jpg [6.2KB] [438]
Ответов: 899
Рейтинг: 43
#38: 2008-02-10 23:33:19 ЛС | профиль | цитата
Хе, а я только что открывал у меня полный суповой набор
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 16884
Рейтинг: 1239
#39: 2008-02-10 23:38:44 ЛС | профиль | цитата
nesco писал(а):
а ссылку на источник дать забыл

в наши дни в некоторых случаях используется и упрощенная запись римских чисел: например, в программе Microsoft Excel при преобразовании арабских цифр в римские при помощи функции "РИМСКОЕ()" можно использовать несколько видов представления чисел, от классического до сильно упрощенного (так, число 499 может быть записано как CDXCIX, LDVLIV, XDIX, VDIV или ID).

http://www.cross-plus-a.com/rus/html/voc7rom.htm
Это все к тому о чем ты говорил выше - не корректно поставлена задача.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 899
Рейтинг: 43
#40: 2008-02-10 23:42:41 ЛС | профиль | цитата
nesco, а что такое
nesco писал(а):
метод определения линейного синдрома битовых ошибок второй матрицы, по отношению к первой

объясни(те) в нескольких словах, как он работает, может пригодится

[size=-2]------ Добавлено в 23:42
можно использовать несколько видов представления чисел, от классического до сильно упрощенного (так, число 499 может быть записано как CDXCIX, LDVLIV, XDIX, VDIV или ID)


читаю, аж страшно становится
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Разработчик
Ответов: 26151
Рейтинг: 2127
#41: 2008-02-10 23:49:23 ЛС | профиль | цитата
unalex,
Это -- "умное" название обычного XOR'а. Да пошутил я, просто, хотя, именно это метод широко используется для определения ошибок.

Tad, остановимся на методе классического преобразования десятичной в Римскую, и расширенной для обратного. С чертой -- пролет, никак у нас ее не поставить и не передать.
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#42: 2008-02-11 00:27:01 ЛС | профиль | цитата
nesco, Твой компонент переводит любой вариант римских правильно. Все ОК
------------ Дoбавленo:

unalex писал(а):
читаю, аж страшно становится
а представь как им весело было что нибудь рассчитать, когда арабских незнали
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 5446
Рейтинг: 323
#43: 2008-02-11 11:08:47 ЛС | профиль | цитата
А черту можно скобками (квадратными например) изобразить
карма: 1

0
Разработчик
Ответов: 26151
Рейтинг: 2127
#44: 2008-02-11 16:11:40 ЛС | профиль | цитата
iarspider писал(а):
А черту можно скобками (квадратными например) изобразить
А почему бы и нет. Интересная идея. Подумаю на досуге.
------------ Дoбавленo:

iarspider, я тут подумал -- а может проще разделителем, типа "тире".
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#45: 2008-02-11 23:22:42 ЛС | профиль | цитата
nesco, а миллион - двойная черта. Но ничего в голову не приходит
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)