Primality by trial division: Difference between revisions

Content added Content deleted

Inline

@@ Line 275: / Line 275: @@
     return true ;
 }</lang>
+=={{header|Delphi}}==
+<lang Delphi>
+function IsPrime(aNumber: Integer): Boolean;
+var
+  I: Integer;
+begin
+  Result:= True;
+  if(aNumber = 2) then Exit;
+  Result:= not ((aNumber mod 2 = 0)  or
+                (aNumber <= 1));
+  if not Result then Exit;
+  for I:=3 to Trunc(Sqrt(aNumber)) do
+  if(aNumber mod I = 0) then
+  begin
+    Result:= False;
+    Break;
+  end;
+end;
+</lang>
 =={{header|E}}==