کسی کدی داره که بشه اعداد اول رو پشت هم نوشت
کسی کدی داره که بشه اعداد اول رو پشت هم نوشت
با سلام اینم کدش:
function Prime(n as integer)
dim i,t
for i=1 to n
if n mod i=0 then t=t+1
if t=2 then
return=1
else return=0
end function
dim i
for i=1 to 200
if prime(i) then
response.write i
اگه نشد بگو تا برات کدشو بنویسم بفرسم
امیر
سلام
برای نمایش اعداد اول از 1 تا x میتونید از تابع زیر استفاده کنید:
<%
function prime(x)
if x < 2 then
response.write ("No number")
end if
for m = 2 to x
for i = 1 to m
n = m mod i
if n = 0 then
c = c + 1
end if
next
if c = 2 then
response.write(m & "<BR>")
end if
c = 0
next
end function
%>
برای مثال برای چاپ اعداد اول از 1 تا 1000 از تابع فوق بدین شکل استفاده کنید:
<%
prime(1000)
%>
اگه به مشکلی برخورد کردید بگید چون همین الآن نوشتمش و ممکنه ایراداتی داشته باشه. :sorry:
روز خوش
آقا مسعود کار شما هیچوقت مشکل نداره ... :موفق:
البته اگر میشه میخواستم ببینم آیا میشه سومین عدد یا آخرین عدد رو از این تابع گرفت
با یه حلقه + شمارشگر میتونید این کار رو انجام بدید.سومین عدد
اگه فهمیدید آخرین عدد اول چیه من رو هم خبر کنید :mrgreen:آخرین عدد
نمی خوام تاپیک رو منحرف کنم ولی اولا که آخرین عدد اول رو پیدا کردند که چندماه پیش خبرش در اخبار پخش شد .
ثانیا منظور ایشون احتمالا این بوده که مثلا prime(1000( مثلا 997 آخرین عدد اول هست . البته شاید هم منظورشون این نبوده . :D
درسته !prime(1000( مثلا 997 آخرین عدد اول هست .
سلام
بنده بی خبر بودم. :)آخرین عدد اول رو پیدا کردند که چندماه پیش خبرش در اخبار پخش شد .
من کد بالا رو به صورت زیر اطلاح کردم تا تمام این کارها رو انجام بده:
<%
Function Prime(Maximum,Number,Reverse)
'Maximum = hade bala
'Number = tedad adade morede nazar
'NumCounter = shomarande baraye tedad adade bargashti
'Remainder = baghimande
'Counter = shomarandeye tedad maghsoumon elayh ha
'V1 va V2 = moteghayerhaye estefade shode dar halgheha
If Maximum < 2 Then
Response.Write ("No number")
End If
NumCounter = 0
Select Case Reverse
Case -1
For V1 = Maximum To 2 Step -1
For V2 = 1 To V1
Remainder = V1 Mod V2
If Remainder = 0 Then
Counter = Counter + 1
End If
Next
If Counter = 2 Then
Response.Write(V1 & "<BR>")
NumCounter = NumCounter + 1
End If
Counter = 0
If NumCounter = Number Then
Exit Function
End If
Next
Case 1
For V1 = 2 to Maximum
For V2 = 1 to V1
Remainder = V1 mod V2
If Remainder = 0 Then
Counter = Counter + 1
End If
Next
If Counter = 2 Then
Response.Write(V1 & "<BR>")
NumCounter = NumCounter + 1
End If
Counter = 0
If NumCounter = Number Then
Exit Function
End If
Next
End Select
End Function
%>
مثال:
برای اینکه 10 عدد نخست از اعداد اول در بازه 0 تا 500 را بدست آورید ٬ از تابع فوق بدین شکل استفاده کنید:
Prime 500,10,1
برای اینکه 10 عدد آخر از اعداد اول در بازه 0 تا 500 را بدست آورید ٬ از تابع فوق بدین شکل استفاده کنید:
Prime 500,10,-1
مشخص است که برای بدست آوردن آخرین عدد اول در بازه مورد نظر باید از کد زیر استفاده کرد:
Prime xxx,1,-1
امیدوارم مفید بوده باشه :)
:strange:
عالیه ( ! ) ... {مرسی حوصله :موفق:}
این ماجرایچیه؟ :kaf:آخرین عدد اول رو پیدا کردند که چندماه پیش خبرش در اخبار پخش شد .
این ماجرایچیه؟ :kaf:آخرین عدد اول رو پیدا کردند که چندماه پیش خبرش در اخبار پخش شد .
یه دانشمند آلمانی تونست آخرین عدد اول رو توسط یک برنامه که خودش نوشته بود با یه پردازنده ابر رایانه ای با 16 رقم کشف کنه البته بعضی ها معتقدند که باز هم وجود داره (با استناد به اصل نظریه اعداد ترکیبی) من هم دنبال همون ها میگشتم
در ضمن آقا مسعود واقعا خسته نباشی
میشه یه لینک در این مورد بدین که دقیقتر بفهمم قضیه چیه!
گوگل رو برای همین مواقع گزاشتن :flower:
اخوی! گشتم پیدا نکردم. حالا شما وقت کردین یه حالی بدین :موفق:
الان حضور ذهن ندارم . به آرشیو اخبار صدا و سیما مراجعه کنید . :موفق:
ببخشیدا
البته اون آخرین عدد اول نبود (چون تو دنیای بینهایت آخری معنا نمیده) بلکه بزرگترین عدد اولی که انسان اونو پیدا کرده حتی اگر کسی بتونه عدد اولی که از این عدد بزرگتره را پیدا کنه دولت آمریکا جایزه هم میده از این اعداد در رمز گذاری الکترونیکی برای رد وبدل کردن اطلاعات بصورت سری استفاده میشه
میدونم! منم واسه همین کف کردم! فکر کردم ثابت کردند که آخریشه که کفم برید!
شما درست فکر کردید این اثبات شده و تا زمانی که نقض اون اراعه نشه کسی نمیتونه بگه که این بزرگترین عدد اول نیستفکر کردم ثابت کردند که آخریشه که کفم برید!
این مسئله هم که شما میگید هم درسته هم غلط :چون تو دنیای بینهایت آخری معنا نمیده
آلبرت نورن (رباضیدان هلندی) معتقد که اعداد اول جایی باید تموم بشه چون هر چه ما اعداد رو به صورت دنباله بیاوریم در پله های بالا اعدادی وجود دارند که بقیه اعداد رو تحت پوششی قرار میدهند برای مثال
1,2,3,4
2*2=4
العان 4 توسط 2 محاط شده پس 4 اول نیست ...
این بازه را اگر اینقدر بزرگ کنیم که ملیون ها عدد اول رو در خود داشته باشه دانباله اعداد اول (زور نزنید این دنباله کشف نشده) در بازه های پایانی به سمت صفر نزول میکند...
اگر کافی نبود ببخشید ... :sorry:
برای اثبات باید دلیل ارایه کرد و برای رد کردن مثال نقض. پس وقتی هیچکدوم ارایه نشده هیچی نه اثبات شده نه رد! بنابراین کشف جدیدی انجام نشده! فقط یه عدد اول خیلی خیلی بزرگ پیدا شده که بزرگترش هنوز پیدا نشده! در ضمن همونطور که کسی نمیتونه بگه این بزرگترین نیست کسی هم نمیتونه بگه هست.و تا زمانی که نقض اون اراعه نشه کسی نمیتونه بگه که این بزرگترین عدد اول نیست
درسته. به سمت صفر میل میکنه. اما هیچ کس نتونسته ثابت کنه که خود صفر میشه! اصولا لزومی نداره که وقتی عددی به صفر میل کرد حتما بگیم پس صفر میشه! به صفر میل کردن یعنی در بینهایت صفر میشه که یعنی از جنبه عملی صفر نمیشه!این بازه را اگر اینقدر بزرگ کنیم که ملیون ها عدد اول رو در خود داشته باشه دانباله اعداد اول (زور نزنید این دنباله کشف نشده) در بازه های پایانی به سمت صفر نزول میکند...
لازم نیست خود صفر بشود فقط کافی از 1 کوچکتر بشود تا عدد حقیقی دیگری وجود نداشته باشد ... :flower:در بینهایت صفر میشه
عدد به سمت صفر میل نمیکند قدر نسبت به سمت صفر میل میکند که همونجور که در بالا توضیح دادم بعد از اون که از یک کوچکتر شد اعداد یک سیکل بسته رو دنبال میکنند :موفق:وقتی عددی به صفر میل کرد
من که هیچ چیز سر در نیاوردم . :embr:
خوب تا همینجاشم فکر نمیکنم اثبات شده باشه.لازم نیست خود صفر بشود فقط کافی از 1 کوچکتر بشود
ضمنا من هنوز دنبال لینک خبر هستم و پیداش نکردم :(
irib.ir archive :flower:
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول