VPF::Подскажите есть ли ошибка - Форум программистов

motomen

Дата 4.10.2011, 22:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 10.4.2011

Репутация: нет
Всего: нет

Подскажите есть ли ошибка
нужно определить принадлежность точки фигуре

Код


var
  x, y: single;

begin
  Writeln('Enter coordinates');
  Readln(x, y);
  if (((x <= 2) and (x >= -1) and (y <= 1) and (y >= -1)) or ( (x <= 0) and (x >= - 2) and (y >= -2) and (y < 0)))
    then
      Writeln('Point belongs to figure')
    else
      Writeln('Point no favorite figure');
  Readln;
  Readln;
end.

Данкинг

Дата 4.10.2011, 22:48 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

В чём именно должна заключаться ошибка?

--------------------

There's nothing left but silent epitaphs.

northener

Дата 4.10.2011, 22:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20

Цитата(motomen @ 4.10.2011, 22:08

)

Подскажите есть ли ошибка

Ошибок нет, если речь идёт об обычной системе координат. Т.е. если данная задачка никоим образом не связана с экранными координатами.

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »