Курсовой проект / Cursov / 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) and 1;
    TRD_XOR:  Result := (iOp1 xor iOp2) and 1;
    TRD_AND:  Result := (iOp1 and iOp2) and 1;
    TRD_NOT:  Result := (not iOp1) and 1;
    TRD_LT:   if iOp1<iOp2 then Result := 1
                           else Result := 0;
    TRD_GT:   if iOp1>iOp2 then Result := 1
                           else Result := 0;
    TRD_EQ:   if iOp1=iOp2 then Result := 1
                           else Result := 0;
    TRD_NEQ:  if iOp1<>iOp2 then Result := 1
                            else Result := 0;
    TRD_ADD:  Result := iOp1 + iOp2;
    TRD_SUB:  Result := iOp1 - iOp2;
    TRD_UMIN: Result := -iOp2;
  end;
end;

end.