Лабораторные работы 1-4 / MyPrObl / PREDOBL

unit Predobl;

interface

uses Tipe,
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, ExtCtrls;

type
  TFormPredObl = class(TForm)
    Image1: TImage;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormPredObl: TFormPredObl;
 const
  eps=0.3;  a0=1; b0=10;
procedure eval_proc(number:integer; par:domen;
                    var val:string40;var KD:integer); stdcall;// export;

implementation

{$R *.DFM}


procedure eval_proc(number:integer; par:domen;
 var val:string40; var KD:integer); stdcall;
procedure initial();  {начальная установка}
 begin
  val := 'выведен';
  MessageDlg('Поздравляю, вы начинаете работу с ' +
  'экспертной системой по автогонкам в классе машин Формула-1', mtinformation, [mbOK], 0);
 end;
procedure show();
begin
  val := 'показать';
  FormPredObl.Show;
end;
begin (*eval_proc*)
  if not FlagPrObl then
  begin
   FormPredObl:= TFormPredObl.Create(Application);
   FlagPrObl:=True;
  end;
  case number of
    2: initial();
    3: show();
  end;
//  FormPredObl.Free;  
end(*eval_proc*);



end.