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

[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

}