المساعد الشخصي الرقمي

عرض الإصدار الكامل : to Ibonacci

الخوارزمي
09-02-2006, 03:28 PM
السلام عليكم أخونا إيبوناتشي
أتمنى تساعدني في الحصول على برنامج تحديد الأعداد الأولية و تحليلها و كتابة عواملها
و بلغة التربوباسكال

مع الشكر سلفا
محمد بادنجكي
09-02-2006, 06:08 PM
هي فكرة البرنامج:
إذا كان العدد X ليس أولياً فيوجد عدد اولي أصغر من جذر X يقسم العدد X

بمعنى آخر إذا لم يوجد عدد أصغر من جذر العدد X ويقسم X فيكون عندها X أولي....

خلينا نأخذ مثال صغير...

العدد 1853 جذره بين العددين 43 و 44

وبالتالي إذا لم يوجد قاسم للعدد 1853 أصغر من 43 فالعدد 1853 أولي.....

ونلاحظ ان العدد 43 صغير بالنسبة للعدد 1853 يعني أصغر من 1853/40 أي أنه حد صغير للمقارنة....
بس مافهمت شو يعني تحليل الأعداد الأولية:emot106:
ليش يعني الأعداد ممكن تحليلها لأعداد صحيحة :emot100:
الخوارزمي
09-03-2006, 12:48 AM
السلام عليكم أخونا إيبوناتشي
أتمنى تساعدني في الحصول على برنامج تحديد الأعداد الأولية و تحليلها و كتابة عواملها
و بلغة التربوباسكال

مع الشكر سلفا
المقصود طبعاً تحديد الأعداد الأولية من غير الأولية و تحليل هذه الأخيرة و كتابة و عواملها
بس زي منت شايف مشاركتي اتكتبت الساعة 4 صباحاً :emot106:
و انت كلك زوق و مفهومية:36_1_50:
الخوارزمي
09-03-2006, 02:31 AM
و بعد التدقيق و باقتباس كلامك التالي
ليش يعني الأعداد ممكن تحليلها لأعداد صحيحة :emot100: بقلك طبعا الأعداد ممكن تحليلها لأعداد صحيحة بس مو كلاّ


بانتظار البرنامج إذا حدن بيتكرم علينا
محمد بادنجكي
09-03-2006, 09:35 AM
شكراً للتصحيح هي ناقصة كلمة الأعداد الأولية
بس فكرة البرنامج و ضحت :sita1234:
الخوارزمي
09-03-2006, 02:32 PM
مع الشكر سلفاً


بالانتظار ....
Ibonacci
09-05-2006, 02:36 PM
السلام عليكم:
عذرا ً على التأخير، أخي الخوارزمي البرنامج مو بين إيدي هلق... ممكن تنتظرني لبكرة؟؟؟
الخوارزمي
09-05-2006, 08:45 PM
السلام عليكم أخوي Ibonacci
الحمد لله على السلامة قبل كل شيئ و عسى غيابك عنا كان خيرا

و بالنسبة للبرنامج أنا ممنونك سلفاً

و للعلم فقط غايتي منه محاولة كشف الطريقة التي يمكن الحصول بها على عوامل أي عدد كان
الخوارزمي
09-09-2006, 04:28 AM
اللّهم اطوِ له الأرض طيّا
اللّهم افتح له من أبوب العلم ما شئت فتحا
اللّهم يسّر له أمور الدارين الدنيا و الأخرى
اللّهم و ائتنا به غانماً سالماً حاملاً محمّلا

اللّهم إنّا ندعوك لأجل عبدك الذي سخّرته للعلم في الأرض
اللّهم فاجعله ممّن سخّرت للجنّة في الآخرة

آمين
Ibonacci
09-09-2006, 04:58 PM
اللّهم اطوِ له الأرض طيّا
اللّهم افتح له من أبوب العلم ما شئت فتحا
اللّهم يسّر له أمور الدارين الدنيا و الأخرى
اللّهم و ائتنا به غانماً سالماً حاملاً محمّلا

اللّهم إنّا ندعوك لأجل عبدك الذي سخّرته للعلم في الأرض
اللّهم فاجعله ممّن سخّرت للجنّة في الآخرة

