8) Область определения функции:
2x + 1 >= 0
2x >= -1
x >= -0.5
20x - 5 <> 0
20x <> 5
x <> 5/20
x <> 1/4
x ∈ [-0.5; 0.25) U (0.25; ∞)
На Паскале вычисление значения этой функции с учетом области определения может выглядеть так:
if (x > -0.5) and (x <> 0.25) then begin
writeln(sqrt(2*x + 1) / (20 * x - 5));
end;
9)
begin
var price: real;
readln(price);
if price > 3000 then begin
price := price - price * 0.05;
end
else if price > 1000 then begin
price := price - price * 0.03;
end;
writeln(price);
end.
10)
begin
var x, f: real;
readln(x);
f := 0;
if x > 5 then begin
f := x*x - 1;
end
else if x < -2 then begin
f := 2*x;
end;
writeln(f);
end.