素数を求める (ver.1)

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

C



#include <stdio.h>

int main(int argc, char* argv[])

{

    int i, no;

    unsigned long counter = 0;
    for (no = 2; no <= 30; no++)

    {

        for (i = 2; i < no; i++)

        {

            counter++;

            if (no % i == 0) break; /* 割り切れるので、素数ではない */

        }

        if (no == i)

            printf("%d\n", no); /* 最後まで割り切れなかったので、素数 */

    }
    printf("計算を行った回数：%lu\n", counter);
    return 0;

}

実行結果



R:\>lesson038\project1.exe

2

3

5

7

11

13

17

19

23

29

計算を行った回数：135

Delphi



program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;

var

    i, j, no: Integer;

    counter: Integer = 0;

begin

    for no := 2 to 30 do

    begin

        j := 0;

        for i := 2 to no - 1 do

        begin

            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:\>lesson038\project1.exe

2

3

5

7

11

13

17

19

23

29

計算を行った回数：135