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

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

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

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

Новости

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

// Ханойские башни
// Уровень сложности: 1

procedure Hanoi(n,f,t,w: integer);
begin
  if n=0 then exit;
  Hanoi(n-1,f,w,t);
  // Переложить диск со стержня f
  // на стержень t
  writeln(f,'->',t);
  Hanoi(n-1,w,t,f);
end;

const n=8; // Количество дисков

begin
  Hanoi(8,1,2,3);
end.