[cmoki]

не понимаю как составить программу пожалйуста помогите((

[Edit1]

Как сяду за компьютер - помогу.

[cmoki]

спасибо буду ждать

[robt]

жди,жди, за комп он уже садился

[qazwsx]

Код, который вычисляет значение у от х:

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,math;

  var
  x,y,fx,tm1,tm2,tm3:real;

begin
  { TODO -oUser -cConsole Main : Insert code here }

  writeln('X=');
  readln(x);
  writeln('Y=');
  readln(y);

  tm1:=cos(power(x,1/3));
  tm2:=ln( power(2,x)+power(abs(x),2*tan(x)) )/ln(10);
  tm3:=arcsin(tm1/(tm1*tm1+7));
  fx:=sqrt(abs(tm3+power(tm2,5)));
  writeln(fx);
  readln;

end.

осталось проверить попадает ли точка ху в ромб.

[YVitaliy]

Функция то линейная. Ну, как на меня, нужно вычислять, чтобы |X|+|Y| было меньше/равно половине стороны ромба:

Код:

if abs(X)+abs(Y)<=2 then {true} else {false};(

Если центр ромба в начале координат.
Но могу ошибаться. Нужно проверить. Обязательно.