[Kra5av1n]

Сообщение от SlavBar [Ссылка заблокирована: Зарегистрируйтесь!]

Блин, а я думал что по-сложнее. Даже формулу в Экселе написал для варианта с кривым ромбом.

=ЕСЛИ(И((ИЛИ(y<x+1;y=x+1));(ИЛИ(y<(1-0,25*x);y=(1-0,25*x)));(ИЛИ(y>(-2-2*x);y=(-2-2*x)));(ИЛИ(y>(-2+0,5*x);y=(-2+0,5*x))));"ок!";"мимо!ололо")

Сам не программист, но на сколько понял нужно что бы введенные Х и У были в области - то есть одновременно удовлетворяли условию -1<=X<=4 и -2<=Y<=1

ромб

var
  x,y: real;
begin
  write('Введите значения x y: ');
  readln(x,y);
  if ((y<=(x+1))and(y<=(1-0.25*x))and(y>=(-2-2*x))and(y>=(-2+0.5*x)))
    then writeln('TRUE') else
      writeln('FALSE');
  readln;
end.

прямоугольник

var
  x,y: real;
begin
  write('Введите значения x y: ');
  readln(x,y);
  if ((x>=(-1))and(x<=4)and(y<=1)and(y>=(-2)))
    then writeln('TRUE') else
      writeln('FALSE');
  readln;
end.

чето типо этого штоли?
Если, да то хотелось бы узнать на кого учишься и какой курс?

---------- Добавлено в 01:40 ---------- Предыдущее сообщение было написано в 01:33 ----------

да, забыл:
"free, использование на свой страх и риск"
претензии из-за "двойки" не принимаются

Мне бы через boolean надо бы)))

---------- Добавлено в 13:30 ---------- Предыдущее сообщение было написано в 11:36 ----------

Есть ещё одна работка,уже весь интернет перерыл и половины не нашёл (((

[Ссылка заблокирована: Зарегистрируйтесь!]


---------- Добавлено в 14:03 ---------- Предыдущее сообщение было написано в 13:30 ----------

Сообщение от Kra5av1n [Ссылка заблокирована: Зарегистрируйтесь!]

Мне бы через boolean надо бы)))

---------- Добавлено в 13:30 ---------- Предыдущее сообщение было написано в 11:36 ----------

Есть ещё одна работка,уже весь интернет перерыл и половины не нашёл (((

[Ссылка заблокирована: Зарегистрируйтесь!]

Это то что уже сделано
[Ссылка заблокирована: Зарегистрируйтесь!]