bubanoid
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору terminat0r Откуда у проблемы ноги растут. Сначала в процедуру передавалась только одна функция. Эта процедура использовалась в нескольких программах. Теперь мат. проблема немного усложнилась и в ту же процедуру можно передавать и и другую функцию. Процедуру хочу переделать так, что бы не было необходимости подкручивать программы, её использующие. akaGM Цитата: причины наверняка очень весомые, да? | Да не то что бы слишком. Просто, вот эта субротина находится в модуле и используется в нескольких программах. Меняя интерфейс этой субротины надо будет также делать изменения в самих вызывающих программах. Цитата: если формат этих "func1 либо func2" одинаков | одинаков Цитата: subroutine (x, x, z, f) integer f external f z = f(x, y) чем такой вариант не устраивает? | Такой вариант не устраивает, так как надо subroutine (x, y, z, f) integer f external f z = f(x, y) if (z==func1) then делай раз else делай два endif .... end subrotine Понятно, что "if (z==func1) then..." не работает. | Всего записей: 101 | Зарегистр. 22-11-2007 | Отправлено: 20:18 05-12-2011 | Исправлено: bubanoid, 20:29 05-12-2011 |
|