Скриншоты: общий вид

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

Вкладки. Окно вывода

Общий вид среды PascalABC.NET

Несколько вкладок. Панель сообщений об ошибках

PascalABC.NET: панель ошибок компиляции

Несколько приложений, запущенных одновременно

PascalABC.NET: несколько запущенных программ

Отадчик. Панель локальных переменных. Подсказка при отладке

PascalABC.NET: отладчик

Новости

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

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

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

19.01.17. Добавлена операция безопасного среза: a?[-1:5:2]

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

// Создание случайного идеально сбалансированного 
// бинарного дерева и его инфиксный обход
// Уровень сложности: 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.