Объем аудиофайла расчитывается так: <em><u> I = k*r*f*t ,</u> </em>
где 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.
из формулы <em><u>I = k*r*f*t </u></em> выразим 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 с.
результат подозрительный, конечно...
........ 1 байт=8 бит.
...........
.....
Var
<span>prin: boolean; </span>
<span>x, y: integer; </span>
<span>begin </span>
<span>readln(x); </span>
<span>readln(y); </span>
<span>if (x <= 0) and (x >= -3) and (y <= x + 3) then </span>
<span>prin := true </span>
<span>else if (x >= 0) and (x <= 3) and (y <= - x + 3) then </span>
<span>prin := true </span>
<span>else if (y <= 0) and (y >= -3) and (abs(x) <= 3) then </span>
<span>prin := true </span>
<span>else </span>
<span>prin := false; </span>
<span>if prin then writeln('принадлежит') else writeln('не принадлежит'); </span>
<span>end.</span>
<em>1)</em> Program p1;
Uses crt;
Var A: array [1..9] of integer;
i: integer;
Begin clrscr;
for i:=1 to 9 do
begin
case i of
1,4,7: a[i]:= random (99-10+1)+10;
2,5,8: (random (999-100+1)+100) div i;
3,6,9: (random (99-10+1)+10) mod 10;
end;
write (a[i],' ');
end;
readln;
readkey;
end.<em>
</em>2)<em> </em>Program p2;
Uses crt;
Var A: array [1..15] of integer;
i: integer;
Begin clrscr;
Writeln ('Введите первые 2 элемента массива');
Read (a[1],a[2]);
for i:=3 to 15 do
begin
a[i]:=(a[i-1]-a[i-2])+i;
write (a[i],' ');
end;
readln;
readkey;
end.