Править | Обсудить | История

ARIBAS 1.53

Версия реализации ARIBAS языка программирования ARIBAS

Самая последная версия ARIBAS.

Изменения относительно предыдущей версии:

исправлена ошибка работы с -pi (предыдущая версия меняла константу Пи)
исправлена ошибка деления целочисленных векторов с отрицательными коэффициентами
цикл for теперь поддерживает >= 2³² итераций
исправлена ошибка, возникающая при разборе некоторых выражений со скобками

Ссылки:

Официальный сайт ARIBAS

Примеры:

Факториал - ARIBAS (9):

Используется рекурсивное определение факториала функцией fac, т.к. имя factorial зарезервировано для встроенной функции вычисления факториала. В ARIBAS по умолчанию используется тип данных integer.

group(0) при выводе служит для отмены использования знака подчеркивания для разделения групп цифр.

function fac(n);
begin
    if (n = 0) then
        return(1);
    end;
    return(n * factorial(n - 1));
end;

function fac0_16();
var n;
begin
    for n := 0 to 16 do
        writeln(n, "! = ", fac(n): group(0));
    end;
end;

fac0_16().

Факториал - ARIBAS (10):

Используется встроенная функция factorial. В ARIBAS по умолчанию используется тип данных integer.

group(0) при выводе служит для отмены использования знака подчеркивания для разделения групп цифр.

function fac0_16();
var n;
begin
    for n := 0 to 16 do
        writeln(n, "! = ", factorial(n): group(0));
    end;
end;

fac0_16().

Hello, World! - ARIBAS (81):

writeln("Hello, World!");

Числа Фибоначчи - ARIBAS (82):

Этот пример использует рекурсивное определение чисел Фибоначчи. В ARIBAS по умолчанию используется тип данных integer. group(0) при выводе служит для отмены использования знака подчеркивания для разделения групп цифр.

function fib(n);
begin
    if (n < 3) then
        return(1);
    end;
    return(fib(n-1)+fib(n-2));
end;

function fib1_16();
var n;
begin
    for n := 1 to 16 do
        write(fib(n): group(0), ", ");
    end;
    writeln("...");
end;

fib1_16().