50б, умаляю какому свойству информации не удовлетворяет информация в фразе «пойди туда – не знаю куда, принеси то – не знаю что»? можно ли считать информацию в сказках объективной и достоверной? в каких ситуациях намеренно уменьшают степень понятности информации? зависят ли свойства информации от человека, который ее получает? примеры в подтверждение вашего мнения.какому свойству информации не удовлетворяет информация в фразе «пойди туда – не знаю куда, принеси то – не знаю что»? можно ли считать информацию в сказках объективной и достоверной? в каких ситуациях намеренно уменьшают степень понятности информации? зависят ли свойства информации от человека, который ее получает? примеры в подтверждение вашего мнения.
Ответы
Частота дискретизации D = 44000 гц
разрядность i = 16 бит
t = 1 мин = 60 сек.
Стереозапись включает в себя 2 дорожки,а значит объем информации увеличивается вдвое, поэтому добавим в конечную формулу коэффициент 2.
Объем информации L =2*D*i*t = 44000*16*60*2=84480000 бит=10560000 байт=10Мбайт.
ответ: одна минута стереозаписи занимает 10Мбайт.
L = 700Мбайт = 734003200 байт
D = 44000 гц
i=16 бит = 2 байта
(тип звукозаписи - стерео => добавляется коэффициент 2)
t=L/(D*i*2)
t = 734003200/(2*44000*2) = 4170,47 сек = 69,5 мин.
ответ: 69,5 минут максимальная продолжительность стереозаписи на диске 700 Мбайт
разрядность i = 16 бит
t = 1 мин = 60 сек.
Стереозапись включает в себя 2 дорожки,а значит объем информации увеличивается вдвое, поэтому добавим в конечную формулу коэффициент 2.
Объем информации L =2*D*i*t = 44000*16*60*2=84480000 бит=10560000 байт=10Мбайт.
ответ: одна минута стереозаписи занимает 10Мбайт.
L = 700Мбайт = 734003200 байт
D = 44000 гц
i=16 бит = 2 байта
(тип звукозаписи - стерео => добавляется коэффициент 2)
t=L/(D*i*2)
t = 734003200/(2*44000*2) = 4170,47 сек = 69,5 мин.
ответ: 69,5 минут максимальная продолжительность стереозаписи на диске 700 Мбайт
Требуемая процедура
Sub ex1(ByRef a() As Integer, ByRef nn As Integer, ByRef nz As Integer)
Dim i As Integer
nn = 0: nz = 0
For i = 1 To 45
If a(i) = 0 Then
nz = nz + 1
Else
If a(i) < 0 And i <= 35 Then
nn = nn + 1
End If
End If
Next i
End Sub
Процедура для тестирования с выводом на лист Excel
Sub Test()
Dim p(1 To 45) As Integer
Dim n1 As Integer, n2 As Integer, i As Integer
Randomize Timer
For i = 1 To 45
p(i) = Int(25 * Rnd - 12)
Cells(i, 1) = p(i)
Next i
ex1 p, n1, n2
Cells(1, 2) = n1
Cells(1, 3) = n2
End Sub
Sub ex1(ByRef a() As Integer, ByRef nn As Integer, ByRef nz As Integer)
Dim i As Integer
nn = 0: nz = 0
For i = 1 To 45
If a(i) = 0 Then
nz = nz + 1
Else
If a(i) < 0 And i <= 35 Then
nn = nn + 1
End If
End If
Next i
End Sub
Процедура для тестирования с выводом на лист Excel
Sub Test()
Dim p(1 To 45) As Integer
Dim n1 As Integer, n2 As Integer, i As Integer
Randomize Timer
For i = 1 To 45
p(i) = Int(25 * Rnd - 12)
Cells(i, 1) = p(i)
Next i
ex1 p, n1, n2
Cells(1, 2) = n1
Cells(1, 3) = n2
End Sub
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
(я)в букве я найди окно :) нашёл не
Автор: annakorolkova79
Какой информацитнный объем алфавитная буква. выразите в битах
Автор: gennadevna
А можно подробнее? я не очень понял но срадостю