Объем аудиофайла расчитывается так: I = k*r*f*t , где k - количество каналов записи (моно - 1, стерео - 2); f - частота дискретизации (кол-во отсчетов, запоминаемых за 1 секунду, измеряется в Гц); r - глубина кодирования (сколько бит приходится на 1 отсчет); t - время звучания итак, нам дано: k = 1 т.к. у нас моноаудиофайл I = 30 мб =30*1024*1024*8 бит = 3*10*2²³ бит r = 16 бит = 2⁴ бит, f = 48 кГц = 48 000 Гц = 3*2⁴*10³ Гц, нужно найти время t. из формулы I = k*r*f*t выразим t t = I/(k*r*f) t = (3*10*2²³)/(1*2⁴*3*2⁴*10³)= (3*10*2²³)/(2⁸*3*10³) = 2¹⁵/10²= 327,68 с. результат подозрительный, конечно...
Private Sub CommandButton1_Click() Dim s() As Integer, n As Integer, m As Integer Dim i As Integer, j As Integer Dim min As Integer, max As Integer, q As Integer, w As Integer Cells.Clear n = InputBox("CTROKI", , 4) m = InputBox("CTOLBEC", , 5) Randomize ReDim s(n, m) As Integer For i = 1 To n max = -100: min = 100 For j = 1 To m s(i, j) = Int(Rnd() * 60 - 10) Cells(i, j) = s(i, j) Cells(i + 2 + n, j) = s(i, j) If min > s(i, j) Then min = s(i, j) q = j End If If max < s(i, j) Then max = s(i, j) w = j End If Next j Cells(i + 2 + n, w) = min Cells(i + 2 + n, q) = max Next i End Sub
{ввожу текст, затем слово. Переменная flag нужна для того, чтобы в нее записать 1, если из слова встретиться в тексте хотя бы раз буква. Если это случилось, то Flag становится равной 1. К буквам слова и текста обращаемся как к массиву a[i] b[j]} var a,b:string; i,n,k,j,flag:integer; begin flag:=0; writeln('Введите текст'); readln(a); Writeln('Введите слово'); Readln(b); k:=length(a); n:=length(b); for i:=1 to n do for j:=1 to k do if a[i]=b[j]then flag:=1; if flag=1 then writeln('Y') else writeln('N'); end.
где k - количество каналов записи (моно - 1, стерео - 2);
f - частота дискретизации (кол-во отсчетов, запоминаемых за 1 секунду, измеряется в Гц);
r - глубина кодирования (сколько бит приходится на 1 отсчет);
t - время звучания
итак, нам дано:
k = 1 т.к. у нас моноаудиофайл
I = 30 мб =30*1024*1024*8 бит = 3*10*2²³ бит
r = 16 бит = 2⁴ бит,
f = 48 кГц = 48 000 Гц = 3*2⁴*10³ Гц,
нужно найти время t.
из формулы I = k*r*f*t выразим t
t = I/(k*r*f)
t = (3*10*2²³)/(1*2⁴*3*2⁴*10³)= (3*10*2²³)/(2⁸*3*10³) = 2¹⁵/10²= 327,68 с.
результат подозрительный, конечно...