ВВЕРХ
ВНИЗ

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

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

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


Код Pascal
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.

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

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


Код Pascal
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.

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

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


Код Pascal
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.

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

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


Код Pascal
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.



Яндекс.Метрика