Уравнения

[Roman_Otero]

Помогите пожалуйста создать программы

[NetSpace]

тебе надо в раздел 'фриланс', если готов за них заплатить. или показывай свои наработки, а тут уже местные подскажут где у тебя ошибки

[newerow1989]

uses Math;

function f1(x:real):real;
begin
   If x<-2 then
      Result:=3*Abs(x) else
   If x>2 then
      Result:=Sin(x) else
      Result:=9*x;
end;

function f2(x:real):real;
begin
   If x<-1 then
      Result:=Sqrt(3-x) else
   If x>5 then
      Result:=Exp(5-x)+9 else
      Result:=2*x*x;
end;

function f3(x:real):real;
begin
   Result:=Sqrt(Sqrt(Sin(x)*Sin(x)/(1+Sqrt(x))));
end;

function f4(x:real):real;
begin
   Result:=Power(x+1,1/3)-1/(2*LogN(3,x));
end;