client.pas

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

{-----------------------------------------------------------------------
  File    : client.pas     (Turbo-/Borland-Pascal version)
  Contents: hamster client program
  Author  : Christian Borgelt
  History : 24.03.1999 file created from file client.c
            14.04.1999 adapted to Turbo-/Borland-Pascal
-----------------------------------------------------------------------}
PROGRAM client (Input, Output);
USES phamster, control;

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

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