Задача if27 из задачника Абрамяна: для заданного числа x составить функцию f(x)

[Аелд]

Для данного вещественного x найти значение следующей функции f,
принимающей значения целого типа:
0, если x < 0,
1, если x принадлежит [0, 1), [2, 3), . . .
−1, если x принадлежит [1, 2), [3, 4), . . .
Объясните суть задачи, пожалуйста.

[evg_m]

Объясните суть задачи, пожалуйста.

написать функцию f имеющую аргумент x вещественного типа
и возвращающую значение целого типа в соответствии со следующими правилами

{вернуть} 0, если {аргумент} x < 0,
...

[Serge_Bliznykov]

evg_m, там дальше интереснее...

нужно определять меньшее целое для переданного X и уже по нему определять, в какой интервал попало значение - в чётный или нечётный...

[Аелд]

аааа, т.е. надо взять целую часть от вещественного числа и проверить, четное оно или нет?

[evg_m]

evg_m, там дальше интереснее...

знаю, знаю ...
А вот что знает(думает) по этому поводу ТС неизвестно.

аааа, т.е. надо взять целую часть от вещественного числа и проверить, четное оно или нет?

В общем-то конечно да.

[Аелд]

Хоть и легкая прога, но может кому поможет. Вроде, рабочая.

var
    x,f:real;
begin clrscr;
  write('Введите число x: ');
  readln(x);
  if x<0 then
    f:=0
  else 
    if (trunc(x) mod 2=0) then
      f:=1
    else f:=(-1);
  writeln('Значение функции f= ', f);
  readln
end.