Реализации алгоритмов/Алгоритм Нарайаны: различия между версиями

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

правки