Реализации алгоритмов/Алгоритм Нарайаны: различия между версиями
Содержимое удалено Содержимое добавлено
Добавлено описание алгоритма; усовершенствована реализация на Pascal, добавлен пример использования |
м →Pascal |
||
Строка 54:
<source lang="pascal">
type T = Integer; { Вместо Integer можно использовать любой тип }
{ Функция, задающая отношение порядка для значений типа T:
TPredicate2 = function (const value_0, value_1: T): Boolean;
Строка 106:
end;
{ Инициализация последовательности }
procedure InitSequence (var sequence: array of T);
var i: Word;
Строка 114 ⟶ 115 :
end;
{
procedure OutputSequence (const sequence: array of T);
var i, count: Word;
begin
Строка 129 ⟶ 130 :
end;
{ Основная программа }
BEGIN
InitSequence(sequence); { Формирование исходной последовательности }
|