آمين
الله يكتر خيرك أخي الخوارزمي، والله يرزقك من فضله حكمة وعلما
والله يا أخي البرنامج كتبتو من يوم اللي وعدتك فيه، الطريقة كتير مبسطة:
1. نفحص العدد إذا كان أولي أم لا: بالطريقة التي كتبها محمد بادنجكي.
2. إذا كان أولي طبعناه على حاله، وإلا:
3. نحتفظ بالقاسم من العملية السابقة(التي تقوم بفحص هل العدد أولي أم لا)
4. نقوم بعدها بتطبيق نفس العملية على ناتج قسمة العدد على قاسمه... وهلم جرا ً
5. في النهاية نقوم بطباعة جميع العوامل التي كنا قد حصلنا عليها قبل آخر عملية
هي الطريقة. بس البرنامج حطيتو عالفلاشة ونسيت أسحبها من الجهاز :emot151:
Raw
09-09-2006, 06:39 PM
شكراً أخونا إبراهيم عالخوارزميـّـة
و جاري كتابة البرنامج ...
الله يسلم هالإيدين ...®
:36_1_11:
الخوارزمي
09-09-2006, 10:26 PM
فعلا الشكر أقل من الكلمات

و اعذر سماجتي

و لكن من زمان ما كتبت برنامج بالتربوباسكال
ياريت هالخدمة الأخيرة
و رح تنفعني و تنفعكم في الدنيا و الآخرة
و تكون أول برنامج ينزل بالقسم
Ibonacci
09-11-2006, 03:12 PM
لك مو تكرم أخي الخوارزمي... ولو كنت متأخر شوي:emot100:
9
الخوارزمي
09-11-2006, 06:23 PM
و الله يا عزيزي العتب مو عليك بس العتب عاللي بياكلوا و بينكروا
يمكن صار عدد المشاهدات لليوم 10 أس ما بعرف قديش و لا حدا فداني بالبرنامج ( باستثناء المشرفين لأنو بعرف شو عندن )
على كل زادك الله من علمه و نفع الأمة به ...... آمين .......
و مشكور مرة ثانية
euler
10-19-2006, 06:52 AM
البرنامج الأصلي:

function primary(n:longint):boolean;
begin
i:=2;
primary:=true;
while (i<(round(sqrt(n))+1))and((n mod i)<>0 ) do
i:=i+1;
if (n mod i = 0)then
primary:=false
end;


يمكنك تسريع البرنامج أكثر بالشكل التالي:
function primary(n:longint):boolean;
begin
i:=3;
primary:=true;
while (i<(round(sqrt(n))+1))and((n mod i)<>0 ) do
i:=i+2;
if (n mod i = 0)then
primary:=false
end;

المرجو تجربة هذا التعديل على أعداد ضخمة ومعاينة الفرق في الوقت اللازم لإعلان النتيجة
وشكرا.
Raw
10-19-2006, 10:25 AM
مرحبا يا شباب ...

أهلين أخي أولر ...!!

كلّ الشكر على البرنامج ..
جاري التجريب ..!!!
®
zyous
11-05-2006, 05:03 AM
:36_1_13:je suis desolée je peux pas parler en arabe a cause de mon pc bon s il vous plait aider moi pour etre excelente en matematique c ma matière preferé et je fais les mathematiques du terminale plz aider moi par des exercices et leçons plzzzz
محمد بادنجكي
11-06-2006, 01:40 PM
هذه هي ترجمة مشاركة الأخ العزيز إلى الإنكليزية :


I am sorry I cannot speak in Arabic because of my PC .
it plait you to help me to be excelente into matematic .
my matter preferred and I make mathematics of final the please help me by exercises and lessons please
boder_man
09-29-2007, 09:16 PM
oui avec plaisir il faut que tu participe en posant des sujet et aussi dicuter les sujet de forum
محمد ميموني
12-30-2008, 10:47 PM
لماذا لا تجربون خوارزمية Aks؟
محمد ميموني
12-30-2008, 11:20 PM
http://www.trigofacile.com/maths/curiosite/primarite/aks/images/algo-aks.png