RelaxДом - Есть тут программисты?

RelaxДом (https://forum.relaxdom.net/index.php)

- Battlefield 2 Offtopic (https://forum.relaxdom.net/forumdisplay.php?f=471)

- - Есть тут программисты? (https://forum.relaxdom.net/showthread.php?t=57105)

Есть тут программисты?

В больницу лежал,пропустил тему..немного понимаю но сделать не смогу..Если у кого нет паскаля могу дать ссылку,готов кто нибудь помочь?
2 лабораторная работа,17 вариант
[Ссылка заблокирована: Зарегистрируйтесь!]

Re: Есть тут программисты?

Это вот это вот?

Код:

ТЕМА 2.



Точка задана своими координатами (x, y). Написать программу, 

которая используя логическое выражение выводит TRUE, если 

точка принадлежит заштрихованной области и FALSE - 

если не принадлежит.



1



-1 4 x



-2

Паскаль знаю, но математическая часть от меня ускользает...

Re: Есть тут программисты?

Цитата:

Сообщение от Kra5av1n (Сообщение 510754)

Цитата:

Сообщение от Andre_ (Сообщение 510756)

Это вот это вот?

Код:

ТЕМА 2.



Точка задана своими координатами (x, y). Написать программу, 

которая используя логическое выражение выводит TRUE, если 

точка принадлежит заштрихованной области и FALSE - 

если не принадлежит.



1



-1 4 x



-2

Паскаль знаю, но математическая часть от меня ускользает...

Проблема в задании, по крайней мере в файле - не видно график. Там точки прямыми соединены, так?

Re: Есть тут программисты?

Цитата:

Сообщение от SlavBar (Сообщение 510757)

Проблема в задании, по крайней мере в файле - не видно график. Там точки прямыми соединены, так?

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

Re: Есть тут программисты?

Цитата:

Сообщение от Kra5av1n (Сообщение 510758)

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

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

Код:

=ЕСЛИ(И((ИЛИ(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.

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

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

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

Re: Есть тут программисты?

Цитата:

Сообщение от SlavBar (Сообщение 510761)

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

Код:

=ЕСЛИ(И((ИЛИ(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))));"ок!";"мимо!ололо")

Код:

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.

Учусь на Информационные системы,2 курс..
ффррр,завтра отпишусь,сегодня уже мозг поплыл

Re: Есть тут программисты?

Цитата:

Сообщение от SlavBar (Сообщение 510761)

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

Код:

=ЕСЛИ(И((ИЛИ(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))));"ок!";"мимо!ололо")

Код:

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.

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

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

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

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

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

Цитата:

Сообщение от Kra5av1n (Сообщение 510764)

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

Re: Есть тут программисты?

Бля, как всё просто то. ))
Но я не скажу. Смотри выше...