Сканирует цветное изображение размером 4x4 дюйма. Разрещающая сканера 1300x1300 dpi, глубина цвета 16 бит. Какой информационный объем будет иметь графический файл? ответ указать в мегабайтах
Sub m2() Cells.Clear Dim n As Integer, i As Integer, min As Integer n = InputBox("n(>5) = ") Cells(1, 1).Value = "n = " + Str(n) ReDim a(1 To n) For i = 1 To n a(i) = InputBox("a(" + Str(i) + ")") Next i Cells(2, 1).Value = "Исходный массив" Range(Cells(3, 1), Cells(3, n)).Value = a min = a(1) For i = 2 To n If a(i) < min Then min = a(i) Next i Cells(4, 1).Value = "min = " + Str(min) Cells(5, 1).Value = "Полученный массив" For i = n - 4 To n a(i) = min Next i Range(Cells(6, 1), Cells(6, n)).Value = a 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. Нет схемы
Cells.Clear
Dim n As Integer, i As Integer, min As Integer
n = InputBox("n(>5) = ")
Cells(1, 1).Value = "n = " + Str(n)
ReDim a(1 To n)
For i = 1 To n
a(i) = InputBox("a(" + Str(i) + ")")
Next i
Cells(2, 1).Value = "Исходный массив"
Range(Cells(3, 1), Cells(3, n)).Value = a
min = a(1)
For i = 2 To n
If a(i) < min Then min = a(i)
Next i
Cells(4, 1).Value = "min = " + Str(min)
Cells(5, 1).Value = "Полученный массив"
For i = n - 4 To n
a(i) = min
Next i
Range(Cells(6, 1), Cells(6, n)).Value = a
End Sub