knoot0279 писал(а):
вот что в итоге вышло...А вот что должно было выйти и всего на 19-ти компонентах вместо твоих 133-х : (хотя можно было и совсем коротко)
Add(Edit,6662796,455,38)
{
Left=260
Top=5
Text="2;3"
Alignment=2
}
Add(MainForm,10715029,210,147)
{
Height=130
BorderStyle=1
Position=1
}
Add(Edit,608451,280,217)
{
Left=25
Top=5
Width=160
Text="2x^3+15x^2+24x+3"
}
Add(Replace,7521685,280,266)
{
SubStr="x"
DestStr="*%1"
link(onReplace,14532254:doEvent1,[])
link(Str,608451:Text,[])
}
Add(Button,8660459,210,266)
{
Left=320
Top=5
Width=60
Caption="Посчитать"
link(onClick,7521685:doReplace,[])
}
Add(Label,2424607,266,147)
{
Left=5
Top=5
Width=20
Height=20
Font=[MS Sans Serif,10,1,0,1]
Caption="y="
}
Add(Label,14722588,308,147)
{
Left=185
Top=5
Width=81
Height=17
Font=[MS Sans Serif,8,1,0,1]
Transparent=0
Caption="на отрезке ["
}
Add(Label,13666624,350,147)
{
Left=310
Top=5
Width=7
Height=17
Font=[MS Sans Serif,8,1,0,1]
Caption="]"
}
Add(StyleXP,16269506,210,217)
{
}
Add(StrPart,834924,455,77)
{
Char=";"
DirectEvent=0
Point(Left)
Point(Right)
link(onSplit,2896240:doWork1,[])
link(onPart,2896240:doWork2,[])
link(Str,6662796:Text,[])
}
Add(Memo,1814233,518,266)
{
Top=27
Width=384
Height=65
Align=4
Font=[MS Sans Serif,10,1,0,1]
}
Add(MathParse,3134999,399,266)
{
DataCount=1
MathStr=""
Point(doMathStr)
link(onResult,11158118:doString,[])
link(X1,12944616:Var1,[(405,202)])
}
Add(Hub,14532254,343,266)
{
OutCount=3
link(onEvent1,2028924:doMask,[(376,272)(376,230)])
link(onEvent2,3134999:doMathStr,[])
link(onEvent3,834924:doSplit,[(375,286)(375,308)(189,308)(189,83)])
}
Add(FormatStr,11158118,462,266)
{
DataCount=3
Mask="y(%2) = %1 = %3"
link(onFString,1814233:doAdd,[])
link(Str1,2028924:FString,[(468,257)(461,257)])
link(Str2,12944616:Var3,[(475,202)])
}
Add(GetIndexData,15189299,455,140)
{
link(onIndex,5018701:doEvent1,[])
link(Data1,834924:Left,[])
link(Data2,834924:Right,[])
}
Add(ChanelToIndex,2896240,511,77)
{
link(onIndex,15189299:doIndex,[(550,83)(550,34)(439,34)(439,146)])
}
Add(GetDataEx,12944616,455,197)
{
link(Data,15189299:Var,[])
}
Add(FormatStr,2028924,455,217)
{
Mask=""
Point(doMask)
Point(FString)
link(Str1,12944616:Var2,[])
}
Add(Hub,5018701,504,140)
{
link(onEvent1,2028924:doString,[(547,146)(547,190)(445,190)(445,223)])
link(onEvent2,3134999:doCalc,[(535,153)(535,179)(388,179)(388,272)])
}