prim.pas

来自「Pasc+Java 这是一个国外的随机自动机*(RAM)一个学习用的程序」· PAS 代码 · 共 23 行

function prim(n);
begin
    m := 3;
    while (n > 0) do
    begin
        if (teil(m) = 2) then n := (n - 1);
        m := (m + 1)
    end;
    prim := (m - 1)
end

function teil(m);
begin
    for i := 1 to m do if (mod(m, i) = 0) then k := (k+1);
    teil := k
end

function mod(m, i);
begin
    while (m >= i) do m := (m - i);
    mod := m
end