Описание слайда:
Пример реализации: //инициализация начальных данных procedure TForm1.FormCreate(Sender: TObject); begin //задание начальных координат a[1,1]:=-50; a[1,2]:= 50; a[1,3]:=0; a[1,4]:=1; a[2,1]:= 50; a[2,2]:= 50; a[2,3]:=0; a[2,4]:=1; a[7,1]:= 25; a[7,2]:=-25; a[7,3]:=25; a[7,4]:=1; a[8,1]:=-25; a[8,2]:=-25; a[8,3]:=25; a[8,4]:=1; //задание матрицы преобразования m[1,1]:=1; m[1,2]:=0; m[1,3]:=0; m[1,4]:=0; m[2,1]:=0; m[2,2]:=1; m[2,3]:=0; m[2,4]:=0; m[3,1]:=0; m[3,2]:=0; m[3,3]:=1; m[3,4]:=0; m[4,1]:=0; m[4,2]:=0; m[4,3]:=0; m[4,4]:=1; end;