Вычисление функции на разных интервалах

If24. Для данного вещественного x найти значение следующей функции f, принимающей вещественные значения:

|f(x) =|2·sin(x), если x > 0,
6 − x, если x ≤ 0.| |------|-----------------------------------------------|

var
  x, f: real;

begin
  write('x = ');
  readln(x);
  { Вычисляем значение функции f(x)
  в зависимости от x: }
  if x > 0 then f := 2 * sin(x) { <== Значение при x>0 }
  else f := 6 - x; { <== Значение при x≤0 }
  writeln;
  writeln('f(', x, ') = ', f:0:3);
  readln
end.

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10308 .. 1.8∙10308 **function** Sin(x: real): real;: Возвращает синус числа x. If25. Для данного целого x найти значение следующей функции f, принимающей значения целого типа:

|f(x) =| 2·x, если x < −2 или x > 2,
−3·x в противном случае.| |------|-------------------------------------------------------------|

var
  x, f: real;

begin
  writeln('Введите значение числа x:');
  write(' x = ');
  readln(x);
  { Вычисляем значение функции в зависимости от x: }
  if (x < -2) or (x > 2) then f := 2 * x
  else f := - 3 * x;
  { Предыдущие две строчки кода можно 
  заменить на следующие:
    if x = 2 then f := - 3 * x
    else f := 2 * x;          }
  writeln;
  writeln('f(', x, ') = ', f);
  readln
end.

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10308 .. 1.8∙10308 If26. Для данного вещественного x найти значение следующей функции f, принимающей вещественные значения:

|f(x) =|−x, если x ≤ 0,
 x2, если 0 < x < 2,
4, если x ≥ 2.| |------|-----------------------------------------------------------------------------|

var
  x, f: real;

begin
  writeln('Введите значение числа x:');
  write(' x = ');
  readln(x);
  { Вычисляем f в зависимости от x: }
  if x <= 0 then f := -x
  else
    if x < 2 then f := sqr(x)
    else f := 4;
  writeln;
  writeln('f(', x, ') = ', f);
  readln
end.

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10308 .. 1.8∙10308 **function** Sqr(x: real): real;: Возвращает квадрат числа x. If27. Для данного вещественного x найти значение следующей функции f, принимающей значения целого типа:

|f(x) =| 0, если x < 0,
1, если x принадлежит [0, 1), [2, 3), …,
−1, если x принадлежит [1, 2), [3, 4), … .| |------|-----------------------------------------------------------------------------------------------------------------|

var
  x: real;
  f, int: integer;

begin
  write('x = ');
  readln(x);
  { Вычисляем значение функции в зависимости от x: }
  if x < 0 then f := 0
  else begin
    int := trunc(x); { <== целая часть x }
    { Из определения функции f(x) видно, что для 
    положительных аргументов x значение функции 
    равно 1, если x попадает в интервал с четной 
    целой частью, и равно -1, если целая часть х 
    есть нечетное число: }
    if not odd(int) then f := 1 { <== Целая часть четная }
    else f := -1 { <== Целая часть нечетная }
  end;
  writeln;
  writeln('f(', x, ') = ', f);
  readln
end.

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10308 .. 1.8∙10308 **type** integer;: Представляет 32-битовое целое число со знаком.Диапазон значений: -2 147 483 648 .. 2 147 483 647 **function** Trunc(x: real): integer;: Возвращает целую часть числа x. **function** Odd(i: integer): boolean;: Возвращает True, если i нечетно