Вверх ↑
Этот топик читают: Гость
Ответов: 31
Рейтинг: 0
#31: 2019-09-08 16:13:56 ЛС | профиль | цитата
То есть такая программа правильная?
карма: 0

0
Ответов: 755
Рейтинг: 111
#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

0
Ответов: 31
Рейтинг: 0
#33: 2019-09-08 16:42:54 ЛС | профиль | цитата
Мне надо чтобы моя программа по моей схеме работала, а у меня получается кольцевание, а как без него не знаю.
карма: 0

0
Ответов: 755
Рейтинг: 111
#34: 2019-09-08 16:46:05 ЛС | профиль | цитата
чтобы моя программа по моей схеме работала
,
А что Ваша программа по Вашей схеме должна в итоге выдать Какую задачу она решает
карма: 1

0
Ответов: 1416
Рейтинг: 97
#35: 2019-09-08 16:50:58 ЛС | профиль | цитата
Igor08, я хренею дорогая редакция!
Это человеческая речь?
То есть такая программа правильная?

Практически у всех возникает вопрос:
miver писал(а):
Что Вы хотите сделать?

miver, опередил меня с вопросом
Igor08, извольте выражаться внятно, не по фене ботаем!
Когда сформулируешь, тогда народ и потянется!
Пока ты сам не знаешь:
© Балаган Лимитед писал(а):
Вдруг взяла тебя нервенная дрожь
Ты скажи, ты скажи, че те надо, че те надо
Может дам, может дам че ты хошь…


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

0
Ответов: 31
Рейтинг: 0
#36: 2019-09-08 17:03:49 ЛС | профиль | цитата
Мне нужно, чтобы программа работала как я ее выложил. Я для примера просто привел, что в списках 10 строк, если в списки загружать из файла произвольное количество строк будет работать? Моя программа приведенная здесь правильно составлена по схеме?

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

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

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

0
Ответов: 1416
Рейтинг: 97
#37: 2019-09-08 17:18:03 ЛС | профиль | цитата
А что нам скажет начальник траспортого цеха?(предположим, что это зачёркнуто)
Леонид, проинтуичил? Что говорит левая-задняя чакра в созвездии стрельцов?
Я не шучу, ты всегда добрый и рассудительный человек! Я не шучу!

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

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

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

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

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

0
Ответов: 755
Рейтинг: 111
#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

0
Ответов: 31
Рейтинг: 0
#39: 2019-09-08 17:52:04 ЛС | профиль | цитата
Мне надо чтобы в программе одни и те же действия повторялись, только с разными входными данными, как без кольцевания не знаю. Может написать какой-то элемент или дописать в какой-то элемент в Hiasm 4, чтобы кольцевание можно было использовать.
карма: 0

0
Ответов: 1416
Рейтинг: 97
#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
карма: 3

0
Ответов: 755
Рейтинг: 111
#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

0
Ответов: 1416
Рейтинг: 97
#42: 2019-09-08 18:50:59 ЛС | профиль | цитата
miver, ты кудесник!
Зачислен в роту понимающих по наитию
Но кажется, что интрига в другом, или нет Igor08?
карма: 3

0
Ответов: 31
Рейтинг: 0
#43: 2019-09-08 19:04:01 ЛС | профиль | цитата
Я вот думаю в помощь кого-то взять для написания программы. Не могу я ее один составить. Может за нее деньги дадут. Поэтому я ее не могу сюда выложить и она не написана полностью, алгоритм есть.
карма: 0

0
Ответов: 1416
Рейтинг: 97
#44: 2019-09-08 19:12:23 ЛС | профиль | цитата
Может за нее деньги дадут
дурень, перекрестись.
Православный, или кто?
карма: 3

0
Ответов: 31
Рейтинг: 0
#45: 2019-09-08 19:19:54 ЛС | профиль | цитата
Это специальная программа для роботизированных систем, скорее всего кто этим занимается она будет нужна. И скорее всего она будет нужна на конкретном языке.
карма: 0

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