Размещено 5 лет назад по предмету Информатика от ТЁЁмМииК

Даны координаты двух точек на плоскости, требуется определить, лежат ли они в одной координатной четверти или нет.(На Паскале)

Входные данные
Вводятся 4 числа: координаты первой точки (x1, y1) и координаты второй точки (x2, y2).

Выходные данные
Программа должна вывести слово YES, если точки находятся в одной координатной четверти, в противном случае вывести слово NO.
Примеры
Входные данные
3
3
5
1
Выходные данные
YES
Паскаль

Ответ на вопрос

Ответ на вопрос дан petyaGavrikov

Замечание: предполагается, то точки не лежат на осях координат.
var x1,y1,x2,y2:real;
begin
readln(x1,y1);
readln(x2,y2);
if (x1*x2>0)and(y1*y2>0) then writeln('YES')
else writeln('NO');
end.

Пример:
3 3
5 1
YES
1. Ответ на вопрос
  
  Ответ на вопрос дан Аккаунт удален
  
  Вышеописанная.
2. Ответ на вопрос
  
  Ответ на вопрос дан petyaGavrikov
  
  Если на осях, то по-хорошему, наверное, надо писать об этом в ответе.
3. Ответ на вопрос
  
  Ответ на вопрос дан Аккаунт удален
  
  У Вас допущение, что точка не лежит на оси, но в исходном задании об этом речи нет.
4. Ответ на вопрос
  
  Ответ на вопрос дан Аккаунт удален
  
  Ну не знаю, что писать и как, но мое мнение: если точка на оси, она не принадлежит какой-либо четверти.
5. Ответ на вопрос
  
  Ответ на вопрос дан ТЁЁмМииК
  
  Спасибо большое
Ответ на вопрос

Ответ на вопрос дан Аккаунт удален

// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
var (x1,y1):=ReadReal2('Введите координаты 1-й точки:');
var (x2,y2):=ReadReal2('Введите координаты 2-й точки:');
if (Sign(x1)=Sign(x2)) and (Sign(y1)=Sign(y2)) then Writeln('YES')
else Writeln('NO')
end.

Примеры
Введите координаты 1-й точки: 3 3
Введите координаты 2-й точки: 5 1
YES

Введите координаты 1-й точки: -2.6 3.2
Введите координаты 2-й точки: -3 -0.14
NO