+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي الأخرى (https://delphi4arab.net/forum/forumdisplay.php?fid=4)
+--- قسم : برامج دلفي من عمل الأعضاء (https://delphi4arab.net/forum/forumdisplay.php?fid=27)
+--- الموضوع : برنامج لحساب المصفوفات من نوع 3 اسطر و 3 اعمدة . الجمع .الطرح. الضرب. المحدد. ....... (/showthread.php?tid=144)
برنامج لحساب المصفوفات من نوع 3 اسطر و 3 اعمدة . الجمع .الطرح. الضرب. المحدد. ....... - hanipino - 18-04-2008
برنامج لحساب المصفوفات من نوع 3 اسطر و 3 اعمدة . الجمع .الطرح. الضرب. المحدد. .......
برنامج لحساب المصفوفات من نوع 3 اسطر و 3 اعمدة . الجمع .الطرح. الضرب. المحدد. ....... - kachwahed - 28-12-2008
عمل رائع
يمكنك تغيير Caption لجميع مكونات Label دفعة واحدة كما يلي:
PHP كود :
var i: Integer;
begin
for i:=1 to 9 do begin
(FindComponent('label'+IntToStr(i)) as TLabel).Caption :=
برنامج لحساب المصفوفات من نوع 3 اسطر و 3 اعمدة . الجمع .الطرح. الضرب. المحدد. ....... - hanipino - 25-01-2009
السلام عليكم
... لا Label و لا Edit و لا 3 اسطر و لا 3 اعمدة ...
... 100 سطر و 100 عمود و ضغطت زر . و إن شاء الله المخرجات صحيحة و الله اعلم .
ان كانت هناك اخطاء او تعديل على الكود من حيث الاختصار او طريقة اخرى فلا تبخلوا علينا .
لمن يريد المواصلة فى استخراج المحدد و المعكوس . نكون له شاكرين لو تكرم بالكود .
![[صورة: 2le1j48.jpg]](http://i43.tinypic.com/2le1j48.jpg)
و السلام عليكم .
برنامج لحساب المصفوفات من نوع 3 اسطر و 3 اعمدة . الجمع .الطرح. الضرب. المحدد. ....... - hanipino - 27-01-2009
تم احداث اضافة و تغير صغير و مفيد على الكود . اضافة امكانية ضرب عدد فى مصفوفة .
التغيير : الان عملية الجداء اسرع بكثير مما كانت عليه .
يوجد فى هذا المرفق المعدل مصفوفة تتكون من 2000 :confused:سطر و 10 اعمدة تقابلها مصفوفة من 10 اسطر و 10 اعمدة .
قم باجراء عملية الجداء عليهم فى كلتا المرفقين (قبل التعديل و بعد التعديل) ... فرق شاسع فى سرعة اخراج النتائج .
![[صورة: i3w944.jpg]](http://i43.tinypic.com/i3w944.jpg)
برنامج لحساب المصفوفات من نوع 3 اسطر و 3 اعمدة . الجمع .الطرح. الضرب. المحدد. ....... - hanipino - 28-01-2009
السلام عليكم
قمت ب (تعديل , تنضيم) على الكود و نقلته الى وحدة مستقلة . لتكود عملية استدعاء الدوال
بكل يسر و وضوح و تنضيم . ... انخفض قليلا حجم الملف التنفيدى .
الاستدعاء يكون بهذا الشكل :
الجداء :
PHP كود :
Mmo3.Text:= Array_Fois_Array(Mmo1.Lines,Mmo2.Lines).Text;
الجمع :
PHP كود :
Mmo3.Text:= Array_Action_Array(Mmo1.Lines,Mmo2.Lines,'+').Text;
الطرح :
PHP كود :
Mmo3.Text:= Array_Action_Array(Mmo1.Lines,Mmo2.Lines,'-').Text;
المنقول :
PHP كود :
Mmo3.Lines.Text:=Mnl_Array(Mmo1.Lines).Text;
فقط .
كالعادة ... ان كانت هناك اخطاء صححوا.
الوحدة فى المرفقات .
و السلام عليكم