用while循环找素数

 我个人认为编程就是把复杂的问题简单化,如找素数.

我的办法是先让学生知道如何判断一个素是否是素数,然后

枚举或遍历1-100那就简单了.主要是把算法和思想给学生.

 

 

 

 File  Edit  Search  Run  Compile  Debug  Tools  Options  Window  Help
╔═[■]══════════════════════════════ FGL1.PAS ════════════════════════════1═[↕]═╗
║program su1;                                                                  ▲
║const n=100;                                                                  ■
║var i,k:integer;prime:boolean;                                                ▒
║begin                                                                         ▒
║for i:=2 to n do                                                              ▒
║  begin                                                                       ▒
║prime:=true;                                                                  ▒
║k:=2;                                                                         ▒
║while (k<i) and (prime=true) do                                               ▒
║   begin                                                                      ▒
║   if i mod k=0 then prime:=false;                                            ▒
║      k:=k+1;                                                                 ▒
║   end;                                                                       ▒
║if (prime=true) then                                                          ▒
║ writeln(i);                                                                  ▒
║ end                                                                          ▒
║end.                                                                          ▒
║                                                                              ▒
║                                                                              ▒
║                                                                              ▒
║                                                                              ▼
╚═══════ 1:1 ═════◄■▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒►─┘
 F1 Help  F2 Save  F3 Open  Alt+F9 Compile  F9 Make  Alt+F10 Local menu