modfile.pas

来自「Delphi Pascal 数据挖掘领域算法包 数值算法大全」· PAS 代码 · 共 5 行

    TYPE double = real; char12 = string[12];
    FUNCTION sngl(x:real):real; BEGIN sngl := x END;
    PROCEDURE glopen(VAR infile:text; filename:char12);
        BEGIN assign(infile,filename); reset(infile) END;