Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c