+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : حساب طول مستقيم معرف الإحداثيات من الجهتين (/showthread.php?tid=5422)
حساب طول مستقيم معرف الإحداثيات من الجهتين - belnono - 25-07-2013
السلام عليكم ورحمة الله تعالى وبركاته
رجاءا إخواني، كيف يمكنني حساب طول مستقيم
أو المسافة بين شكلين من أشكال shape
مع العلم أننا نعرف إحداثياتهما
بارك الله فيكم
حساب طول مستقيم معرف الإحداثيات من الجهتين - بن دهيبة - 25-07-2013
وعليكم السلام ورحمة الله تعالى وبركاته
كود :
Function Distance(x1,y1,x2,y2:Real):Real;
Begin
Result:=sqrt(sqr(y2 - y1) + sqr(x2 - x1));
End;حساب طول مستقيم معرف الإحداثيات من الجهتين - belnono - 26-07-2013
بارك الله فيك أخي الكريم بن ذهيبة
كود جميل شكرا لك