Question

Помогите составить программу 76 баллов даю

Answer 1

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.

Answer 2

Программа:

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