Вверх ↑
Ответов: 8912
Рейтинг: 823
#1: 2021-03-30 11:00:17 ЛС | профиль | цитата
konsys писал(а):
как Вы отделяете из списка Х и У

В ваших примерах для разделения данных применён "пробел", аж по шесть шт
В HшAsm принят разделитель "точка с запятой". вот схема для удаления пробелов и установки ";"
После форматирования при выборе строки данные разделяются по ";"
Форматирование


Add(MainForm,2953706,77,49)
{
Caption="Форматирование"
}
Add(Button,7691444,126,133)
{
Left=5
Top=40
Width=105
Caption="Форматировать"
link(onClick,7288359:doEvent1,[])
}
Add(ListBox,3451908,420,77)
{
Left=115
Top=5
Width=225
Height=220
DataType=1
Point(doSave)
link(onClick,1896536:doSplit,[])
}
Add(Button,6472475,126,49)
{
Left=5
Top=10
Width=105
Caption="Открыть"
link(onClick,3095066:doExecute,[])
}
Add(Button,850719,126,238)
{
Left=5
Top=200
Width=105
Caption="Сохранить как"
link(onClick,6294155:doExecute,[])
}
Add(ODialog,3095066,175,49)
{
Filter="TXT|*.txt"
link(onExecute,13432448:doEvent1,[])
}
Add(StrList,1296245,273,35)
{
}
Add(Hub,13432448,224,49)
{
link(onEvent1,1296245:doLoad,[(263,55)(263,69)])
link(onEvent2,11144969:doData,[(249,62)(249,104)])
}
Add(DoData,11144969,273,98)
{
link(onEventData,7597415:doWork2,[])
link(Data,1296245:Text,[])
}
Add(Trim,3587165,266,147)
{
Char=" "
Mode=7
link(onTrim,5774719:doReplace,[])
}
Add(HubEx,7597415,399,98)
{
link(onEvent,3451908:doText,[])
}
Add(Replace,5774719,315,147)
{
SubStr=" "
DestStr=";"
link(onReplace,1378797:doAdd,[])
}
Add(MultiStrData,1896536,469,84)
{
link(onPart1,5261645:doText,[(508,90)(508,62)])
link(onPart2,1457644:doText,[(515,97)(515,111)])
}
Add(SDialog,6294155,175,238)
{
link(onExecute,3451908:doSave,[(410,244)(410,111)])
}
Add(Edit,5261645,525,56)
{
Left=120
Top=230
Width=100
}
Add(Edit,1457644,525,105)
{
Left=230
Top=230
Width=105
}
Add(ArrayEnum,5307176,217,147)
{
link(onItem,3587165:doTrim,[])
link(onEndEnum,3268470:doEvent1,[(256,160)(256,209)])
link(Array,1296245:Array,[(223,89)(293,89)])
}
Add(StrList,1378797,364,147)
{
}
Add(DoData,2121467,364,203)
{
link(onEventData,7597415:doWork3,[(403,209)])
link(Data,1378797:Text,[])
}
Add(Hub,7288359,175,133)
{
link(onEvent1,4802883:doWork1,[(354,139)])
link(onEvent2,5307176:doEnum,[(207,146)(207,153)])
}
Add(Hub,3268470,308,203)
{
link(onEvent1,2121467:doData,[])
link(onEvent2,4802883:doWork3,[(354,216)])
}
Add(HubEx,4802883,350,154)
{
link(onEvent,1378797:doClear,[])
}

Вообще-то задание не совсем правильно -- использовать "самокорреляцию" можно , если в массиве имеется повторяющиеся фрагменты, но если массив большой и перебирать миллион строк с единичным шагом никакого терпения не хватит
В ТЗ ясно указано -- поиск заданного сигнала в зашумлённом массиве, что я и выложил ранее, благо заготовка была.
карма: 19

0