Вверх ↑
Этот топик читают: Гость
Ответов: 56
Рейтинг: 0
#1: 2022-12-17 13:23:31 ЛС | профиль | цитата
Вводная по задаче c Хабр C Днем Программиста!

Все решения к задачке к Дню Программиста

присланные автору опубликовавшему задачу в статье выше, в том числе и на HiAsm.
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 698
Рейтинг: 143
#2: 2022-12-17 14:31:21 ЛС | профиль | цитата
KPG,
Add(MainForm,14657622,182,154)
{
Width=764
link(onCreate,2551932:doReplace,[])
}
Add(Edit,6626354,245,112)
{
Width=748
Align=2
Font=[MS Sans Serif,10,0,0,1]
Text="ССС дддннннннеееееемммм ппппппрррррооооооггггггрррррааааааммммммммииииииссссссттттттаааааа!!!!!!"
}
Add(ArrayEnum,14767397,385,189)
{
link(onItem,8085234:doEvent1,[])
link(onEndEnum,4023903:doEvent1,[(431,202)(431,258)])
link(Array,13226017:Array,[])
}
Add(StrList,13226017,371,112)
{
Strings=#1:С|1: |1:д|1:н|1:е|1:м|1: |1:п|1:р|1:о|1:г|1:р|1:а|1:м|1:м|1:и|1:с|1:т|1:а|1:!|
}
Add(Replace,2551932,245,168)
{
SubStr=" "
link(onReplace,13830191:doEnum,[])
link(Str,6626354:Text,[])
}
Add(Str_Enum,13830191,301,168)
{
Delimiter=""
link(onEnum,16267152:doAdd,[])
link(onEndEnum,6107346:doWork1,[(361,181)])
}
Add(StrList,16267152,497,168)
{
Point(doGetIndex)
Point(onGetIndex)
link(onGetIndex,11976430:doEvent1,[])
}
Add(Hub,11976430,553,175)
{
link(onEvent1,16267152:doDelete,[(578,181)(578,160)(487,160)(487,188)])
link(onEvent2,12933730:doCase,[])
}
Add(Case,12933730,588,182)
{
Value=Integer(-1)
DataOnTrue=String( )
link(onNextCase,435879:doWork2,[])
link(onTrue,4383336:doEvent1,[])
}
Add(Memory,14743216,735,133)
{
Default=String( )
}
Add(Hub,8085234,441,189)
{
link(onEvent1,14743216:doValue,[(466,195)(466,139)])
link(onEvent2,16267152:doGetIndex,[])
}
Add(If_else,5110466,497,266)
{
Type=2
Op1=Integer(1)
Op2=Integer(0)
link(onFalse,6107346:doWork3,[(539,279)(539,313)(361,313)])
link(Op2,16267152:Count,[])
}
Add(StrCat,1752997,728,182)
{
Point(doClear)
link(Str1,8888575:Var1,[(734,173)(720,173)(720,222)])
link(Str2,14743216:Value,[])
}
Add(GetDataEx,8888575,728,217)
{
link(Data,1752997:Result,[])
}
Add(Memo,13941591,728,252)
{
Top=20
Width=748
Height=241
Align=5
Font=[Lucida Console,12,0,0,204]
ScrollBars=3
link(Str,8888575:Var2,[])
}
Add(Hub,4023903,455,252)
{
link(onEvent1,10146146:doEvent1,[])
link(onEvent2,5110466:doCompare,[(487,265)(487,272)])
}
Add(HubEx,6107346,357,189)
{
link(onEvent,14767397:doEnum,[])
}
Add(Hub,10146146,651,252)
{
link(onEvent1,13941591:doAdd,[])
link(onEvent2,1752997:doClear,[(697,265)(697,195)])
}
Add(Hub,4383336,644,189)
{
link(onEvent1,14743216:doClear,[(669,195)(669,146)])
link(onEvent2,435879:doWork3,[(690,202)])
}
Add(HubEx,435879,686,182)
{
link(onEvent,1752997:doStrCat,[])
}


Редактировалось 1 раз(а), последний 2022-12-17 22:11:18
карма: 15

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