Dilma писал(а):
Вот так вот красиво и без каких либо ошибок А ничего красивого.
Что мы имеем после элемента Function: содержимое некого мультика, у которого (по неизвестным причинам) только одна левая входная точка, нужное количество верхних точек, и отсутствуют нижние и правые.
Но соглашусь, для факториала - хватит.
Позволительно ли будет иметь пользователю такую точку зрения

1) Я не знаю что такое функция
2) Но я знаю, что решение любой задачи - это вызов метода (или нескольких методов) некого объекта.
3) Следовательно, мои действия должны быть таковы: создал объект, выполнил необходимые методы, уничтожил его.
4) И другого не существует в природе. То что существует - лишь частное проявление этого же принципа.
И еще отмечу, что в сегодняшнем проекте Дельфи рекурсивные задачи решались бы не менее красиво, ЕСЛИ БЫ среда передавала эту схему в CodeGen.
Add(MultiElementEx,12551344,252,126)
{
Mode=1
}
BEGIN_SDK
Add(EditMultiEx,12997339,0,0)
{
WorkCount=#6:doCalk|
EventCount=#8:onResult|
Width=314
Height=102
link(doCalk,4353875:doValue,[(17,6)(17,48)])
}
Add(Math,2237160,133,42)
{
OpType=1
Op2=1
link(onResult,13725593:doCalk,[])
}
Add(If_else,7141939,77,42)
{
Type=2
Op2=Integer(1)
link(onTrue,2237160:doOperation,[])
link(onFalse,612800:doWork2,[(122,55)(122,6)])
}
Add(MultiElementEx,13725593,182,42)
{
elink(12551344)
link(onResult,2141942:doOperation,[])
}
Add(Memory,4353875,28,42)
{
link(onData,7141939:doCompare,[])
}
Add(Math,2141942,238,42)
{
OpType=2
link(onResult,612800:doWork3,[(284,48)])
link(Op1,4353875:Value,[(244,32)(224,32)(224,88)(34,88)])
}
Add(HubEx,612800,280,-7)
{
link(onEvent,12997339:onResult,[])
}
END_SDK