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

مشاهدة النسخة كاملة : بريمج ( 14ك.ب ).. يبين الأعداد الأولية

الجبل
30-08-2007, 03:54 PM
بريمج يبين الأعداد الأولية ... إلى رقم معين ....

وبه تستطيع أن تختبر رقما معينا حتى (( لو كان أكبر من ترليون )) هل هو أولي .. وما الأعداد التي يقبل القسمة عليها إن كان غير أولي ....

هدية لكم .. من تصميمي ولله الحمد


لم أستطع إرفاق الملف .. لأنه تطبيقي ... سأرفعه لاحقا ...

.
أيمن ديان
30-08-2007, 04:38 PM
السلام عليكم

أخي الجبل

نحن بالإنتظار
Mr.KSA
30-08-2007, 05:21 PM
شوقتنا استاذ الجبل

يله نحن بالانتظار

تحياتي لك
الجبل
31-08-2007, 03:06 AM
الحمد لله تم الرفع ... آمل نسخ الرابط في الموضوع

http://9q9q.net/9q9q.net.gif (http://upload.9q9q.net/file/BbAEFemOLlg/Awaleeh.rar.html-Accounting.html)




.
omar
31-08-2007, 05:18 PM
شكرا لك على هذا البرنامج الصغير .

نزلته على جهازي لكنه لم يعمل :

This application has failed to star because MSVBVM0.dll was not found . Re-installing the application may fix this problem

ياليت أخي الكريم تذكر بأي لغة برمجة كتبت البرنامج لأرى حدود إمكانياته .

إذا كان ب C/C++ ياليت تكتب الكود سورس .

تحياتي .
الجبل
31-08-2007, 06:30 PM
أخي الكريم
البريمج ... صمم بواسطة الفيجوال بيسك

والرسالة تبين أن ملفات الربط الديناميكية MSVBVM0.dll غير موجودة .. وهي ضرورية لبرامج الفيجوال
لكن غريبة هذه الملفات موجودة في كل إصدارات نظام windows




.
القناص
31-08-2007, 08:13 PM
كل عام وانتم بخير لقد اتى شهر الغفران
اللهم بلغنا رمضان وتقبل صيامنا وقيامنا
وهب لنا عملا صالحا يقربنا اليك
وصلى اللهم على سيدنا محمد
semsem3891
01-09-2007, 01:47 AM
البرنامج جميل جدا تسلم اخي
بس في طريقه اخري لمعلرفه اذا كان العدد اوليا اما لا
اذا قبل العدد القسمه علي اي عدد من الاعداد الاوليه اصبح غير اولي اما اذا لم يقبل يصير غير اولي
Amel2005
01-09-2007, 03:56 AM
السلام عليكم ورحمة الله وبركاته
برنامج رائع أخى الكريم
بارك الله فيك.

وقمت بتحميل الملف على سيرفر المنتدى حتى لا نفقده... فأرجو المعذرة
الرابط (http://www.eclasshome.com/attach/upload3/wh_40041504.zip)

أخى الفاضل/
وجدت لك موضوعا على الرابط
http://www.uaemath.com/ar/aforum/showthread.php?t=6551

ويبدو أنك كنت تبحث فيه عن خوارزمية اختبار العدد الأولى ..
كما يبدو أنك قد حصلت عليها ...

فهل - تكرما - يمكن وضع الكود الذى وضعته بالبرنامج لنستفيد منه...سواء كان لنا فكرة فى الفيجوال بيسك أو فى الأكشن سكريبت .

تمنياتى لك بالتوفيق.
الجبل
02-09-2007, 04:33 PM
.


بارك الله في الجميع ..تجدون الكود هنا http://9q9q.net/9q9q.net.gif (http://upload.9q9q.net/file/dCc976mmIVS/-----.rar.html-Accounting.html)



.
Amel2005
02-09-2007, 08:01 PM
السلام عليكم ورحمة الله وبركاته
جزاك ربى خير الجزاء أستاذى الكريم / الجبل
وزادك علما نافعا ... ونفعنا بك.

الكود فعلا بمنتهى الروعة

Private Sub ****1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
d = Val(****1)
If Val(****1) < 1 Then
****1.**** = ""
****2.**** = "خطأ !!! ( لا تكتب حروفا .. أو رقما أقل من صفر )"
GoTo pp:
End If

For o = 2 To (d \ 2) + 1
If d / o = d \ o Then nump = nump & o & " , "
Next o
If nump = "" Then
****2 = " هذا عدد أولي "
Else
****2 = " يقبل القسمة على " & "(" & "1 " & " , " & nump & d & " )"
End If
End If

pp:

End Sub

أعتقد أنك قمت باختبار نصف قيمة العدد وتجريب القسمة عليه لتقليل عملية البحث داخل البرنامج...

وقد حاولت فهم الكود قدر استطاعتى ... فلك شكرى واحترامى
أيضا ... الأجمل فى الكود هو استخدامك للـ " \ " ، " /" .

والتى أوضح الأستاذ خالد المستهيج الفرق بينهما على الرابط (http://www.alriyadh.com/*******s/10-07-2003/RiyadhNet/Learning_1461.php)

جزاك الله خيرا أخى الكريم.
تقبل تحياتى.