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 y,x:real; begin try x:=strtofloat(Edit1.Text); y:=Arctan(x/sqrt(1-sqr(x)))+exp(2); Label4.Caption:='Y= '+floattostr(y); except on EConvertError do begin ShowMessage('Введите число!'+#13+'При записи дробного числа используйте запятую.'); exit; end; end; if Label4.Caption<>'' then Button3.Enabled:=True; end;
procedure TForm1.Button1Click(Sender: TObject); var l,m:real; begin if (form1.Edit2.text<>'')and(form1.Edit3.text<>'') then begin l:=strtofloat(form1.Edit2.text); m:=strtofloat(form1.Edit3.text); end; if (l<=0) and ((l*l+m*m)<=1) or (l>=0) and (abs(l+m)<=1) then form1.Label1.Caption:='Принадлежит' else form1.Label1.Caption:='Не принадлежит'; end;
procedure TForm1.Button3Click(Sender: TObject); var i:integer; begin for i:=0 to 100 do Series1.AddXY(0.01*Pi*i,Arctan((0.01*Pi*i)/sqr(1-(0.01*Pi*i)*(0.01*Pi*i)))+(0.01*Pi*i)*(0.01*Pi*i)); end;
procedure TForm1.Button4Click(Sender: TObject); begin Form2.Image1.Picture.Bitmap:=GetFormImage; Form2.Showmodal; end; procedure TForm1.Button5Click(Sender: TObject); begin if PrintDialog1.Execute then Form1.Print; end;