素数与Delphi(附:源码）

质数又称素数。指在一个大于1的自然数中，除了1和此整数自身外，没法被其他自然数整除的数。 换句话说，只有两个正因数（1和自己）的自然数即为素数。 比1大但不是素数的数称为合数。1和0既非素数也非合数。

var

j,k:integer;

begin

edit2.Text:='';

k:=strToInt(edit1.Text );

for j:=2 to (k-1) do //排除1和k本身

begin

if ((k mod j) =0) then

begin

edit2.Text :=edit1.text+'不是素数！';

break; //强制退出循环

end

else

edit2.text:=edit1.Text +'是素数!' ;

end;

case k of

0,1:edit2.text:=edit1.Text +'不是素数，也不是合数!' ;

2:edit2.text:=edit1.Text +'是素数!' ;

end;

附件：http://down.51cto.com/data/2358397