[cmoki]

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

[Edit1]

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

[cmoki]

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

[robt]

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

[qazwsx]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

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| было меньше/равно половине стороны ромба:

Код:

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

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