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

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

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

اخي العزيز

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

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

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

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

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

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

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

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

Dear hmha83,

To do that download my project and try it