В объяснении
Объяснение:
1 Вариант
1. 1)ppt
2. 1) my.doc, bell.txt, song.docx;
3. 3)мышь
4. 1) красного, синего, зеленого
5.Объем сообщения определяется по формуле:
V=l*r,
где l-длина сообщения, r-разрешение.
l=50, т.к.всего в предложении 50 символов (пробелы и знаки препинания являются символами).
r=1 байт=8 бит.
Объем сообщения равен:
V=50*8=400 бит.
6. не понятно, что делать, задания не видно как-то
7.InternetExplorer= 73 110 116 101 114 110 101 116 69 120 112 108 111 114 101 114
8. Нет рисунка собственно
9. 64 бита < 16 байт
10 Кбайт < 10600 байт
10 байт = 80 бит
10. Нет схемы
На Visual Basic так:
Нужно на форме создать текстовое поле TextBox1 и кнопку Button1, на нее повесить такую программу:
Sub Button1_Click()
Dim A() As Integer, B() As Integer, C() As Integer ' динамич. массивы
Dim n As Integer, i As Integer, Txt As String
n = InputBox ("Введите размер массивов")
ReDim A(n), B(n), C(n) ' Определяем размеры массивов
Txt = ""
For i = 1 To n
A(i) = InputBox ("Введите " & i & "-ый элемент массива A")
B(i) = InputBox ("Введите " & i & "-ый элемент массива B")
C(i) = A(i)^2 + B(i)^2 ' Присваиваем элементу C(i) сумму квадратов
Txt = Txt & C(i) & "; " ' Добавляем C(i) в текстовую переменную
Next i
TextBox1.Text = Txt ' Выводим весь массив C(i) в текстовое поле
End Sub
В объяснении
Объяснение:
1 Вариант
1. 1)ppt
2. 1) my.doc, bell.txt, song.docx;
3. 3)мышь
4. 1) красного, синего, зеленого
5.Объем сообщения определяется по формуле:
V=l*r,
где l-длина сообщения, r-разрешение.
l=50, т.к.всего в предложении 50 символов (пробелы и знаки препинания являются символами).
r=1 байт=8 бит.
Объем сообщения равен:
V=50*8=400 бит.
6. не понятно, что делать, задания не видно как-то
7.InternetExplorer= 73 110 116 101 114 110 101 116 69 120 112 108 111 114 101 114
8. Нет рисунка собственно
9. 64 бита < 16 байт
10 Кбайт < 10600 байт
10 байт = 80 бит
10. Нет схемы
На Visual Basic так:
Нужно на форме создать текстовое поле TextBox1 и кнопку Button1, на нее повесить такую программу:
Sub Button1_Click()
Dim A() As Integer, B() As Integer, C() As Integer ' динамич. массивы
Dim n As Integer, i As Integer, Txt As String
n = InputBox ("Введите размер массивов")
ReDim A(n), B(n), C(n) ' Определяем размеры массивов
Txt = ""
For i = 1 To n
A(i) = InputBox ("Введите " & i & "-ый элемент массива A")
B(i) = InputBox ("Введите " & i & "-ый элемент массива B")
C(i) = A(i)^2 + B(i)^2 ' Присваиваем элементу C(i) сумму квадратов
Txt = Txt & C(i) & "; " ' Добавляем C(i) в текстовую переменную
Next i
TextBox1.Text = Txt ' Выводим весь массив C(i) в текстовое поле
End Sub