دوستان می خوام بدونم چطور از طریق فورمول ریاضی اعداد اول رو پیدا می کنن
برای نوشتن برنامه بهش نیاز دارم
تنبلی کردم و سر کلاس نرفتم و الان گیر کردم خواهشا کمک کنید:11:
Printable View
دوستان می خوام بدونم چطور از طریق فورمول ریاضی اعداد اول رو پیدا می کنن
برای نوشتن برنامه بهش نیاز دارم
تنبلی کردم و سر کلاس نرفتم و الان گیر کردم خواهشا کمک کنید:11:
سلام فرمول نمی تونم بدم چون زبانی رو که می نویسی نگفتی (احتمالا ویژوال بیسک باشه)
خب ببین عدد 10 رو در نظر بگیر توی یه حلقه می ندازی به طول 10/2 که می شه 5
بعد می آد اونو 10 رو به 2 بعد 3 بعد 4 و 5 تقسم می کنه اگه باقیمانده در یکی از اونا صفر باشه یعنی عدد اول نیست و دیگه ادامه نده
اما اگه در هیچ کدوم صفر نشد پس بخش پذیر نیست و تا آخر باقیمانده ی هیچ کدوم صفر نشد اون موقع عدد اول هست فکر کنم دیگه متوجه شده باشی نه ؟
در ضمن اگه به زبان ویژوال باشه می تونم به زبان کد توضیح بدم
من پاسکال کار می کنم
فکر کنم گرفتم چی گفتی بذار ببینم می تونم باهاش برنامه بنویسم خبر می کنم
دوستان برنامه رو نوشتم ببینید خوبه
کد:uses wincrt;
var
n,j,i:integer;
flag:boolean;
begin
writeln('please enter num');
readln(n);
flag:=false;
for i:=2 to (n div 2) do
begin
j:=n mod i;
if j=0 then
flag:=true
end;
if flag then
writeln('not true ')
else
writeln('true');
end.
فقط یه مشکلی داره اگه اشتباه نکنم 1 عدد اول نیست ولی این عدد اول نشون میده فکر کنم باید یه شرط دیگه براش بذارم؟
تعریف عدد اول :
هر عدد بزرگتر از یک که به جز یک و خودش به چیزی بخش پذیر نباشد
یه شرط بذار که اگه ورودی یک بود حساب نکنه و بگه که اول نیست و گرنه بره و ادامه ی ماجرا ...
دیگه مشکل حل شدنقل قول:
واقعا ممنون که کمک کردید [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اینم برنامه تشخیص اعداد اول از 1 تا هر عددی که بخواهید :
مشکلی نداره ؟کد:program ShowPrime;
uses wincrt;
var
i,j,n:integer;
flag:boolean;
ch:char;
label
10;
begin
10:write('Please Enter Number Of Information : ');
readln(n);
writeln;
for j:=2 to n do
begin
i:=2; flag:=true;
while i<=(j div 2) do
begin
if (j mod i)=0 then
flag:=false;
i:=i+1;
end;
if flag=true then
write(j,' ');
end;
writeln;
writeln;
write('Do You Want To Start A New Test ? (y,n) ');
readln(ch);
if ch='y' then
begin
clrscr;
goto 10;
end;
if ch='n' then
writeln;
writeln(' GoodBye')
end.
دوستان عزیز خواهشا اعداد کامل رو هم برام تعریف کنید که چی هست و فرقش با اعداد اول چیه و چطور بدستش میارن
دستم به دامنتون فردا امتحان دارم زودتر کمک کنید
شرمنده من بلد نیستم کپی کردم ریاضیم ضعیفه :
يونانيان باستان بسيار به اعداد علاقه داشتند.حدود ۲۰۰۰سال پيش آنها اعداد عجيبی را کشف کردند که نام آنها را اعداد کامل گذاشتند. اولين عدد کامل ۶ است.اين عدد غير از خودش بر اعداد ۱ و ۲ و ۳ بخش پذير است. اگر اين سه عدد را باهم جمع بزنيد چه عددی بدست می ايد؟
عدد کامل بعدی ۲۸ است.اين عدد نيز غير از خودش بر اعداد ۱و۲و۴و۷و۱۴ بخش پذير است.حال اين اعداد را با هم جمع بزنيد! عدد کامل بعدی ۴۹۶ است. امروزه با رايانه می توان اعداد کامل را بدست اورد که نوشتن آن تمام اين صفحه را پر خواهد کرد.
اینم دومی :
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اینم سومی :
داه های عددی
بطور کلی همه داده های عددی در دو گروه قرار می گیرند:
اعداد صحیحintegers=اعداد کامل بدون ممیز اعشاری می باشند مثل 614.934-و938.3.918
اعداد صحیح نشان دهنده سن . تعداد . سال و غیره می باشند.
اعداد اعشاری decimals:اعداد دارای ممیز اعشاری می باشند که مقادیر کسری را نشان می دهند مثل
8.709.0.005و-402.35534اعداد اعشاری که گاهی اعداد با ممیز شناور floating point
نیز نامیده می شوند نشان دهنده درجه حرارت نرخ بهره و غیره می باشند. در کلیه اعداد اعشاری باید ممیز اعشاری را قرار دهید حتی اگر قسمت کسری سمت راست ممیز مساوی صفر باشند.
هفت نوع داده عددی که ویژوال بیسیک از آنها پشتیبانی می کند.