Программа определения принадлежности точки заштрихованной области

[Al'f!ra]

Написать программу определения принадлежности точки М(x,y), заштрихованной области, изображенной на рисунке ( уравнение окружности x^2+y^2=r^2)

Snapshot_20120215.JPG
вроде задача легкая а с заштрихованным сектором проблема

[deathNC]

function PointInArea(X, Y: Real): Boolean;
begin
  PointInArea := false;
  If y > 0 then // верхняя часть
    PointInArea := (sqr(x) + sqr(y) <= 4) and (x <= 1)
  else if x < 0 then // или левая нижнаяя часть
    PointInArea := (sqr(x) + sqr(y) <= 4);
end;

Знак "меньше или равно" можно заменить просто на "меньше", если по условию точка не может находиться на границах областей.

[Hacker19_90]

верхняя граница не правильно определяется!
Отгадайте, почему?

[deathNC]

Hacker19_90, забыл :-[

Сейчас будет

function PointInArea(X, Y: Real): Boolean;
begin
  PointInArea := false;
  If y > 0 then // верхняя часть
    PointInArea := (sqr(x) + sqr(y) <= 4) and (x <= 1) and (y >= -x)
  else if x < 0 then // или левая нижнаяя часть
    PointInArea := (sqr(x) + sqr(y) <= 4);
end;

[Katus]

PointInArea := false; - лишнее

[deathNC]

Katus, не, не лишнее. Это нужно для случая

(y =< 0) and (x >= 0)

который тут не описан. то есть для правого нижнего сектора

[Katus]

понял... то есть ваш код эквивалентен

function PointInArea(X, Y: Real): Boolean;
begin
  If y > 0 then // верхняя часть // да1
    PointInArea := (sqr(x) + sqr(y) <= 4) and (x <= 1) and (y >= -x)
  else if x < 0 then // или левая нижнаяя часть // да2
    PointInArea := (sqr(x) + sqr(y) <= 4)
  else
    PointInArea := false; // нет2
end;

помоему мой вариант эффективнее... т.к. не делаются лишние действия по ветвям да1 и да2

извините, а функциям разве нельзя по умолчанию задавать значение? =.

например, function f(x:byte):boolean=false;

[deathNC]

Да, в таком случае Ваш вариант более разумный

А про значение по умолчанию - по-моему такого нет.

[Serge_Bliznykov]

ничего не понимаю: а где код Katus?!

извините, а функциям разве нельзя по умолчанию задавать значение? =.
например, function f(x:byte):boolean=false;

в Pascal/Delphi - нет, нельзя!


и вообще не понимаю, какие тут могут быть дискуссии, имхо, код deathNC из пост #4 выглядит вполне рабочим, надёжным и понятным.

[Poma][a]

Сообщение от Serge_Bliznykov

ничего не понимаю: а где код Katus?!

function PointInArea(X, Y: Real): Boolean;
begin
  If y > 0 then // верхняя часть // да1
    PointInArea := (sqr(x) + sqr(y) <= 4) and (x <= 1) and (y >= -x)
  else if x < 0 then // или левая нижнаяя часть // да2
    PointInArea := (sqr(x) + sqr(y) <= 4)
  else
    PointInArea := false; // нет2
end;

и ,Katus, пора определиться : в одном случае вы пишете 'If', в другом 'if'.