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

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

نوع اول : بر همه اعداد کوچکتر از خودش تقسیم می کنیم :
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

}