VECTOR _src1, _src2, _v;
%CreateVector(_src1, 5);
%CreateVector(_src2, 5);
_src1[1] := 0;
_src1[2] := 1;
_src1[3] := 2;
_src1[4] := 3;
_src1[5] := 4;
_src2[1] := 2;
_src2[2] := 2;
_src2[3] := 2;
_src2[4] := 2;
_src2[5] := 2;
-- porovná vektory: hodnoty, ktoré nespĺňajú podmienku nahradí -1
_v := %Compare(_src1, %CMP_Greater, _src2, -1, 0);
RETURN _v;
Pridať komentár