كيف لي أن أعرف قوسم عدد ما بالديلفي

التعليمة mod تعطيك باقي القسمة

مثلا

 12 mod 5  =  2

ما اردت توضيحه هو

إذا ادخلنا العدد 12 في edit

على ان يعطينا قواسمه والمتمثلة في

1,2,3,4,6,12

في label من خلال ضغطنا على Button

هذا مااردت ان افهم

for i:=1 to strtoint(edit1.text) do if strtoint(edit1.text)mod i=0 then 
label.caption:=label.caption+'*'+inttostr(i);

bachirk ما شاء الله عليك

قرآت الموضوع قبل لا تضع انت جوابك ... وكتبت كود يعطي نفس النتيجة

لكن الحمد للة انك وضعت جوابك قبلي ...

لو شفت طريقتي راح تضحك لمدة شهر متواصل

واحتمال ادارة المنتدى يطردوني .. ويعتبروني عااااااااار على مبرمجين الدلفي .. : )

تخيل .. بعد سنين من البرمجة اول مرة اعرف فائدة Mod

شكرآ لك .

حل الأخ bachirk صحيح و لكن:

اللوب يجب أن يبدء من 2 ولغاية العدد نفسه -1 لأن أي عدد يقبل القسمة على 1 ونفسه وشكراً.

فيكون السطر الأول من الكود على الشكل التالي:

for i:=2 to strtoint(edit1.text)-1 do if strtoint

Mer كتب:

اللوب يجب أن يبدء من 2 ولغاية العدد نفسه -1

من 2 الى نصف العدد

من الممكن ان لا تحتاج للوصول الى نصف العدد

i:=0;
repeat
i:=i+1;
if strtoint(edit1.text) mod  i=0 then
begin
label1.caption=label1.caption+'*'+inttostr(i);
label1.caption=label1.caption+'*'+inttostr(strtoint(edit1.text)  div i);
end;
until (strtoint(edit1.text) div i)<=i;

bachirk كتب:

من الممكن ان لا تحتاج للوصول الى نصف العدد

i:=0;
repeat
i:=i+1;
if strtoint(edit1.text) mod  i=0 then
begin
label1.caption=label1.caption+'*'+inttostr(i);
label1.caption=label1.caption+'*'+inttostr(strtoint(edit1.text)  div i);
end;
until (strtoint(edit1.text) div i)<=i;

هذا الكود به خطا تكرار الأرقام ، و حبذا لو أخذت برأي المشرف

أي وصول الحلقة التكرارية إلى نصف العدد ، فمن غير الممكن أن يكون أحد قواسم عدد أكبر تماما

من نصف العدد

و على العموم مشكور اخي الكريم

for i:=1 to strtoint(edit1.text) div 2 do
 if strtoint(edit1.text)mod i=0 then 
label.caption:=label.caption+'*'+inttostr(i);

هذا الكود صحيح وهو نفس فكرة الكود السابق

i:=1;
while ( (strtoint(edit1.text) div i)>i) do
begin
if strtoint(edit1.text) mod  i=0 then
begin
label1.caption:=label1.caption+'*'+inttostr(i);
label1.caption:=label1.caption+'*'+inttostr(strtoint(edit1.text)  div i);
end;
i:=i+1;
end;

اخ bachirk هل يدخل العدد نفسه في مجموعة قواسمه ؟

نعم لان الحاصل عدد طبيعي وهو الواحد

صحيح،

تذكرت التعريف:

العدد الاولي هو الذي مجموع قواسمه تساوي اثنين