پیاده سازی موازی الگوریتم

[oranoos]

سلام دوستان
از من خواسته شده برنامه ای با multi pascal برای پیاده سازی الگوریتم sieve of eratosthenes برای پیدا کردن اعداد اول بنویسم ولی نه به این زبان برنامه نویسی آشنایی دارم . نه میدونم باید به شکل کار کنم ، کسی چیز آماده ای در این زمینه داره؟ ممنون میشم اگه کمک کنید آخه خیلی فوری

[whitehat]

این الگوریتم در حقیقت یک دنباله از اعداد 2 تا n درست میکنه و تا جذر عدد n اعدادی که بر اعداد قبلیها بخش پذیر هستند را حذف می کنه تا در نهایت خانه هایی که حذف نشدن همان اعداد اول هستند. الگوریتم را میشه به گامهای زیر نوشت
1. یک دنباله از اعداد صحیح متوالی 2 تا n درست کنید
2. ابتدا p را برابر 2 یعنی اولین عدد اول بگیرید
3. تمام اعدادی که باقیمانده تقسیم آنها با p برابر صفر است را حذف کنید
4. اولین عددی که بعد از p هنوز انتخاب نشده بود را انتخاب کن و p را برابر آن قرار بده
5. تا زمانی که p به توان 2 از n کوچکتر بود مرحله 3 و 4 را تکرار کن
6. عناصر باقیمانده در لیست برابر اعداد اول کوچکتر از n


الگوریتم را برای شما نوشتم کد آن مربوط به این بخش نمی شود
موفق باشید

[oranoos]

ممنونم از توجه و پاسختون ،ممکن خواهش کنم کد رو هم یه جایی بزارید یا اگه زحمتی نیست به ایمیلoranoos19@yahoo.com بفرستید.