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
**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10308 .. 1.8∙10308
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.
$1 $2If26. Для данного вещественного 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
**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10308 .. 1.8∙10308
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** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10308 .. 1.8∙10308
**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10308 .. 1.8∙10308
**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10308 .. 1.8∙10308