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

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

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

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

Новости

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

// Инвертирование массива
// Уровень сложности: 1
procedure Invert(a: array of integer);
begin
  var n := a.Length;
  for var i:=0 to n div 2 - 1 do
    Swap(a[i],a[n-i-1]);
end;

const N = 10;

begin
  var a := ArrRandom(N);
  Writeln('Исходный массив: ');
  a.Println;
  Invert(a);
  Writeln('После инверсии: ');
  a.Println;
  // Стандартная процедура
  Reverse(a);
  Writeln('После второй инверсии: ');
  a.Println;
end.