Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Разное > Флейм
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 05.01.2012, 17:12
Аватар для Dem0Men
Dem0Men Dem0Men вне форума
Прохожий
 
Регистрация: 06.02.2011
Адрес: г. Ярославль
Сообщения: 26
Версия Delphi: 2007, XE
Репутация: 10
По умолчанию Benchmark

Здраствуйте, я недавно начал изучать C++ и столкнулся с проблемой выбора IDE и компилятора. Остановился на 2-х IDE: VS2010 и Code::Blocks, решил посмотреть, какой из компиляторов: VS2010 или MinGW шустрее и скомпилировал 3 программки(+ Delphi 7). Вот код Delphi:
Код:
program D7Benchmark;

{$APPTYPE CONSOLE}

uses
  SysUtils, DateUtils;

const
  REPEAT_NUM = 100000;

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

var
  i : integer;
  T1 : TDateTime;
begin
  T1 := Now;
  for i := 1 to REPEAT_NUM do
    Write(Fact(15));
  WriteLn('Num of calculatings:');
  WriteLn(REPEAT_NUM);
  WriteLn('Time of working is:');
  WriteLn(MilliSecondsBetween(Now, T1));
  WriteLn('PressEnter');
  ReadLn;
end.

Скорость поражает! VS сделал 10.000 итераций за 3с, Delphi 100.000 за 0.8с, MinGW 100.000 за 1с. Т.е Delphi на несколько порядков быстрее VS! Прокомментируйте
Вложения
Тип файла: 7z Benchmark.7z (131.8 Кбайт, 11 просмотров)
__________________
Итерация от человека. Рекурсия — от Бога.
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 17:56.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter