برنامج لحساب المصفوفات من نوع 3 اسطر و 3 اعمدة . الجمع .الطرح. الضرب. المحدد. .......

[hanipino]

برنامج لحساب المصفوفات من نوع 3 اسطر و 3 اعمدة . الجمع .الطرح. الضرب. المحدد. .......

[kachwahed]

عمل رائع
يمكنك تغيير Caption لجميع مكونات Label دفعة واحدة كما يلي:
var i: Integer;
begin
for i:=1 to 9 do begin
(FindComponent('label'+IntToStr(i)) as TLabel).Caption :=

[hanipino]

السلام عليكم

... لا Label و لا Edit و لا 3 اسطر و لا 3 اعمدة ... :)
... 100 سطر و 100 عمود و ضغطت زر . و إن شاء الله المخرجات صحيحة و الله اعلم .
ان كانت هناك اخطاء او تعديل على الكود من حيث الاختصار او طريقة اخرى فلا تبخلوا علينا .
لمن يريد المواصلة فى استخراج المحدد و المعكوس . نكون له شاكرين لو تكرم بالكود . :)

http://i43.tinypic.com/2le1j48.jpg

و السلام عليكم .

[hanipino]

تم احداث اضافة و تغير صغير و مفيد على الكود . اضافة امكانية ضرب عدد فى مصفوفة .
التغيير : الان عملية الجداء اسرع بكثير مما كانت عليه .
يوجد فى هذا المرفق المعدل مصفوفة تتكون من 2000 :confused:سطر و 10 اعمدة تقابلها مصفوفة من 10 اسطر و 10 اعمدة .
قم باجراء عملية الجداء عليهم فى كلتا المرفقين (قبل التعديل و بعد التعديل) ... فرق شاسع فى سرعة اخراج النتائج .

http://i43.tinypic.com/i3w944.jpg

[hanipino]

السلام عليكم

قمت ب (تعديل , تنضيم) على الكود و نقلته الى وحدة مستقلة . لتكود عملية استدعاء الدوال
بكل يسر و وضوح و تنضيم . ... انخفض قليلا حجم الملف التنفيدى . :)

الاستدعاء يكون بهذا الشكل :

الجداء :

Mmo3.Text:= Array_Fois_Array(Mmo1.Lines,Mmo2.Lines).Text;


الجمع :

Mmo3.Text:= Array_Action_Array(Mmo1.Lines,Mmo2.Lines,'+').Text ;


الطرح :

Mmo3.Text:= Array_Action_Array(Mmo1.Lines,Mmo2.Lines,'-').Text;


المنقول :

Mmo3.Lines.Text:=Mnl_Array(Mmo1.Lines).Text;


فقط . :)
كالعادة ... ان كانت هناك اخطاء صححوا.
الوحدة فى المرفقات .

و السلام عليكم