Перебор строк StrList с помощью ArrayRW

Вверх ↑

Форумы Помощь по пакетуПеребор строк StrList с помощью ArrayRW ← Ctrl1 234 5 6 7Ctrl →

Этот топик читают: Гость

Этот топик был перемещен из раздела "Помощь по среде"

Ответов: 44

Рейтинг: 0

#31: 2019-09-08 16:13:56 ЛС | профиль | цитата

То есть такая программа правильная?

карма: 0

Ответов: 758

Рейтинг: 112

#32: 2019-09-08 16:32:19 ЛС | профиль | цитата

Igor08, Не правильных программ не существует

. Что Вы хотите сделать

Если Вам нужен файлик с перебором от 111 до 120, то это делается так


Add(MainForm,2953706,287,112)
{
 link(onCreate,6764378:doEnabled,[])
}
Add(Button,6764378,350,126)
{
 Left=140
 Top=165
 Width=65
 Height=25
 Enabled=1
 Caption="Расчет"
 Point(doEnabled)
 link(onClick,5152022:doFor,[])
}
Add(For,5152022,399,126)
{
 Start=111
 End=120
 link(onEvent,12488435:doAdd,[])
 link(onStop,7504652:doExecute,[])
}
Add(StrList,12488435,504,126)
{
}
Add(SDialog,7504652,448,133)
{
 link(onExecute,12488435:doSave,[(494,139)(494,167)])
}

карма: 1

Ответов: 44

Рейтинг: 0

#33: 2019-09-08 16:42:54 ЛС | профиль | цитата

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

карма: 0

Ответов: 758

Рейтинг: 112

#34: 2019-09-08 16:46:05 ЛС | профиль | цитата

чтобы моя программа по моей схеме работала

,
А что Ваша программа по Вашей схеме должна в итоге выдать

Какую задачу она решает

карма: 1

Ответов: 2059

Рейтинг: 131

#35: 2019-09-08 16:50:58 ЛС | профиль | цитата

Igor08, я хренею дорогая редакция!
Это человеческая речь?

То есть такая программа правильная?

Практически у всех возникает вопрос:

miver писал(а):

Что Вы хотите сделать?

miver, опередил меня с вопросом

Igor08, извольте выражаться внятно, не по фене ботаем!
Когда сформулируешь, тогда народ и потянется!
Пока ты сам не знаешь:

Вдруг взяла тебя нервенная дрожь
Ты скажи, ты скажи, че те надо, че те надо
Может дам, может дам че ты хошь…

Редактировалось 2 раз(а), последний 2019-09-08 16:57:44

карма: 6

Ответов: 44

Рейтинг: 0

#36: 2019-09-08 17:03:49 ЛС | профиль | цитата

Мне нужно, чтобы программа работала как я ее выложил. Я для примера просто привел, что в списках 10 строк, если в списки загружать из файла произвольное количество строк будет работать? Моя программа приведенная здесь правильно составлена по схеме?

--- Добавлено в 2019-09-08 17:17:25

У меня вопрос не в том что правильный результат выдает моя программа, а в том что правильно она составлена? В ней есть кольцевание, а как без кольцевание решая ту же задачу, я не знаю.

Редактировалось 1 раз(а), последний 2019-09-08 17:17:25

карма: 0

Ответов: 2059

Рейтинг: 131

#37: 2019-09-08 17:18:03 ЛС | профиль | цитата

А что нам скажет начальник траспортого цеха?(предположим, что это зачёркнуто)
Леонид, проинтуичил? Что говорит левая-задняя чакра в созвездии стрельцов?
Я не шучу, ты всегда добрый и рассудительный человек! Я не шучу!

чтобы программа работала как я ее выложил.

Чтобы хотеть, надо мочь!
Начни заново и подумай, может иначе? - полезно!
А тыркаться в один угол, или с голоду помрёшь, или с сотрясения мозга.

P.S.

Я для примера просто привел, что в списках 10 строк, если в списки загружать из файла произвольное количество строк будет работать?

Щя приду, попробуем разобраться.
Но всё-таки, задача не осязаема!

Редактировалось 4 раз(а), последний 2019-09-08 17:40:36

карма: 6

Ответов: 758

Рейтинг: 112

#38: 2019-09-08 17:37:46 ЛС | профиль | цитата

правильно она составлена?

Правильно. У меня компилируется и даже запускается

