Тесты производительности

Просмотров: 10141

Поучаствуй в замерах производительности программ для PascalABC.NET, Free Pascal и Visual C++.

Скачай программы и заполни эту таблицу.

Новости

23.05.18. Вышла версия 3.4. Реализован Pattern Matching и расширенный оператор is

03.02.18. Начат новый цикл презентаций, в том числе презентация по модулю Graph3D (.pdf, без анимации)

15.01.18. Реализована эффективная операция возведения в степень **

30.08.17. Вышла версия 3.3. Новые модули Graph3D и GraphWPF

Случайная программа

// Функция определения простоты числа
// Уровень сложности: 1

function IsPrime(N: integer): boolean;
begin
  Result := True;
  if N<2 then
    Result := False
  else
    for var i:=2 to round(sqrt(N)) do
      if N mod i = 0 then
      begin
        Result := False;
        exit;
      end;
end;

begin
  for var i:=2 to 20 do
    Println(i,IsPrime(i));
end.