Я так поняла вопрос в том, что надо объяснить работу программы. ответ будет выводиться в зависимости от введеных значений переменных. Переменная 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);
Вроде всё