Free Pascal игнорирует $F

@ZimOne · Регистрация: 21.10.2013

Author24 — интернет-сервис помощи студентам

Решаю задачу, в которой некоторые процедуры и функции должны получать параметры-функции. Однако при компиляции сообщается что директива $F была проигнорирована и компилятор ругается на неправильное число параметров функции-параметра. Что с этим сделать можно?

Pascal

program task1;
 
uses crt;
 
type TF = function(x: real): real;
 
{$F+}
 
function F1(x: real): real;
begin
    F1 := 3 * (0.5 * (x + 1) + 1)
end;
 
function F2(x: real): real;
begin
    F2 := 2.5 * x - 9.5
end;
 
function F3(x: real): real;
begin
    if x > 0 then
        F3 := 5 / x
end;
 
{$F-}
 
function integral(f: TF; a, b, eps2: real): real;
begin
    // тут что-то будет
    integral := 0
end;
 
procedure root(f, g: TF; a, b, eps1, x: real);
begin
    //тут что-то будет
end;
 
VAR resh: real;
 
BEGIN
    resh := integral(F1, 3.0, 5.0, 0.001)
END.

@bormant · 10.02.2017, 23:28

В зависимости от режима компиляции может требоваться @ перед именем функции при передаче ее параметром.

@ZimOne · 10.02.2017, 23:33 **[ТС]**

Да, действительно с @ работает. А в каком случае вообще надо использовать директиву $F? вместо @

@bormant · 11.02.2017, 02:02

ZimOne,
понимаете какая штука...
Жил был МС-Дос и 16-битный реальный режим процессора (real mode), в котором дальный (far) указатель состоял из пары сегмент:смещение.
А потом для работы в защищенных режимах (protected mode) стали использовать плоскую модель памяти (flat memory model), в которой не оказалось места варианту сегмент:смещение. А компилятор, видя код, написанный для 16-битного реального режима, просто говорит, что он это проигнорирует, и советует посмотреть на календарь...

Тем не менее, требование о наличии @ перед именем функции для получения ее адреса зависит только от варианта выбранного синтаксиса (tp, delphi, fpc, objfpc, ...), а игнорирование директивы или ключевого слова far -- от того, подо что производится сборка.

Добавлено через 5 минут
См. http://www.freepascal.org/docs... fse82.html

Free Pascal игнорирует $F

Решение

Решение

@bormant Модератор 7795 / 4618 / 2830 Регистрация: 22.11.2013 Сообщений: 13,114 Записей в блоге: 1
	10.02.2017, 23:28	2
	Сообщение было отмечено ZimOne как решение Решение В зависимости от режима компиляции может требоваться @ перед именем функции при передаче ее параметром. 1

@ZimOne 0 / 0 / 0 Регистрация: 21.10.2013 Сообщений: 84
	10.02.2017, 23:33 [ТС]	3
	Да, действительно с @ работает. А в каком случае вообще надо использовать директиву $F? вместо @ 0

@bormant Модератор 7795 / 4618 / 2830 Регистрация: 22.11.2013 Сообщений: 13,114 Записей в блоге: 1
	11.02.2017, 02:02	4
	Сообщение было отмечено ZimOne как решение Решение ZimOne, понимаете какая штука... Жил был МС-Дос и 16-битный реальный режим процессора (real mode), в котором дальный (far) указатель состоял из пары сегмент:смещение. А потом для работы в защищенных режимах (protected mode) стали использовать плоскую модель памяти (flat memory model), в которой не оказалось места варианту сегмент:смещение. А компилятор, видя код, написанный для 16-битного реального режима, просто говорит, что он это проигнорирует, и советует посмотреть на календарь... Тем не менее, требование о наличии @ перед именем функции для получения ее адреса зависит только от варианта выбранного синтаксиса (tp, delphi, fpc, objfpc, ...), а игнорирование директивы или ключевого слова far -- от того, подо что производится сборка. Добавлено через 5 минут См. http://www.freepascal.org/docs... fse82.html 2