Математическая задача (Delphi)

[Горный_Инженер]

Надо написать код для задачи с помощью разветвляющегося процесс

Определить принадлежит ли некоторая точка M с произвольными координатами X,Y закрашенной области

Уравнение прямой y=-2/3x

[Аватар]

y>=-2/3x и y^2<=2-x^2 Это вся математика

[Горный_Инженер]

Мне код нужен

[newerow1989]

var x,y:real;
begin
   Write('x = '); Readln(x);
   Write('y = '); Readln(y);
   If (y>=-2/3*x) and (y*y<=4-x*x) then
      Writeln('yes') else
      Writeln('no');
   Readln;
end.

procedure TForm1.Button1Click(Sender: TObject);
var x,y:real;
begin
   x:=StrToFloat(Edit1.Text);
   y:=StrToFloat(Edit2.Text);
   If (y>=-2/3*x) and (y*y<=4-x*x) then
      Label1.Caption:='yes' else
      Label1.Caption:='no';
end;

[digitalis]

Ну Дельфи - не совсем Паскаль, и Writeln тут не катит. С вводом-выводом ТС сам справится, а вот функция ... Тут голову и остальные части шкилета поломать можно, чтоб оно еще и разветвляющимся было
Навпягши последние силы, выдал этот супер-мега-код :

function TestIn (x,y:real) : boolean ;
begin
  if (x*x+y*y) > 4 then Result := False else
     Result := (y >= (-2/3*x) ) 
end

;

[Горный_Инженер]

Всем Спасибо!

[newerow1989]