Курсовой проект / 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.