Add(MainForm,2953706,504,238)
{
Width=157
Height=361
link(onCreate,11195374:doData,[])
}
Add(ListBox,3195096,686,168)
{
Left=5
Top=5
Width=35
Height=70
Strings=#1:5|2:10|2:20|
}
Add(ListBox,6356249,889,168)
{
Left=45
Top=5
Width=40
Height=290
Strings=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|2:10|2:11|2:12|2:13|2:14|2:15|2:16|2:17|2:18|2:19|2:20|2:21|2:22|
}
Add(Button,8351967,791,245)
{
Left=30
Top=305
Caption="+"
link(onClick,3229555:doFor,[])
}
Add(CounterEx,14688697,658,245)
{
Default=-1
Point(doMax)
link(onNext,7800218:doRead,[])
}
Add(DoData,11195374,553,252)
{
link(onEventData,2842889:doOperation,[])
link(Data,3195096:Count,[(559,222)(699,222)])
}
Add(ArrayRW,7800218,700,245)
{
link(Array,3195096:Array,[])
}
Add(Math,2842889,602,252)
{
OpType=1
Op2=1
link(onResult,14688697:doMax,[])
}
Add(For,3229555,847,245)
{
link(onEvent,9664792:doRead,[])
link(End,6356249:Count,[(860,222)(902,222)])
}
Add(ArrayRW,9664792,903,245)
{
link(onRead,1863989:doEvent1,[])
link(Array,6356249:Array,[])
}
Add(Hub,1863989,945,245)
{
link(onEvent1,14688697:doNext,[(969,251)(969,234)(646,234)(646,251)])
link(onEvent2,13419134:doString,[(971,258)(971,293)(884,293)(884,328)])
}
Add(ListBox,16625279,966,322)
{
Left=90
Top=5
Width=50
Height=290
}
Add(FormatStr,13419134,896,322)
{
Mask="%1 + %2"
link(onFString,16625279:doAdd,[])
link(Str1,7800218:Item,[(902,303)(706,303)])
link(Str2,9664792:Item,[])
}
Этот топик читают: Гость
Ответов: 871
Рейтинг: 322
|
|||
Потребовалось сложение и вычитание двух неравнозначных массивов. Может есть более хитропопый вариант?
|
|||
карма: 1 |
|
Google
vip
|
#1.1контекстная реклама от партнеров
|
Ответов: 8886
Рейтинг: 823
|
|||
kamakama, оператор "mod" (остаток от деления) Можно ещё массивы по количеству разделить автоматически, нужно-ли
mod
|
|||
карма: 19 |
|
Ответов: 871
Рейтинг: 322
|
|||
Леонид, спасибо.
|
|||
карма: 1 |
|
Ответов: 16884
Рейтинг: 1239
|
|||
Для решения поставленной задачи достаточно 9-ти компонент.
Редактировалось 1 раз(а), последний 2019-06-20 12:39:54 |
|||
карма: 25 |
|
Ответов: 871
Рейтинг: 322
|
|||
Tad, доброго вечера. При нынешней памяти пара килобайт много не прибавит. Но все равно приятно.
|
|||
карма: 1 |
|
Ответов: 16884
Рейтинг: 1239
|
|||
kamakama писал(а): При нынешней памяти |
|||
карма: 25 |
|
6