Поучаствуй в замерах производительности программ для PascalABC.NET, Free Pascal и Visual C++.
Скачай программы и заполни эту таблицу.
17.06.18. Опубликован документ Массивы: алгоритмы против методов и операций
17.06.18. Закончена презентация по модулю Graph3D (.pdf, без анимации) Добавлено 16 слайдов.
23.05.18. Вышла версия 3.4. Реализован Pattern Matching и расширенный оператор is
15.01.18. Реализована эффективная операция возведения в степень **
// Создание случайного идеально сбалансированного
// бинарного дерева и его инфиксный обход
// Уровень сложности: 2
type
Node<T> = auto class
data: T;
left, right: Node<T>;
end;
function CreateTree(n: integer): Node<integer>;
begin
if n <= 0 then
Result := nil
else
Result := new Node<integer>(
Random(100),
CreateTree((n-1) div 2),
CreateTree(n-1 - (n-1) div 2));
end;
procedure InfixPrintTree<T>(r: Node<T>);
begin
if r = nil then
exit;
InfixPrintTree(r.left);
Print(r.data);
InfixPrintTree(r.right);
end;
const N = 20;
begin
var root := CreateTree(N);
InfixPrintTree(root);
end.