Ну а результат, то дело житейское

Сам себе режиссёр
"кольцевание" не запрещено, просто если в кольцевании не будет конца, то может закончится память, стек или еще что-нибудь. А так все норм создатель программы сам знает, что делает

--- Добавлено в 2019-09-08 17:51:42

flint2, Если будеш разбиратся, то распутал паутину


Add(MainForm,7631360,378,210)
{
 link(onCreate,6764378:doEnabled,[])
}
Add(StrList,8441797,826,168)
{
 Strings=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|2:10|0:|
}
Add(StrList,9680646,1246,287)
{
 Strings=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|2:10|0:|
}
Add(Button,6764378,434,224)
{
 Left=140
 Top=165
 Width=65
 Height=25
 Enabled=1
 Caption="Расчет"
 Point(doEnabled)
 link(onClick,13410931:doEvent1,[])
}
Add(ArrayEnum,4346486,840,231)
{
 link(onItem,5360588:doEvent1,[])
 link(onEndEnum,1934759:doNext,[(879,244)(879,160)(571,160)(571,195)])
 link(Array,8441797:Array,[])
}
Add(ArrayEnum,15313221,1036,238)
{
 link(onItem,5004562:doCalc,[])
 link(onEndEnum,8663432:doEvent1,[(1082,251)(1082,300)])
 link(Array,9680646:Array,[(1042,229)(1077,229)(1077,341)(1266,341)])
}
Add(Memory,817057,1246,189)
{
}
Add(MathParse,5004562,1246,238)
{
 link(onResult,6669677:doEvent1,[])
 link(X1,817057:Value,[])
}
Add(Label,3978511,1351,238)
{
 Left=50
 Top=50
}
Add(StrList,9765544,1337,350)
{
}
Add(Hub,8663432,1127,294)
{
 link(onEvent1,9680646:doClear,[])
 link(onEvent2,6424699:doEnum,[])
}
Add(Hub,6669677,1295,238)
{
 link(onEvent1,3978511:doText,[])
 link(onEvent2,9765544:doAdd,[(1320,251)(1320,356)])
}
Add(ArrayEnum,6424699,1155,301)
{
 link(onItem,9680646:doAdd,[(1194,307)(1194,293)])
 link(onEndEnum,9765544:doClear,[(1194,314)(1194,363)])
 link(Array,9765544:Array,[(1161,278)(1287,278)(1287,404)(1357,404)])
}
Add(Counter,1934759,581,189)
{
 link(onNext,9923830:doCompare,[])
}
Add(If_else,9923830,630,189)
{
 Op2=Integer(2)
 link(onTrue,8779670:doMessage,[(683,195)(683,426)])
 link(onFalse,11648144:doWork1,[(676,202)])
 AddHint(30,-23,21,13,Op2)
}
Add(Hub,13410931,518,224)
{
 link(onEvent1,1934759:doReset,[(543,230)(543,209)])
 link(onEvent2,11648144:doWork2,[])
}
Add(SDialog,7504652,693,189)
{
 link(onExecute,15118024:doEvent1,[])
}
Add(Hub,5360588,973,231)
{
 link(onEvent1,817057:doValue,[(998,237)(998,195)])
 link(onEvent2,15313221:doEnum,[])
}
Add(HubEx,11648144,672,231)
{
 link(onEvent,4346486:doEnum,[])
}
Add(LineBreak,9704935,1204,322)
{
 link(Out,9680646:doSave,[])
 Primary=[5951270,-427,-133]
}
Add(Hub,15118024,742,189)
{
 link(onEvent1,5951270:In,[])
}
Add(Message,8779670,1246,420)
{
 link(Message,9680646:Text,[])
}

Редактировалось 1 раз(а), последний 2019-09-08 17:51:42

карма: 1

Ответов: 44

Рейтинг: 0

#39: 2019-09-08 17:52:04 ЛС | профиль | цитата

Мне надо чтобы в программе одни и те же действия повторялись, только с разными входными данными, как без кольцевания не знаю. Может написать какой-то элемент или дописать в какой-то элемент в Hiasm 4, чтобы кольцевание можно было использовать.

карма: 0

Ответов: 2059

Рейтинг: 131

#40: 2019-09-08 17:53:26 ЛС | профиль | цитата

