Матрица3Д (Matrix3D) Конструктор

Копировать     Выделить всё

ПодключитьВнешнююКомпоненту("C:\444\111\DeclarativeForms\DeclarativeForms\bin\Debug\DeclarativeForms.dll");
ДФ = Новый ДекларативныеФормы();
Форма1 = ДФ.Форма;

Массив = Новый Массив();
Массив.Добавить(1);
Массив.Добавить(0);
Массив.Добавить(0);
Массив.Добавить(0);

Массив.Добавить(0);
Массив.Добавить(1);
Массив.Добавить(0);
Массив.Добавить(0);

Массив.Добавить(0);
Массив.Добавить(0);
Массив.Добавить(1);
Массив.Добавить(0);

Массив.Добавить(-50);
Массив.Добавить(-100);
Массив.Добавить(0);
Массив.Добавить(1.1);

Матрица3Д1 = ДФ.Матрица3Д(Массив);
Сообщить("Матрица3Д1.Число1 = " + Матрица3Д1.Число1);
Сообщить("Матрица3Д1.Число2 = " + Матрица3Д1.Число2);
Сообщить("Матрица3Д1.Число3 = " + Матрица3Д1.Число3);
Сообщить("Матрица3Д1.Число4 = " + Матрица3Д1.Число4);
Сообщить("Матрица3Д1.Число5 = " + Матрица3Д1.Число5);
Сообщить("Матрица3Д1.Число6 = " + Матрица3Д1.Число6);
Сообщить("Матрица3Д1.Число7 = " + Матрица3Д1.Число7);
Сообщить("Матрица3Д1.Число8 = " + Матрица3Д1.Число8);
Сообщить("Матрица3Д1.Число9 = " + Матрица3Д1.Число9);
Сообщить("Матрица3Д1.Число10 = " + Матрица3Д1.Число10);
Сообщить("Матрица3Д1.Число11 = " + Матрица3Д1.Число11);
Сообщить("Матрица3Д1.Число12 = " + Матрица3Д1.Число12);
Сообщить("Матрица3Д1.Число13 = " + Матрица3Д1.Число13);
Сообщить("Матрица3Д1.Число14 = " + Матрица3Д1.Число14);
Сообщить("Матрица3Д1.Число15 = " + Матрица3Д1.Число15);
Сообщить("Матрица3Д1.Число16 = " + Матрица3Д1.Число16);

Матрица3Д2 = ДФ.Матрица3Д();
Матрица3Д2.Число1 = 0;
Матрица3Д2.Число2 = 1;
Матрица3Д2.Число3 = 2;
Матрица3Д2.Число4 = 3;
Матрица3Д2.Число5 = 4;
Матрица3Д2.Число6 = 5;
Матрица3Д2.Число7 = 6;
Матрица3Д2.Число8 = 7;
Матрица3Д2.Число9 = 8;
Матрица3Д2.Число10 = 9;
Матрица3Д2.Число11 = 10;
Матрица3Д2.Число12 = 11;
Матрица3Д2.Число13 = 12;
Матрица3Д2.Число14 = 13;
Матрица3Д2.Число15 = 14;
Матрица3Д2.Число16 = 15;

Сообщить("Матрица3Д2.Число1 = " + Матрица3Д2.Число1);
Сообщить("Матрица3Д2.Число2 = " + Матрица3Д2.Число2);
Сообщить("Матрица3Д2.Число3 = " + Матрица3Д2.Число3);
Сообщить("Матрица3Д2.Число4 = " + Матрица3Д2.Число4);
Сообщить("Матрица3Д2.Число5 = " + Матрица3Д2.Число5);
Сообщить("Матрица3Д2.Число6 = " + Матрица3Д2.Число6);
Сообщить("Матрица3Д2.Число7 = " + Матрица3Д2.Число7);
Сообщить("Матрица3Д2.Число8 = " + Матрица3Д2.Число8);
Сообщить("Матрица3Д2.Число9 = " + Матрица3Д2.Число9);
Сообщить("Матрица3Д2.Число10 = " + Матрица3Д2.Число10);
Сообщить("Матрица3Д2.Число11 = " + Матрица3Д2.Число11);
Сообщить("Матрица3Д2.Число12 = " + Матрица3Д2.Число12);
Сообщить("Матрица3Д2.Число13 = " + Матрица3Д2.Число13);
Сообщить("Матрица3Д2.Число14 = " + Матрица3Д2.Число14);
Сообщить("Матрица3Д2.Число15 = " + Матрица3Д2.Число15);
Сообщить("Матрица3Д2.Число16 = " + Матрица3Д2.Число16);

Форма1.Открыть();