[Kra5av1n]

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

[Andre_]

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

ТЕМА 2.

Точка задана своими координатами (x, y). Написать программу, 
которая используя логическое выражение выводит TRUE, если 
точка принадлежит заштрихованной области и FALSE - 
если не принадлежит.

1

-1 4 x

-2

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

[SlavBar]

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

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

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

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

ТЕМА 2.

Точка задана своими координатами (x, y). Написать программу, 
которая используя логическое выражение выводит TRUE, если 
точка принадлежит заштрихованной области и FALSE - 
если не принадлежит.

1

-1 4 x

-2

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

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

[Kra5av1n]

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

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

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

[SlavBar]

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

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

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

=ЕСЛИ(И((ИЛИ(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, использование на свой страх и риск"
претензии из-за "двойки" не принимаются

[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, использование на свой страх и риск"
претензии из-за "двойки" не принимаются

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

[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 ----------

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

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

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

[Falco]

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