+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفية جمع قيم واعمل معادلة حسابية في جدول واحد (/showthread.php?tid=4190)
كيفية جمع قيم واعمل معادلة حسابية في جدول واحد - ابومهند - 13-05-2012
الاخوة الكرام
السلام عليكم ورحمة الله
عندي جدول يحتوي على الحقول التالية:
رقم المادة
رقم السؤال
تكراره
اهميته
صعوبته
المجموع
النسبة الموزونة.
التوضيح:
اقوم اعمل فلتره برقم المادة لكي تظهر جميع اسئلتها ، ويتم ادخال قيمة لكل سؤال في الحقول السابقة بحيث يتم ادخال قيمة لتكرار ، وقيمة لدرجة الاهميه ، وقيمة للصعوبه ويطلع في المجموع جمع القيم المدخلة في التكرار ، الاهمية ، الصعوبة.
السؤال كيف احسب النسبة الموزونة لكل سؤال مع العلم ان القاعدة لايجاد النسبة الموزونة كالتالي:
النسبية الموزونة عبارة عن : المجموع / المجموع الكلي(يعني اجمع كل القيمة المدخله في المجموع ) * 100
والصورة توضح ذلك
تحياتي وتقديري للجميع.
كيفية جمع قيم واعمل معادلة حسابية في جدول واحد - AnoirsoftDeveloper - 14-05-2012
السلام عليكم
تفضل أخي،
قم بتغيير :
Table1 = إلى اسم الجدول اي تستعمله
Table1No_Total= اسم حقل المجموع
Table1No_T= اسم حقل التكرار
Table1No_Aha= اسم حقل الأهمية
Table1No_So= اسم حقل الصعوبة
كود :
// لحساب المجموع الفردي والكلي
var
TotalMad,Prec:Double;
begin
Table1.First;
TotalMad:=0;
while not Table1.Eof do
begin
Table1.Edit;
Table1No_Total.Value:=Table1No_T.Value+Table1No_Aha.Value+
Table1No_So.Value;
Table1.Post;
TotalMad:=TotalMad+Table1No_Total.Value;
Table1.Next;
end;
// لحساب النسبة الموزونة
Table1.First;
while not Table1.Eof do
begin
Prec:=0;
Prec:=Table1No_Total.Value/TotalMad*100;
Table1.Edit;
Table1Procentage.Value:=Round(Prec);
Table1.Next;
end;كيفية جمع قيم واعمل معادلة حسابية في جدول واحد - ابومهند - 17-05-2012
بارك الله فيك وجزاك الله خير.
تشكر يالغالي.