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. |