Вверх ↑
Ответов: 8888
Рейтинг: 823
#1: 2014-07-22 16:59:24 ЛС | профиль | цитата
kamakama, почему ответ не словами?
------------ Дoбавленo в 16.59:
kamakama, с миллиардами, да чуть ошибаться можно, правда особо не проверял, уж шибко неохота словами набивать

Add(MainForm,15122484,210,84)
{
Width=498
Height=106
}
Add(StrList,2370874,273,84)
{
Strings=#7:ст*=100|9:двес*=200|9:трис*=300|11:чет*ст*=400|9:пя*от=500|9:ш*сот=600|9:с*сот=700|9:в*сот=800|9:д*сот=900|9:од*ть=+11|11:двен*ть=+12|11:трин*ть=+13|9:че*ть=+14|10:пя*ать=+15|10:ше*ать=+16|10:се*ать=+17|10:во*ать=+18|10:де*ать=+19|11:двад*ть=+20|11:трид*ть=+30|8:сор*=+40|10:пя*сят=+50|10:ше*сят=+60|10:се*сят=+70|10:во*сят=+80|10:де*сто=+90|7:один=+1|7:одна=+1|6:два=+2|6:две=+2|6:три=+3|9:четыре=+4|7:пять=+5|9:шессть=+6|7:семь=+7|9:восемь=+8|9:девять=+9|10:десять=+10|15:тысяч*=)*1000+(|20:Миллион*=)*1000000+(|22:Миллиард*=)*1000000000|10:плюс=))+((|12:приба*=))+((|11:минус=))-((|10:отн*=))-((|10:умн*=))*((|11:разд*=))/((|8:равно=))|8:будет=))|0:|
}
Add(Edit,16025427,210,147)
{
Left=10
Top=10
Width=465
Text="сорок семь тысяч сто тридцать восемь разделить на тридцать семь будет "
ClearAfterEnter=1
Point(doSelectAll)
link(onEnter,5534759:doEvent1,[])
}
Add(Str_Enum,2643939,210,196)
{
Delimiter=" "
link(onEnum,3519832:doEnum,[])
link(onEndEnum,6607770:doText,[(249,209)(249,272)])
link(String,16025427:Text,[])
}
Add(StrMask,3625011,420,196)
{
Point(doMask)
link(onTrue,13976973:doEvent1,[])
link(Str,2643939:Part,[(426,187)(328,187)(328,238)(223,238)])
}
Add(ArrayEnum,3519832,287,196)
{
link(onItem,4700407:doSplit,[])
link(Array,2370874:Array,[])
}
Add(StrPart,4700407,336,196)
{
Char="="
Point(Left)
Point(Right)
link(onPart,6130821:doEvent1,[])
}
Add(Hub,6130821,385,203)
{
link(onEvent1,3625011:doMask,[])
link(onEvent2,3625011:doCompare,[(410,216)(410,202)])
}
Add(Hub,13976973,462,203)
{
link(onEvent1,8438244:doData,[])
link(onEvent2,3519832:doStop,[(487,216)(487,244)(277,244)(277,209)])
}
Add(Hub,5534759,252,154)
{
OutCount=3
link(onEvent1,16025427:doSelectAll,[(275,160)(275,139)(200,139)(200,167)])
link(onEvent2,2634431:doClear,[(578,167)(578,216)])
link(onEvent3,2643939:doEnum,[(277,174)(277,188)(200,188)(200,202)])
}
Add(DoData,8438244,490,203)
{
link(onEventData,13630778:doStrCat,[])
link(Data,4700407:Right,[(496,194)(482,194)(482,236)(349,236)])
}
Add(Edit,6607770,588,266)
{
Left=20
Top=40
Width=290
link(onChange,3858424:doEvent1,[])
link(Str,5004618:Var2,[])
}
Add(StrCat,13630778,539,203)
{
link(onStrCat,2634431:doValue,[])
link(Str1,5004618:Var1,[(545,194)(528,194)(528,243)])
}
Add(Memory,2634431,588,203)
{
Default=String((()
}
Add(GetDataEx,5004618,588,238)
{
link(Data,2634431:Value,[])
}
Add(MathParse,7496185,672,259)
{
DataCount=0
MathStr=""
Point(doMathStr)
link(onResult,14526168:doText,[])
}
Add(Hub,3858424,630,266)
{
link(onEvent1,7496185:doMathStr,[])
link(onEvent2,7496185:doCalc,[(655,279)(655,265)])
}
Add(Edit,14526168,721,259)
{
Left=325
Top=40
Width=150
}
Add(Label,8039849,336,84)
{
Left=310
Top=40
Width=15
Font=[MS Sans Serif,12,1,0,1]
Caption="="
AutoSize=1
}
карма: 19

0