Function/ru

function myFunction(const firstParameter: real): Boolean;

program functionDemo(input, output, stderr);

{$mode objFPC}

// традиционный синтаксис:
// результат сохраняется в переменной
// его имя такое же, как у функции
function myLine(const x: real): real;
begin
    myLine := 0.5 * x + 2;
end;

// используя специальный идентификатор `result`
function myParabola(const x: real): real;
begin
    result := sqr(x) - 1;
end;

// использование процедуры выхода exit
function even(const x: longint): Boolean;
begin
  exit(not odd(x));
end;

// на ассемблере:
// возвращаемый тип умещается в один регистр => использовать регистр-накопитель
function zero(const x: int64): Boolean;
{$ifDef CPUx86_64}
assembler; register;
{$asmMode intel}
asm// xor изменяет флаги => поместите его перед тестом// rax := 0    (удалить остаток)// x = 0 ?// rax := ZF// Когда вы изучаете вывод ассемблера// вы заметите, что компилятор автоматически вставляет код// который перемещает содержимое rax в нужное место в стеке,// пока не появится подсказка noStackFrame// (автоматически устанавливается некоторыми уровнями оптимизации)// инструктирует компилятор опустить кадр стека, если это возможно.
    // xor изменяет флаги => поместите его перед тестом
    xor rax, rax     // rax := 0    (удалить остаток)
    
    test x, x        // x = 0 ?
    setz al          // rax := ZF
    
        // Когда вы изучаете вывод ассемблера
        // вы заметите, что компилятор автоматически вставляет код
        // который перемещает содержимое rax в нужное место в стеке,
        // пока не появится подсказка noStackFrame
        // (автоматически устанавливается некоторыми уровнями оптимизации)
        // инструктирует компилятор опустить кадр стека, если это возможно.
END;
{$else}
begin
    result := x = 0;
end;
{$endIf}

type
    bodyAttributes = record
        surfaceArea: real;
        volume: real;
    end;

// на ассемблере:
// возвращаемый тип не помещается в аккумулятор => макрос @result дает адрес
function sphere(const radius: real): bodyAttributes;
{$ifDef CPUx86_64}
assembler;
{$asmMode intel}
const
    three: longint = 3;
    four: longint = 4;
var
    r: real;
asm// r := (@radius+0)^// rax := @result// radius// radius radius// 4 radius radius// pi 4 radius radius// 4*pi radius radius// radius 4*pi radius// radius radius 4*pi radius// radius^2 4*pi radius// 4*pi*radius^2 radius// 4*pi*radius^3// 3 4*pi*radius^3// 4/3*pi*radius^3
    pextrq r, radius, 0 // r := (@radius+0)^
    lea rax, @result    // rax := @result
    fld r               // radius
    
    fld st(0)           // radius radius
    fild four           // 4 radius radius
    fldpi               // pi 4 radius radius
    fmul                // 4*pi radius radius
    fxch                // radius 4*pi radius
    fld st(0)           // radius radius 4*pi radius
    fmul                // radius^2 4*pi radius
    fmul                // 4*pi*radius^2 radius
    fst [rax].bodyAttributes.surfaceArea
    
    fmul                // 4*pi*radius^3
    fild three          // 3 4*pi*radius^3
    fdivp               // 4/3*pi*radius^3
    fst [rax].bodyAttributes.volume
END;
{$else}
begin
    sphere.surfaceArea := 4 * pi() * sqr(radius);
    sphere.volume := 4 / 3 * pi() * sqr(radius) * abs(radius);
end;
{$endIf}

begin
    writeLn(sphere(2.0).surfaceArea);
end.