Question

任何人都可以帮我制作Pascal函数来检查数字是否为素数？布尔函数返回true或false将是最有帮助的，因为我的程序需要循环更多数字，测试它们并输出它们是否确实是素数。这是我可以管理的部分，但是我在构建实际函数以检查它时遇到了问题。

非常感谢

Answer 1

试试这个：

Program Primechk; 
Var 
Num                     :       Integer; 
checker,count,adder     :       ShortInt; 
Begin 
 Write('Enter one number : '); 
 Readln(Num); 
 adder := 0; 
 For count := 1 to 10 do 
   begin 
     checker := num mod count; 
     if checker = 0 then 
     adder := adder + 1 
   end; 
 if (num <= 10) and (adder > 2) then 
    Writeln(num, ' is not a prime number') 
 else 
     if (num > 10) and (adder > 1) then 
        Writeln(num, ' is not a prime number') 
     else 
         Writeln(num,' is a prime number'); 
end.

您可以将其用作基础并根据需要进行修改。简单的googleing：]

检查数字是否为素数

1 个答案: