델파이에서 소수를 확인하는 방법

Question

1과 10000 사이의 모든 소수를 동적 배열로 읽고 모든 비 소수를 다른 동적 배열로 읽어 들이고 프라임 배열을 richedit1으로 읽으려는 경우 :

procedure primearrays; 
var 
    j, k, l, i, m: integer; // k is the number I am testing for prime number 
    // j is used in the for loop to check all numbers smaller than k to see if k is dividable by j 
    // l is just a variable set to k mod j to make the if run more smoothly 
    // i is the length of the array anotprime 
    // m is used to set the length of the array aprime 
    bflag: boolean; // bflag is to show if this number is a prime number 
    aprime, anotprime: array of integer; 
    // aprime is the array of prime and anotprime is the array of nonprime numbers 
begin 
    j := 0; 
    i := 0; 
    l := 0; 
    richedit1.Lines.Clear; 
    bflag := false; 
    for k := 2 to 10000 do 
    begin 
    j := 0; 
    while not(j = (k - 1)) do 
    begin 
     inc(j); 
     l := k mod j; 
     if (l = 0) then 
     begin 
     bflag := false; 
     inc(i); 
     setlength(anotprime, i); 
     anotprime[i - 1] := k; 
     j := k - 1; 
     end 
     else 
     begin 
     bflag := true; 
     end; 
    end; 
    m := -1; 
    if (bflag) then 
    begin 
     inc(m); 
     setlength(aprime, m); 
     aprime[m - 1] := k; 
     richedit1.Lines.Add(inttostr(aprime[l-1])); 
    end; 
    end; 
end; 

그러나 이것은 작동하지 않는 것 같습니다. 모든 정수를 anotprime에 저장합니다.

Answer 1

procedure TForm1.btnprimeClick(Sender: TObject); var K, I, iCount : Integer; begin for K := iStart to iEnd do begin iCount := 0; for I := 2 to iEnd do begin if K mod I = 0 then begin Inc(iCount); end; end; if iCount = 1 then begin memData.Lines.Add(IntToStr(K)); end; end; end;

Answer 2

아마 당신이 가진 주요 문제는 하나의 기능으로 모든 다른 측면 (후보를 반복, 프라임 검사, 디스플레이 등)을 혼합한다는 것입니다.

작업을 단일 작업 만 수행하는 작은 조각으로 분해하면 작업이 훨씬 쉬워집니다. 숫자가 소수인지 테스트하는 함수로 시작하십시오.

function IsPrime(N: Integer): Boolean; 
var 
    M: Integer; 
begin 
    Assert(N > 0); 
    if N = 1 then // annoying special case 
    begin 
    Result := False; 
    exit; 
    end; 
    for M := 2 to (N div 2) do 
    if N mod M = 0 then 
    begin 
     Result := False; 
     exit; 
    end; 
    end; 
    Result := True; 
end; 

이제 당신은 목록이 포함 된 소수을 할 수 있습니다

var 
    Primes: TList<Integer>; 
    N: Integer; 
.... 
// create Primes 
for N := 1 to 10000 do 
    if IsPrime(N) then 
    Primes.Add(N); 

이 소수를 열거하는 가장 효율적인 방법은 아니다. 하지만 아마도 여러분이 시작해야 할 부분 일 것이고, 주로 집중적 인 작업을 수행하는 작은 논리적 인 방법으로 코드를 분리하도록이 답변을 주로 작성했습니다.