Курсовые проекты / Soft / Labs / TrdCalc

unit TrdCalc; {!!! Зависит от входного языка !!!}

interface
{ Модуль, вычисляющий значения триад при свертке операций }

uses TrdType;

function CalcTriad(Triad: TTriadType;
iOp1,iOp2: integer): integer;
{ Функция вычисления триады по типу и значениям
двух операндов }

implementation

function CalcTriad(Triad: TTriadType;
iOp1,iOp2: integer): integer;
begin
Result := 0;
case Triad of
TRD_OR: Result := iOp1 or iOp2;
TRD_XOR: Result := iOp1 xor iOp2;
TRD_AND: Result := iOp1 and iOp2;
end;
end;

end.