Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.20;
Скачать: CL | DM;

Вниз

Как сделать, чтобы вместо sqrt(t) можно было произвольную функцию   Найти похожие ветки 

 
Strij   (2003-03-08 09:08) [0]

Вот фрагмент программы:
..............
procedure TForm1.raschetClick(Sender: TObject);
type functy = function(x:real):real;
var i,x,vvod: integer;

{$F+}
function koren(t:real):real;
begin
koren:=sqrt(t);

end;

{$F-}

begin

x:=25;
rez.value:=koren(x);

end;
.............

Как сделать, чтобы вместо sqrt(t) можно было произвольную функцию пихать из программы?

Это, что, надо анализатор, например, string`овой переменной делать с перегоном в ... во что?

Спасибо за ответ.
Strij


 
theodor_iv ©   (2003-03-08 09:28) [1]

function koren(f:functy; t:real):real;
begin
koren:=f(t);
end;



Страницы: 1 вся ветка

Текущий архив: 2003.03.20;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.039 c
3-64040
tribesman
2003-03-02 19:11
2003.03.20
Выбор БД


6-64255
Barmutik
2003-01-30 17:28
2003.03.20
Помогите с TWebBrowser !


14-64290
Вадим
2003-03-03 14:29
2003.03.20
Задачка


3-63992
Денис
2003-02-28 13:26
2003.03.20
Автоматическое создание таблиц


14-64306
Дмитрий К.К.
2003-03-04 06:13
2003.03.20
Именинники 4 марта