Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабораторные работы 1-4 / MyPrObl / TIPE
.PAS unit Tipe;
interface
const
nword=40;
type
String40 = String[NWord];
tips = (integ,rel, wrd);
domen = record case kind:tips of integ:(di:integer);
rel:(dr:real); wrd:(dw:string40);end;
var
FlagPrObl:Boolean;{Признак запуска Предметной Области}
Auto:Boolean;{Признак режима работы}
Fuzzi:Boolean;{Признак использования коэффициентов доверия}
ExeName:String;
Exe_Flag:Boolean;
ValueExe:String40;
Flag13:Boolean;
implementation
end.
interface
const
nword=40;
type
String40 = String[NWord];
tips = (integ,rel, wrd);
domen = record case kind:tips of integ:(di:integer);
rel:(dr:real); wrd:(dw:string40);end;
var
FlagPrObl:Boolean;{Признак запуска Предметной Области}
Auto:Boolean;{Признак режима работы}
Fuzzi:Boolean;{Признак использования коэффициентов доверия}
ExeName:String;
Exe_Flag:Boolean;
ValueExe:String40;
Flag13:Boolean;
implementation
end.