|
Платные хостинги
Раскрутка сайта
Книги по программированию
Функция? ФУНКЦИЯ!!!!!!!, вопрос жизни и смерти
- Вопрос архиважнейший! Срочняк, помогите плиз. Как передать функцию другой функции?Пробовал следующее:Код type funtik=function(x:real):real;.........function ararat(x:real):real;.........function gora(f:funtik;a,b:real):real;.........{main program}BEGINWRITELN(gora(ararat(0.1),0.2,0.7));readln;END.highlightSyntax('delphiZTU5Yj','delphi');НЕ РАБОТАЕТ!В чём загвозка?
- А почему не сделать так:vararr : real;BEGINarr := ararat(0.1);WRITELN(gora(arr,0.2,0.7));readln;END.
- или так Код vararr : real;function ararat(x:real):real;function gora(f,a,b:real):real;BEGINWRITELN(gora(arart(arr),0.2,0.7));readln;END. highlightSyntax('delphiGM3Mjc','delphi');
- Недостаточный уровень знаний и отсутствие навыков поиска более легкого пути.МВпредь подбирайте название темы получше!
- Попробуй вначале поставить {$F+}
- ну ты загнул. У меня задание такое! Цитата (Mal Hack @ 15.12.2004, 19:44)А почему не сделать так:vararr : real;BEGINarr := ararat(0.1);WRITELN(gora(arr,0.2,0.7));readln;END. а потому что на вложеную функцию повлияет (у меня в проге) внешняя (через глобальне параметры. У меня 3 внешних и 7 внутренних функций. А теперь посчитай во сколько раз увеличится моя прога если я буду считать всё по отдельности.... Вот тебе на лицо Цитата (Pakshin A. S. @ 15.12.2004, 21:57)отсутствие навыков поиска более легкого путиЦитата (Jureth @ 16.12.2004, 13:07)Попробуй вначале поставить {$F+} Попробую, пасиб. Вот человек реально помог советом, а не показывал как некоторыеЦитата (Pakshin A. S. @ 15.12.2004, 21:57)Недостаточный уровень знаний
- Я просто не вижу смысла это делать... нафиг передавать всю вункцию, если можно передать её результирующее значение?
-
- Процедурные и функциональные типы и перенные - здесь есть неплохое описание.
- Код type TFunc=function (x:real):real; function Func(x:real):real; begin Func:=x*x; end; procedure Func1(x:real;P:Pointer); var F:TFunc; begin F:=TFunc(P); writeln('y=f(',x,')=',F(x)); end; begin {...} Func1(0.1,@Func); {...} end.highlightSyntax('delphimY4M2I','delphi');
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
