... Line(C1+i,H1+i,C2-i,H1+i);
Line(C1+i,H1+i,C1+i,H2-i);
SetColor(Mau_d);
Line(C1+i,H2-i,C2-i,H2-i);
Line(C2-i,H2-i,C2-i,H1+i);
end;
{Ve Nen }
setFillStyle(1,Mau_n);
Bar(C1+v,H1+V,C2-V,H2-V);
End;
{**************************}
Procedure ... P1:=St[St2,1]-St[St1,1];
P2:=St[St2,2]-St[St1,2];
P3:=St[St2,3]-St[St1,3];
q1:=St[St3,1]-St[St1,1];
q2:=St[St3,2]-St[St1,2];
q3:=St[St3,3]-St[St1...
Ngày tải lên :
25/07/2013, 21:19