Автор - михазверь
var a: real;
function ans(x: real): real;
var res: real;
begin
res := x * x + Sqrt(1 + x) + Abs(x - 2);
writeln('y =',res:12:6);
end;
begin
write('введите число, x = ');
readln(a);
ans(a);
end.
Программа:
var x,y:real;
function f(x: real; var y:real):boolean;
begin
if 1+x>=0 then
begin
y:=x*x+sqrt(1+x)+abs(x-2);
f:=true;
end
else f:=false;
end;
begin
write('x = ');
readln(x);
if f(x,y) then writeln('y = ',y:4:2)
else writeln('Функция не определена');
end.
Пример:
x = 5
y = 30.45