Решите срочно пожалуйста!!! На улице Звездной стоят в ряд 4 дома, в которых живут 4 человека: Филипп, Кристина, Алла и Никита. И
Решите срочно пожалуйста!!!
На улице Звездной стоят в ряд 4 дома, в которых живут 4 человека: Филипп, Кристина, Алла и Никита. Известно, что каждый из них владеет ровно одной из следующих профессий: Танцор, Артист, Певец и Режиссер. Неизвестно, кто в каком доме живет, и кто какой профессией владеет. Однако известно, что:
У Певца 2 соседа.
Танцор живет правее Певца.
Режиссер живет через дом от Артиста.
Дом Артиста крайний
Филипп живет рядом с певцом.
Алла живет слева от Филиппа.
Никита не танцор.
Выясните, кто какой профессии и кто где живет.
На улице Звездной стоят в ряд 4 дома, в которых живут 4 человека: Филипп, Кристина, Алла и Никита. Известно, что каждый из них владеет ровно одной из следующих профессий: Танцор, Артист, Певец и Режиссер. Неизвестно, кто в каком доме живет, и кто какой профессией владеет. Однако известно, что:
У Певца 2 соседа.
Танцор живет правее Певца.
Режиссер живет через дом от Артиста.
Дом Артиста крайний
Филипп живет рядом с певцом.
Алла живет слева от Филиппа.
Никита не танцор.
Выясните, кто какой профессии и кто где живет.
1 ответ:
Читайте также
В таких задачах самое сложное - это правильно составить условие попадания (или непопадания) точки в указанную область.
Поскольку ничего не сказано, как поступать с точками, попавшими на границу области, будем считать, что они также удовлетворяют условию "попадания".
Из рисунка видно, что имеются две области, каждая из которых образована комбинацией прямоугольника и части окружности радиуса R.
Первая из затемненных областей использует прямоугольник, в котором координаты по длине меняются от -а до 0, а по высоте - от 0 -b до 0. Здесь надо составить два условия и объединить их по "И":
![(x \in [-a;0]) \land (y \in [-b;0])](https://tex.z-dn.net/?f=%28x+%5Cin+%5B-a%3B0%5D%29+%5Cland+%28y+%5Cin+%5B-b%3B0%5D%29)
И еще необходимо учесть окружность - область не должна выходить за ее границы, т.е. x²+y² ≤ R². Итак, для первой области запишем
![(x \in [-a;0]) \land (y \in [-b;0]) \land (x^2+y^2 \le R^2)](https://tex.z-dn.net/?f=%28x+%5Cin+%5B-a%3B0%5D%29+%5Cland+%28y+%5Cin+%5B-b%3B0%5D%29+%5Cland+%28x%5E2%2By%5E2+%5Cle+R%5E2%29)
Рассуждая аналогичным методом, можно составить и второе выражение, определяющее условие попадания во вторую затемненную область.
![(x \in [0;a]) \land (y \in [0; b]) \land (x^2+y^2 > R^2)](https://tex.z-dn.net/?f=%28x+%5Cin+%5B0%3Ba%5D%29+%5Cland+%28y+%5Cin+%5B0%3B+b%5D%29+%5Cland+%28x%5E2%2By%5E2+%3E+R%5E2%29)
Нужное логическое выражение получится если оба выражения соединить по "ИЛИ".
Несколько слов о программировании. Можно запрограммировать выражение так, как оно написано. А можно написать так, чтобы было легко потом разбираться.
Предлагаю выбрать второй путь. Он потребует ввести дополнительные логические переменные.
var
a, b, R, x, y: real;
b1, b2: boolean;
begin
Write('Введите через пробел координаты точки (x,y): ');
Readln(x, y);
Write('Введите через пробел размеры a,b,R: ');
Readln(a, b, R);
b1 := ((x >= -a) and (x <= 0)); { по длине }
b1 := b1 and ((y >= -b) and (y <= 0)); { по высоте }
b1 := b1 and (sqr(x) + sqr(y) <= sqr(R)); { внутри и на границе окружности. }
b2 := ((x >= 0) and (x <= a)); { по длине }
b2 := b2 and ((y >= 0) and (y <= b)); { по высоте }
b2 := b2 and (sqr(x) + sqr(y) > sqr(R)); { снаржи и на границе окружности. }
b1:=(b1 or b2);
if b1 then Writeln('Попвдает') else Writeln('Не попадает')
end.
Тестовое решение
Введите через пробел коорднаты точки (x,y): -1 -1
Введите через пробел размеры a,b,R: 3 4 3
Попвдает
Поскольку ничего не сказано, как поступать с точками, попавшими на границу области, будем считать, что они также удовлетворяют условию "попадания".
Из рисунка видно, что имеются две области, каждая из которых образована комбинацией прямоугольника и части окружности радиуса R.
Первая из затемненных областей использует прямоугольник, в котором координаты по длине меняются от -а до 0, а по высоте - от 0 -b до 0. Здесь надо составить два условия и объединить их по "И":
И еще необходимо учесть окружность - область не должна выходить за ее границы, т.е. x²+y² ≤ R². Итак, для первой области запишем
Рассуждая аналогичным методом, можно составить и второе выражение, определяющее условие попадания во вторую затемненную область.
Нужное логическое выражение получится если оба выражения соединить по "ИЛИ".
Несколько слов о программировании. Можно запрограммировать выражение так, как оно написано. А можно написать так, чтобы было легко потом разбираться.
Предлагаю выбрать второй путь. Он потребует ввести дополнительные логические переменные.
var
a, b, R, x, y: real;
b1, b2: boolean;
begin
Write('Введите через пробел координаты точки (x,y): ');
Readln(x, y);
Write('Введите через пробел размеры a,b,R: ');
Readln(a, b, R);
b1 := ((x >= -a) and (x <= 0)); { по длине }
b1 := b1 and ((y >= -b) and (y <= 0)); { по высоте }
b1 := b1 and (sqr(x) + sqr(y) <= sqr(R)); { внутри и на границе окружности. }
b2 := ((x >= 0) and (x <= a)); { по длине }
b2 := b2 and ((y >= 0) and (y <= b)); { по высоте }
b2 := b2 and (sqr(x) + sqr(y) > sqr(R)); { снаржи и на границе окружности. }
b1:=(b1 or b2);
if b1 then Writeln('Попвдает') else Writeln('Не попадает')
end.
Тестовое решение
Введите через пробел коорднаты точки (x,y): -1 -1
Введите через пробел размеры a,b,R: 3 4 3
Попвдает