Модуль для вычисления логарифма - Free Pascal

Формулировка задачи:

Создать свой модуль для вычисления логарифма числа и программу, проверяющую работоспособность модуля: вычисление значений функции , где x, y вводятся с клавиатуры.

Решение задачи: «Модуль для вычисления логарифма»

Листинг программы

unit myunit;
 
{$mode objfpc}{$H+}
 
interface
function lg(const t:double):double;
function fact(const t:qword):qword;
 
implementation
 
function lg(const t:double):double;
var res:double;
begin
    {$ASMMODE Intel}
    asm
        finit
        fldlg2
        fld qword ptr t
        fyl2x
        fst res
    end;
    lg:=res;
end;
 
 
function fact(const t:qword):qword;
begin
   if t=1 then fact:=1
   else fact:=fact(t-1)*t;
end;
 
end.

Объяснение кода листинга программы

В данном коде написаны две функции: lg и fact.
Функция lg принимает на вход число типа double и возвращает число типа double.
Внутри функции lg объявлена переменная res типа double.
Далее идет блок ассемблерного кода, который вычисляет логарифм числа t с основанием 2.
После блока ассемблерного кода следует присваивание значения переменной res переменной lg.
Функция fact принимает на вход число типа qword и возвращает число типа qword.
Внутри функции fact используется условный оператор if-else для определения последовательности вычисления факториала числа t.
Если t равно 1, то функция возвращает 1.
Если t больше 1, то функция вызывает саму себя, передавая в качестве аргумента t-1, и результат умножает на t.
В конце функции fact возвращается результат вычисления факториала числа t.
В конце модуля следует завершающая часть кода, которая включает в себя вызов функции fact с аргументом 5.
Значение, возвращаемое функцией fact при вызове, присваивается переменной res.
Результат вычисления функции lg при вызове, присваивается переменной res.
Код завершается.