Цитата:
|
Сообщение от dapkopoen
а кодом можно?в процедуре онклик на некую кнопку
|
Да, конечно, лови!
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
d:real;
i:integer
begin
for i:=1 to 1000000 do
begin
d:=sqrt(sqr(x1-x2)+sqr(y1-y2));
form1.canvas.pen.color:=255;
form1.canvas.moveto(x1,y1);
form1.canvas.lineto(x2,y2);
label1.caption:=floattostr(d*d/d);
end;
end;
не забудь Метку на форму кинуть!
