В 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
32*40*48 байт = 32*4*5*8*6 = 32*32*5*6 = 30*1024 байт = 30 Кбайт.
Информационный объем тоже равен 30 Кбайт = 30*8 = 240 Кбит.
2) В Unicode каждый символ кодируется 2 байтами.
Во фразе 60 знаков, включая пробелы, точки и запятые.
Объем этого сообщения 60*2 = 120 байт.
3) В Unicode каждый символ кодируется 2 байтами.
Информационный объем
16*30*32*2 = 32*30*32 = 30*1024 = 30 Кбайт = 30*8 = 240 Кбит.
Размер статьи 30 Кбайт.
4) Размер статьи 64*52*52 = 64*4*13*4*13 = 256*169 знаков.
Если его информационный объем равен 169 Кбайт, то каждый
1 Кбайт = 1024 байт = 256 знаков.
1 знак = 1024/256 = 4 байта = 4*8 = 32 бита.
5) Информационный объем равен 128 Кбайт. 1 знак в Unicode = 2 байта.
В книге 128*1024/2 = 64*1024 = 2^6*2^10 = 2^16 = 65536 знаков.
6) 2048 символов = 1/512 Мбайта = 1024/512 = 2 Кбайта = 2048 байт.
Каждый символ кодируется 1 байтом = 8 бит.
В алфавите 2^8 = 256 символов.
7) В 64-символьном алфавите каждый символ кодируется 6 битами, потому что 64 = 2^6.
20 символов = 20*6 = 120 бит = 120/8 = 15 байт.
со свойством 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