scrsho.dem

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

PROGRAM d9r1(input,output);
(* driver for routine SCRSHO *)

(*$I MODFILE.PAS *)
(*$I BESSJ0.PAS *)

FUNCTION fx(x: real): real;
BEGIN
   fx := bessj0(x)
END;

(*$I SCRSHO.PAS *)

BEGIN
   scrsho
END.