Заполните таблицуЗадание No2Растровое изображение Векторное изображение Как формируется или из чего состоит? Как изменяется в процессе масштабирования?. Какой объем памяти в компьютере занимает?
Я так поняла вопрос в том, что надо объяснить работу программы. ответ будет выводиться в зависимости от введеных значений переменных. Переменная M типа boolean, т.е. это логическая переменная; которой может быть присвоенно только 2 значения, либо true, либо false, т.е. либо логическое вырожение истинное, либо ложное. Если в конце программы добавить writeln(M), тогда выведиться либо слово true, либо false. Не знаю, случайно ли, но в программе есть опечатки и в таком виде она работать не будет. 1. После program bd; ставиться точка с запятой, а не просто запятая. 2. Не car, a var 3. После объявления переменных, перед указанием их типа надо ставить двоеточие (:), а не точку с запятой (;) 4. После M необходимо поставить двоеточие (M:boolean;) 5. В операторе ввода read, нельзя ставить апостровы. Если вы хотите ввести значения, неоходимо просто через запятую их написать readln(a,b); Ну и как я уже сказала, если вы хотите вывести результат выполнения программы, перед end. Вставьте оператор writeln(M); Вроде всё
В Visual Basic на форме нужно создать текстовое поле Label1 со свойством 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
1. После program bd; ставиться точка с запятой, а не просто запятая.
2. Не car, a var
3. После объявления переменных, перед указанием их типа надо ставить двоеточие (:), а не точку с запятой (;) 4. После M необходимо поставить двоеточие (M:boolean;)
5. В операторе ввода read, нельзя ставить апостровы. Если вы хотите ввести значения, неоходимо просто через запятую их написать readln(a,b);
Ну и как я уже сказала, если вы хотите вывести результат выполнения программы, перед end. Вставьте оператор writeln(M);
Вроде всё
со свойством 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