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

[hmha83]

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

ارجو الرد بسرعة

[ibn_alqalam]

اخي العزيز

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

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

http://www.research.att.com/~njas/sequences/indexarabic.html

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

ليس هناك طريقة لايجاد *كل* الاعداد الاولية، ولكن يمكنك استخدام
غربال اراسثنيس Sieve of Eratosthenes لايجاد كل الاعداد الااوليةاقل من ن

[king arthure]

أخي العزيز في كل لغة توجد هناك حلقات تكرار يمكن استعمالها لأداء غرض معين .

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

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]

Dear hmha83,

To do that download my project and try it