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

//***********************************************************//
//
//                      Кубический корень
//
//***********************************************************//

local _cbrt ( x real64 ) real64 
{
    auto s real64 { 1. }
    for ( ; x < 1.; )
    {
        x *= 8.
        s *= 0.5
    }
    for ( ; x > 8.; )
    {
        x *= 0.125
        s *= 2.
    }
    auto r real64 { 1.5 }
    auto i nat8 { 0 }
    for ( ; i < 6; ++i )
    {
        r -= 1./3. * ( r - x / ( r * r ) );
    }
    return r * s;
}

global cbrt ( x real64 ) real64 
{
    if ( x > 0 ) return  _cbrt ( x ); else
    if ( x < 0 ) return -_cbrt (-x ); else
    return 0;
}

Наверх