Входит ли точка в заданную область или нет Паскаль - помогите доделать

[Rusl92]

На рисунке заштрихованная область - если точка попадет в нее - написать 'vhodit', иначе в белую область попадет точка - написать - 'ne vhodit'
вообщем вроде бы все работает но есть баг
допустим если x=-0.5 а y=0.9 то все норм
а вот если x=-1 y=0.0009 - пишет не входит - хотя точка входит!
код:

var x,y:real;
    p:real;
begin
   read(x,y);
   if x>1
    then write('ne vhodit')
    else
     if x<-1
      then write('ne vhodit')
      else
        if y>1
         then write('ne vhodit')
         else
          if y<-1
           then write('ne vhodit')
           else
            if x>=0
             then write('vhodit')
             else
              if y<=0
               then write('vhodit')
               else
                begin
                   p:=x*x+(y-1)*(y-1);
                   if (p<=1)
                    then write('vhodit')
                    else write('ne vhodit');

                end;

end.

заранее спасибо всем, кто поможет!
рисунок во вложении

[Вавел из ГМТУ]

Хм.... невозможно ответить на этот вопрос не видя кода.

Какой функцией задаётся эта кривая?

[Rusl92]

это не кривая
это круг
точнее половина круга
так как y сдвинут на 1
то формула становится такой
x*x+(y-1)*(y-1)=радиус, то бишь 1
с условием похоже что то не то
код написал свой
...

[Вавел из ГМТУ]

Хе хе.. пишу прям в браузере:

If x < 0 Then
   If y > FunctionLine Then Writeln('Net') Else Writeln('Da')
Else
   Writeln('Da');

Где FunctionLine вычисляет значение y линии при указанном x.

PS: тут надо ещё по y проверять.....

[Rusl92]

не понял что-то
вот в моем коде по-моему надо что то поменять между begin и еnd - которые находятся внизу
а что дописать там

[Вавел из ГМТУ]

Ты написал в лоб и ниодин нормальный препод это неоценит.

if (y < 1) And (x > -1) Then
   If SQRT(SQR(1-y) + x * x) < 1 Then Writeln('Net') Else Writeln('Da')
Else Writeln('Da');

Надо чтото типа этого.. проверь.

PS: надо первыый if подкоректировать....

вот так

If if (y < 1) And (x < 0) Then

[Rusl92]

ты думал что типа я нуб и не знаю что такое and и т.п.
нас препод на первом курсе пока что учит думать математически
и условия поставлены суровые
1) не использовать процедурного программирования
2) условие не может быть сложным
3) cтандартные функции при необходимости только использовать

так вот я написал прогу строго придерживаясь этих правил
так вот и нашел баг - хотя по идее несколько тестов корректно прошла прога
вот и говорю, что процентов 90 что баг зарыт в последних begin и еnd
помоги исправить?

[Вавел из ГМТУ]

При x=-1 y=0.0009
p = 1.9982...

if (p<=1)
then write('vhodit')
else write('ne vhodit');

Результат: ('ne vhodit')

Незнаю чему тебя там учили но математически это:
1. Мысленно переместиться в начало координат в (0, 1).
2. Проверить Находися ли мы в 3 четверте. Если да, то продолжаем, если нет то пишем "Невходит" и завершаем программу.
3. Измеряем расстояние от центра новой системы координат до заданной точки.
4. Сверяем это расстояние с радиусом окружности. Если больше, то точка входит, если нет, то "невходит".

Вот нормальные рассуждения........
Зачем проверять ненужные условия?
PS: а вот твоя математике мне непонятна.....

[DomiNick]

Ну... Примерно такое:

If (y<=0) Or (x>=0) Or (y<= { фукция F(x) } ) Then
      WriteLn('Yes')
Else
      WriteLn('No');

UpDate

Когда начал печатать, поста №7 с "суровыми условиями" ещё не было...
А почему у вас проверяется вхождение в Rect(-1, -1, 1, 1) - оно чтоль совсем обрезается?

Попробуйте так:

Var x, y, p: Real;
Begin
Read(x, y);
p:=Sqrt(x*x+(y-1)*(y-1));
If (x>1) Then
      WriteLn('ne vhodit')
Else
      If (x<-1) Then
            WriteLn('ne vhodit')
      Else
            If (y>1) Then
                  WriteLn('ne vhodit')
            Else
                  If (y<-1) Then
                        WriteLn('ne vhodit')
                  Else
                        If (x>=0) Then
                              WriteLn('vhodit')
                        Else
                              If (y<=0) Then
                                    WriteLn('vhodit')
                              Else
                                    If (p>1) Then
                                          WriteLn('vhodit')
                                    Else
                                          WriteLn('ne vhodit');
End;