Форум: "Основная";
Текущий архив: 2003.03.20;
Скачать: [xml.tar.bz2];
ВнизКак сделать, чтобы вместо 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c