Реализации алгоритмов/Сортировка/Слиянием: различия между версиями

Содержимое удалено Содержимое добавлено
Строка 369:
 
=== Сортировка естественным слиянием ===
<big><source lang="pascal">
Procedure MergeSort(name: string; var f: text);
Var s1,s2,a1,a2,where,tmp: integer;
Строка 453:
Erase(f2);
End;
</source></big>
 
==[[w:Delphi (язык программирования)|Delphi]] (сортировка произвольных типов данных - простое слияние)==