client.p

来自「数据挖掘中de一个算法 hamster的实例」· P 代码 · 共 23 行

{-----------------------------------------------------------------------
  File    : client.p
  Contents: hamster client program
  Author  : Christian Borgelt
  History : 24.03.1999 file created from file client.c
-----------------------------------------------------------------------}
PROGRAM client (Input, Output);
IMPORT hamster; control;

{-----------------------------------------------------------------------
  Variables
-----------------------------------------------------------------------}
VAR hms	: HAMSTER;             { controlled hamster }

{-----------------------------------------------------------------------
  Main Program
-----------------------------------------------------------------------}
BEGIN
  hms := hms_create;            { create a hamster }
  hms_ctrl(hms);                { call control function }
  hms_delete(hms);              { delete hamster }
END.  { client }