Что такое встроенные объекты?
Для чего их используют?
Какие есть модули в SketchUp, позволяющие встроить объекты в про
грамму?
Опишите функции модуля «Материалы».
Опишите функции модуля «Компоненты».
Опишите функции модуля «Стили».
Приведите примеры встроенных объектов из других программ, с которыми
вы работаете.
Определите, какие преимущества дают встроенные объекты программ,
со свойством WordWrap = True, то есть многострочное поле,
размер нужно задать, чтобы поместилась вся матрица.
Sub Matrix
Dim F() As Integer ' Объявляем динамический массив
Dim m As Integer, i As Integer, k As Integer, t As String ' И переменные
m = InputBox ("Vvedite razmer matrix") ' Задаем размер массива
ReDim F(m, m) ' Определяем размер массива
For i = 1 To m ' Ввод данных
For k = 1 To m
t = "Vvedite element Matrix" & Str(i) & "," & Str(k)
F(i, k) = InputBox (t)
Next k
Next i
For i = 1 To m
F(i, i) = 0 ' Обнуляем элементы главной диагонали.
Next i
For i = 1 To m
For k = 1 To m ' Вывод строки данных через табуляцию
Label1.Caption = Label1.Caption & F(i, k) & Chr(9)
Next k
Label1.Caption = Label1.Caption & vbCrLf ' Переход на следующую строку
Next i
End Sub
===== PascalABC.NET =====
begin
var (m, n) := ReadInteger2('Число строк и столбцов массива:');
var a := MatrRandom(m, n, -99, 99);
a.Println(4);
var k := ReadInteger('Сколько первых элементов обработать?');
if not k.InRange(1, m * n) then
Println('Введено недопустимое значение')
else
begin // замена построчно
var r := k div n; // число полных строк
if r > 0 then
for var i := 0 to r - 1 do
for var j := 0 to n - 1 do
a[i,j] := -a[i,j];
for var j := 0 to k - r * n - 1 do
a[r,j] := -a[r,j];
a.Println(4)
end
end.
Второй вариант использует более продвинутые возможности PascalABC.NET. Замена выполняется единственным оператором.
begin
var (m, n) := ReadInteger2('Число строк и столбцов массива:');
var a := MatrRandom(m, n, -99, 99);
a.Println(4);
var k := ReadInteger('Сколько первых элементов обработать?');
if not k.InRange(1, m * n) then
Println('Введено недопустимое значение')
else
begin // замена построчно
a.Transform((p, i, j) -> n * i + j < k ? -p : p);
a.Println(4)
end
end.