[Bargest]

Вы не то тестировали. Ни для кого не секрет, что вывод через COUT в студии невероятно медленный. Я провел другой тест на вашем же примере:
Делфа:

Код:

program D7Benchmark;

{$APPTYPE CONSOLE}

uses
  SysUtils, DateUtils;

const
  REPEAT_NUM = 10000000;

function Fact(N: integer):integer;
begin
    if (N = 1) or (N = 0) then
        Result := 1
    else
        Result := N * Fact(N - 1);
end;

type tin = array [0..0]of integer;
var
  i : integer;
  T1 : TDateTime;
  j:^tin;

begin
  getmem(j,100*sizeof(integer));
  T1 := Now;
  for i := 0 to REPEAT_NUM-1 do
    j[i mod 100]:=Fact(i mod 2 + 14);
  WriteLn('Num of calculatings:');
  WriteLn(REPEAT_NUM);
  WriteLn('Time of working is:');
  WriteLn(MilliSecondsBetween(Now, T1));
  WriteLn('PressEnter');
  ReadLn;
end.

Студия:

Код:

#include "stdafx.h"
#include <iostream>
#include <ctime>

using namespace std;

const int REPEAT_NUM = 10000000;
int Fact(int N);

int _tmain(int argc, _TCHAR* argv[])
{
	long c;
	int i,*j;
	j = new int[100];
	c=clock();
       for (i = 0; i < REPEAT_NUM; i++) 
		j[i%100] = Fact(i%2+14);

	c=clock()-c ;
	cout << "Time is: " << c << "\n";
	cout << "Press ENTER..";
	cin >> i;
	return 0;
}

int Fact(int N)
{
    if (N == 1 || N == 0)
        return 1;
    else
        return N * Fact(N - 1);
}

GCC у меня нет, его не тестил.
Результат:
Делфи ХЕ - 1.7 сек, Студия - 0.9 сек.
Такие сложности (с остатком от деления и записью в массив) для обмана оптимизации студии.
Было так:

Код:

for i:=1 to REPEAT_NUM do
 Fact(15);

Делфа такой код честно выполняла, студия же нагло пропустила.
Потом сделал так:

Код:

for i:=0 to REPEAT_NUM-1 do
 j[i mod 100]:=Fact(15);

Делфа опять честно выполняла, а студия посчитала один раз и потом вписала во все ячейки, смотрел дизасом (время было ~50мс).
В результате сделал такой извратский тест.