Горю помогите!!! Срочно нужно решение!!!

[Neophyte]

Даны действительные числа x, y. Определить принадлежит ли точка с координатами x, y данной фигуре!

[Neophyte]

Мне очень это надо. А то на экзамен не пустят!!!

[Хыиуду]

Если x>0, то расстояние от (0,0) до (х, у) должно быть меньше r.
Если -2<х<=0, то abs(x)+abs(0.5*y)<=2

[Neophyte]

Если x>0, то расстояние от (0,0) до (х, у) должно быть меньше r.
Если -2<х<=0, то abs(x)+abs(0.5*y)<=2

Спасибо огромное!!!!!!!!!!! А не знаешь как это будет выглядеть в паскале?!?!?

[Medved]

А не знаешь как это будет выглядеть в паскале?!?!?

[syntax='Delphi']
program lalala;
var x,y:integer;
begin
readln(x,y);
if x>0 then writeln((sqr(x)+sqr(y))<=sqr(r)) else writeln((abs(x)+abs(0.5*y))<=2)
end.
[/syntax]

P.S. Хыиуду, ты определись- условием (x^2+y^2)<r^2 не допускается попадание на границу,
а условием abs(x)+abs(0.5*y)<=2 допускается...

[Neophyte]

Спасибо огромное !!!!!!!!!!!!!!!! Я думал мне хана!!!! Ну держись препод!!! Буду его в понедерник парить!!!!

[Serge_Bliznykov]

Medved, если Вы позволите, чуть-чуть подправлю Ваш код:

Код: Выделить всё

program CheckPoint;
const
 r = 1;
var
  x,y :real;
begin
  WriteLn('Введите координаты точки (X Y): ');
  readln(x,y);
  if x>0
   then writeln((sqr(x)+sqr(y))<=sqr(r))
   else writeln((abs(x)+abs(0.5*y))<=2)
end.

[Neophyte]

Спасибо большечущее! Теперь препод попадет под обстрел со 100% летальным исходом!

[Хыиуду]

P.S. Хыиуду, ты определись- условием (x^2+y^2)<r^2 не допускается попадание на границу,
а условием abs(x)+abs(0.5*y)<=2 допускается...

Я думаю, на это был первый дополнительный вопрос препода. Вот и проверим, стал человек разбираться в том, что ему написали, или тупо скопировал и отнес.

[Medved]

Вот и проверим, стал человек разбираться в том, что ему написали, или тупо скопировал и отнес.

Нет, не выйдет. В коде я оставил попадание на границу разрешённым во всех случаях