تسجيل الدخول

مشاهدة النسخة كاملة : ارجو المساعدة في كيفية ايجاد الاعداد الاولية في الارقام من 0 الى 200


hmha83
11-01-2005, 07:29 PM
ارجو المساعدة في كيفية ايجاد الاعداد الاولية في الارقام من 0 الى 200

ارجو الرد بسرعة
ibn_alqalam
11-01-2005, 09:36 PM
اخي العزيز

الاعداد الاولية معروفة جدا وليس من الضروري ان تبحث عنها بنفسك

استخدم هذه القاءمات:

http://www.research.att.com/~njas/sequences/indexarabic.html (http://www.research.att.com/%7Enjas/sequences/indexarabic.html)

http://doc.trolltech.com/3.2/primes.html

ليس هناك طريقة لايجاد *كل* الاعداد الاولية، ولكن يمكنك استخدام
غربال اراسثنيس Sieve of Eratosthenes لايجاد كل الاعداد الااوليةاقل من ن
king arthure
11-01-2005, 11:05 PM
أخي العزيز في كل لغة توجد هناك حلقات تكرار يمكن استعمالها لأداء غرض معين .


وسوف اكتب لك الجبرنامج الذي تريده بلغة الباسكال .... واليك البرنامج

program king_arthure;

var

i , j :integer;

flag:boolean;

begin

for i:1 to 200 do

begin

flag:=true;

for j:=2 to i-1 do

if(i mod j =0 ) then flag:=false;

if flag=true then write(i,' ');

end;

end.

في الرنامج تم تعريف المتغيرات التي سوف نستعملها وهي من النوع الصحيح والنوع البولياني .

وفي حلقة التكرار الأولى تم تحديد المدى الذي تريد معرفة الأعداد الأولية التي بينهما وهي من 1 الى 200 .

ثم في الحلقة الثاية يتم اختبار العدد هل هو اولي أم غير ذلك وقد تتسائل هنا لماذا بدأت الحلقة بالعدد 2 وانهيتها بالعدد المراد اختباره منقوص منه عدد واحد لأن من تعريف العدد الأولى هو انه لا يقبل القسمة إلا على نفسه او الواحد الصحيح وبهذو الخطوة قد استثنينا في عملية الأختبار العدد واحد والعدد نفسه .

وانشاء الله قد يكون البرنامج يفي بالغرض

king arthure
VBS
12-01-2005, 11:05 AM
Dear hmha83,

To do that download my project and try it