miver, в том то и дело!
Он даёт пример, из которого не понятно что надо!
Поставить счётчики и дело с концом, ан нет чего-то натыкал сравнения.
Задачи я не понимаю это точно, и строки сбивают(1..10). Он упрощает пример, но больше запутывает!
Igor08, что в конце должно быть?!
И вообще научись изъясняться и народ потянется!
Даже зная твой код, здесь никто не позарится - можешь, как у врача, или на Духу.

одни и те же действия повторялись, только с разными входными данными,

Более-менее понятно.
А сколько раз?

Add(MainForm,2953706,21,105)
{
}
Add(Hub,10362080,112,126)
{
 OutCount=3
 link(onEvent1,13804218:doWork2,[])
 link(onEvent2,15594864:doWork2,[])
 link(onEvent3,15594864:doWork3,[(165,146)])
}
Add(Memory,2294070,217,126)
{
}
Add(HubEx,13804218,182,126)
{
 link(onEvent,2294070:doValue,[])
}
Add(HubEx,15594864,161,133)
{
 link(onEvent,13804218:doWork3,[(186,139)])
}

Если всё правильно сделано в HiAsm, то можно проложить..., короче когда поток закачивается, то начинает работать точка ниже.
Я сколько угодно делал схемы с обратным вызовом (примеры нужны?), но надо просечь такое дело - ты выстрелил и покуда отдачи нет, значить паровозы не дошли до пункта назначения.
Как мужичок телеграфировал от туда командой RET, так можно поновой.
Сумбурно? Вот так и ты пытаешься и многие прыщавые преподы в вузах.

Редактировалось 3 раз(а), последний 2019-09-08 18:35:07

карма: 6

Ответов: 758

Рейтинг: 112

#41: 2019-09-08 18:27:13 ЛС | профиль | цитата

Igor08 писал(а):

одни и те же действия повторялись, только с разными входными данными

У Вас два списка. И если нужно сделать все варианты Размещений двух множеств по два,
то это делается так


Add(MainForm,7631360,350,210)
{
 Height=616
 link(onCreate,6764378:doEnabled,[])
}
Add(StrList,8441797,469,161)
{
 Strings=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|2:10|0:|
}
Add(StrList,9680646,532,161)
{
 Strings=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|2:10|2:11|0:|
}
Add(Button,6764378,406,224)
{
 Left=145
 Top=535
 Width=65
 Height=25
 Enabled=1
 Caption="Расчет"
 Point(doEnabled)
 link(onClick,4346486:doEnum,[])
}
Add(ArrayEnum,4346486,483,224)
{
 link(onItem,15313221:doEnum,[])
 link(Array,8441797:Array,[])
}
Add(ArrayEnum,15313221,546,224)
{
 link(onItem,16660885:doStrCatDlm,[])
 link(Array,9680646:Array,[])
}
Add(StrCatDelim,16660885,609,224)
{
 Delimiter=";"
 link(onStrCatDlm,1023000:doAdd,[])
 link(Str1,4346486:Item,[(615,215)(601,215)(601,264)(489,264)])
}
Add(StringTable,1023000,665,224)
{
 Left=10
 Top=10
 Width=360
 Height=515
 Columns=#1:1|1:2|
}

карма: 1

Ответов: 2059

Рейтинг: 131

#42: 2019-09-08 18:50:59 ЛС | профиль | цитата

miver, ты кудесник!
Зачислен в роту понимающих по наитию

Но кажется, что интрига в другом, или нет Igor08?

карма: 6

Ответов: 44

Рейтинг: 0

#43: 2019-09-08 19:04:01 ЛС | профиль | цитата

Я вот думаю в помощь кого-то взять для написания программы. Не могу я ее один составить. Может за нее деньги дадут. Поэтому я ее не могу сюда выложить и она не написана полностью, алгоритм есть.

карма: 0

Ответов: 2059

Рейтинг: 131

#44: 2019-09-08 19:12:23 ЛС | профиль | цитата

Может за нее деньги дадут

дурень, перекрестись.
Православный, или кто?

карма: 6

Ответов: 44

Рейтинг: 0

#45: 2019-09-08 19:19:54 ЛС | профиль | цитата

Это специальная программа для роботизированных систем, скорее всего кто этим занимается она будет нужна. И скорее всего она будет нужна на конкретном языке.

карма: 0

Форумы Помощь по пакетуПеребор строк StrList с помощью ArrayRW ← Ctrl1 234 5 6 7Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)