Реализация метода. 
Выравнивание рядом динамики с оценкой погрешности. 
Метод наименьших квадратов логарифмический тренд

Основной метод расчета (как и методы, вводы вывода) реализован в отдельной функции.

function log_min_sq (x, y: arraytype;n:integer;var a, b: real):integer;

— Функция принимает в качестве параметров наборы координат икс и игрек, их количество — n, возвращает коэффициенты a, b и в случае успешного расчета значение 0. В случае если метод неприменим, то значение минус один.

Основной метод — рассчитывает необходимые суммы (иксов игреков и логарифмов) и решает систему как показано выше в предыдущем разделе, относительно, а и b.

В случае невозможности решить систему (определитель равен нулю или исходные данные некорректны) выдается соответствующее предупреждение:

'Min square method is not applicable'.

Ниже опишем вспомогательные функции и значения переменных:

const maxn = 1000; - ограничение на количество считанных из файла координат.

const dencity =10; - «плотность» — количество расчетных точек в выходных данных.

procedure parse (str:string;var s1, s2:string); - процедура разбиения строки на две подстроки, разделенные пробелом (пробелами).

function load_bin_data (filename:string; var x, y: arraytype; var n: integer):integer; - загрузка данных из бинарного файла.

function load_txt_data (filename:string; var x, y: arraytype; var n: integer):integer; - загрузка данных из текстового файла.

procedure found_minmax (x:arraytype;n:integer; var xmin, xmax: real); - нахождение минимума и максимума в массиве х.

procedure print (var f: text;a, b: real;x:arraytype;n:integer); - вывод как в текстовый файл так на экран или принтер (зависит от параметра f — с чем связан файл вывода — туда и осуществляется).

procedure print_bin (var f: realfile;a, b: real;x:arraytype;n:integer); - вывод в бинарный файл.

procedure print_results (a, b: real;x:arraytype;n:integer); - вывод всеми способами.