ForNext

039. 素数を求める (ver.2)

VBScript

JScript

Perl

PHP

Python

Ruby

PowerShell

Scala

F#

C

#include <stdio.h>
int main(int argc, char* argv[])
{
    int i, no;
    unsigned long counter = 0;

    no = 2;
    printf("%d\n", no); /* 素数 */

    for (no = 3; no <= 30; no += 2)
    {
        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:\>lesson039\project1.exe
2
3
5
7
11
13
17
19
23
29
計算を行った回数：121

C++

C++Builder

VC++

C#

Java

Objective-C

D

VB

VB.NET

Delphi

program Project1;

{$APPTYPE CONSOLE}

uses
    SysUtils;
var
    i, j, k, 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 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:\>lesson039\project1.exe
2
3
5
7
11
13
17
19
23
29
計算を行った回数：121

Ada

PL/SQL

T-SQL