فلوچارت اول بودن عدد

[alirezab]

دستورات الگوریتمی , روندنما ( فلوچارت ) , شبه کد برنام ای را بنویسید که در آن مشخص نماید عدد داده شده n اول است و در صورت مثبت بودن کلمه Yes ررا در مقابل عدد مذبور چاپ نماید

[seyedVB]

این برنامه سورسش به چند نوع میشه نوشت :

نوع اول : بر همه اعداد کوچکتر از خودش تقسیم می کنیم :



Checkprime():Boolean
{
n=read;
for i = n-1 to 2
k = n mod i
if k<>0 & i = 2 then
write('Yes')
Checkprime=true
else
write('No')
Checkprime=false
end if
next
}


------------------------------------------------------

راه دوم :

از عدد جذر میگیریم به اعداد کوچکتر از جذرش تقسیم می کنیم ، اگر بخش پذیر نبود اوله :



CheckPrime()
{
n=read
j = sqr(n)
for i = 2 to j
k = n mod i
if k<>0 and i=j then
write('Yes')
else
write('No')
end if
next
}