素数を求める (ver.3)

明解Ｃ言語入門編 > 5. 配列 >

Delphi



program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;

var

    i, j, k, n, no: Integer;

    counter: Integer = 0;

begin

    no := 2;

    writeln(format('%d', [no])); { 素数 }
    for k := 1 to 14 do

    begin

        no := k * 2 + 1;
        j := 0;

        for n := 1 to k - 1 do

        begin

            i := n * 2 + 1;
            inc(counter);

            if no mod i = 0 then

            begin

                j := 1;

                break; { 割り切れるので、素数ではない }

            end;

        end;

        if j = 0 then writeln(format('%d', [no])); { 最後まで割り切れなかったので、素数 }

    end;
    writeln(format('計算を行った回数：%d', [counter]));

end.

実行結果



S:\>lesson040\project1.exe

2

3

5

7

11

13

17

19

23

29

計算を行った回数：56