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

1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  

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.

1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  

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.

1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  

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.

1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
23  

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.