Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабораторные работы 1-4 / MyPrObl / PREDOBL
.PAS 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.
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.
Соседние файлы в папке MyPrObl