... gia. a) Cơ sở tri thức :b) Mô tơ suy diễn: 2Cơ sở tri thức Cơ sở sự kiệnCơ sở luậtNgười sử dụngTài liệu chuyên môn (Tri thức sâu)Chuyên gia (Tri thức nông)Cơ sở tri thức Cơ chế suy ... MItem(M, i) = 0 NextEnd Sub Private Sub RotateItem() Const Pi = 3.141592653 Dim i, J As Integer Dim X, Y As Integer Dim Temp(M, M) For J = 1 To M For i = 1 To M Temp(J, i) = MItem(J, ... Y = 1 + Fix(i * Sin(Pi / 2) - J * Cos(Pi / 2)) MItem(J, i) = Temp(Y, X) Next i Next J Do While MItem(1, 1) = 0 And MItem(1, 2) = 0 And MItem(1, 3) = 0 MoveUp LoopEnd Sub Private Function...