procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if (x<0) and (x*x+y*y<?)or (x>0) and ((x+y)<?) then form1.Label1.Caption:='Принадлежит' else form1.Label1.Caption:='Не принадлежит'; end;
end.
Никак не могу понять с чем нужно сравнивать...заранее спасибо.
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin X := X - 200; Y := Y - 200; If (X < 0) and (sqr(X)+sqr(Y) < sqr(139)) or (X >= 0) and (140 - X - abs(Y) > 0) Then form1.Label1.Caption:= 'Ïðèíàäëåæèò' else form1.Label1.Caption := 'Íå ïðèíàäëåæèò'; end;
procedure TForm1.Button2Click(Sender: TObject); Var x1,y1,y,x:real; vivod: string; x0:real; begin if RadioButton1.Checked then x:=0.112 else x:=StrToFloat(Edit1.Text); x0:=x; y:=Arctan(x/sqrt(1-sqrt(x)))+exp(2); vivod:='ïðè õ= ' + FloatToStrF(x0,ffGeneral,4,2) + ' y = ' + FloatToStrF(y,ffGeneral,4,2); Label4.Caption:=vivod; radiobutton1.checked := false; Edit1.Text:=''; end;
procedure TForm1.Button1Click(Sender: TObject); var l,m:real; begin if (form1.Edit2.text<>'')and(form1.Edit3.text<>'') then l:= strtofloat(form1.Edit1.text); m:=strtofloat(form1.Edit2.text); if (l<0)and (sqr(l)+sqr(m)<1) and (l>0) and (abs(l+m)<1) then form1.Label1.Caption:='Ïðèíàäëåæèò' else form1.Label1.Caption:='Íå ïðèíàäëåæèò'; end;
end.
Теперь вот такая проблемка,процедура клика по 1-ой кнопке проверяет попадание в область в результате введения значений с клавиатуры(но она ругается и я не пойму в чем ошибка). Клик по 2-ой кнопке отвечает за ввода значения X с клавиатуры,а выдается рассчет Y.(Также ругается+ошибка такаяже как в попадании) Помогите пожалуйста..заранее очень благодарен