java c C# delphi计算速度对比（整数运算）

c语言

int main(){
    int a=0; 
    int count = 0;  
    int num1=4; 
    int num2=99999;
    int i=0,j=0;
    clock_t begin,end;
    begin = clock();
    for(i = num1; i <= num2; i++) {
	     for(j=2;j<i;j++){
	        if(i%j==0){
	            a++;  // 素数个数加1
	            break;
	        }
	    }
	    if (a>0) {
	    	a=0;
	    	
	    } else {
	    	count++;
	    }
	    	
    	
    }
    end = clock();
    long l = end - begin;
    printf("time: %ld ms\n", l) ;

    printf("从%d到%d有%d个素数", num1, num2, count);
    return 0;
}

C#： 

            int a = 0;
            int count = 0;
            int num1 = 4;
            int num2 = 99999;
            int i = 0, j = 0;
            DateTime begin, end;
            begin = System.DateTime.Now;
            for (i = num1; i <= num2; i++)
            {
                for (j = 2; j < i; j++)
                {
                    if (i % j == 0)
                    {
                        a++;  // 素数个数加1
                        break;
                    }
                }
                if (a > 0)
                {
                    a = 0;

                }
                else
                {
                    count++;
                }

            }
            end = System.DateTime.Now;
            TimeSpan t = end - begin;
            
            long l = end.Millisecond - begin.Millisecond;
            button1.Text = "time is" + t.TotalMilliseconds + "ms";

            String s = "从" + num1 + "到" + num2 + "有" + count + "个素数";
            this.Text = s;

java

    public static void testInt() {
        int a = 0;
        int count = 0;
        int num1 = 4;
        int num2 = 99999;
        int i = 0, j = 0;
        long begin, end;
        begin = System.currentTimeMillis();
        for (i = num1; i <= num2; i++) {
            for (j = 2; j < i; j++) {
                if (i % j == 0) {
                    a++;  // 素数个数加1
                    break;
                }
            }
            if (a > 0) {
                a = 0;

            } else {
                count++;
            }

        }
        end = System.currentTimeMillis();

        long l = end - begin;
        System.out.println("time is" + l + "ms");
 
        String s = "从" + num1 + "到"  + num2 + "有" + count + "个素数";
        System.out.println(s);
    }

Delphi:

procedure TForm1.Button1Click(Sender: TObject);
var
  num1,num2:integer;
  i,j:integer;
  a,count:integer;
  t1, t2:longint;

begin
  num1 := 4;
  num2 := 99999;
  a := 0;
  count := 0;
  t1 := timegettime;
  for i:= num1 to num2 do
  begin
    for j := 2 to i -1 do
    begin
      if i mod j = 0 then
      begin
        a := 1;
        break;
      end;
    end;
    if a > 0 then
    begin
       a := 0
    end else
      inc(count);
  end;
  t2 := timegettime;
  button1.caption := format('%dms',[t2-t1]);
  self.Caption := format('从%d到%d有%d个质数', [num1, num2, count]);
end;

结果如下：

序号	名称	版本	第一次	第二次	第三次	第四次	第五次	平均
1	c	gcc 10.2	1792	1810	1825	1799	1845	1814.2
2	C#	4.6.1	2025	1761	1785	1750	1794	1823
3	java	14.0.2	2789	2710	2629	2669	2374	2634.2
4	delphi	7.0	1902	1870	1899	1902	1960	1906.6