Q&A

  • 부탁함다...
소수 판별하는 프로그램..

최대공약수 구하는 프로그램..

소스좀 부탁함다..

저는 이해가 잘 가지 않아서...



2  COMMENTS
  • Profile
    최용일 2001.04.19 01:24
    안녕하세요. 최용일입니다.



    질문의 제목은 질문내용을 포괄할수있도록 정확히 작성해주세요...



    소수와 최대공약수가 뭔지 제대로 이해를 한다면 금방 하실텐데요...



    소수: 1과 자기 자신으로만 나누어 진다.

    즉 다른 수로 나누었을때 나머지가 0이면 안돼죠...



    function IsPrimeNumber(Num: Integer): Boolean;

    var

    I: Integer;

    begin

    Result := False;

    for I := 2 to Num - 1 do

    begin

    if (Num mod I) = 0 then // 나머지가 0이면 => I로 나누어 진다.

    Exit; // 소수가 아니다...

    end;

    Result := True; // 어떠한 수로도 나누어지지 않으므로 소수이다.

    end;



    최대공약수구하는 것도 최대공약수가 뭔지 잘 파악하시면 해결하실 수 있을겁니다.



    ^^ 항상 즐코하세요...



    jcw wrote:

    > 소수 판별하는 프로그램..

    > 최대공약수 구하는 프로그램..

    > 소스좀 부탁함다..

    > 저는 이해가 잘 가지 않아서...

    >

  • Profile
    jcw 2001.04.19 01:49
    최용일씨 멜일좀 봐주세요..

    자세하게 좀 적어주시면 감사하겟습니다..

    잘 안되네요..ㅡㅡ;