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 нечетно