delphi 怎么判断一个数是否为素数
答案:2 悬赏:60 手机版
解决时间 2021-03-07 16:50
- 提问者网友:萌卜娃娃
- 2021-03-06 23:01
delphi 怎么判断一个数是否为素数
最佳答案
- 五星知识达人网友:北城痞子
- 2021-03-07 00:03
function TForm1.sushu(i: integer): Boolean;
var
iTemp1,j : integer;
begin
Result := True;
iTemp1 := Trunc(Sqrt(i));
for j := 2 to iTemp1 do
begin
if i mod j = 0 then Result := False
end;
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
if sushu(StrToInt(edt1.Text)) then ShowMessage('yes');
end;
var
iTemp1,j : integer;
begin
Result := True;
iTemp1 := Trunc(Sqrt(i));
for j := 2 to iTemp1 do
begin
if i mod j = 0 then Result := False
end;
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
if sushu(StrToInt(edt1.Text)) then ShowMessage('yes');
end;
全部回答
- 1楼网友:从此江山别
- 2021-03-07 00:48
function isprimenum(num: integer): word;
var
i: integer;
begin
result := 0;
for i := 2 to num - 1 do
if num mod i = 0 then
begin
result := 1;
break;
end;
end;
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