34. Какова длительность звучания цифрового стерео аудиофайла, записанного с частотой дискретизации 32 кГц и глубиной звука 16 бит и занимающего 500 Кбайт на диске?
Ответы
begin
var n := ReadInteger;
var L := new List<(integer, integer)>;
loop n do
begin
L.Add(ReadInteger2)
end;
var k := L.Count;
L := L.Distinct.ToList; // этап 1
var k1 := L.Count;
Print(k - k1);
(k, k1) := (k1, 0); // этап 2
var St := new Stack<integer>;
var m := L.First[0]; // время
for var i := 1 to k - 1 do
if L[i][0] <= m then
begin
St.Push(i);
Inc(k1)
end
else m := L[i][0];
for var i := 1 to k1 do
L.RemoveAt(St.Pop);
Print(k1);
(k, k1) := (L.Count, 0); // этап 3
m := L.First[1]; // температура
for var i := 1 to k - 1 do
if Abs(L[i][1] - m) > 10 then
begin
St.Push(i);
Inc(k1)
end
else m := L[i][1];
for var i := 1 to k1 do
L.RemoveAt(St.Pop);
Println(k1);
end.
Пример610 58 58 58 512 2513 102 1 1
begin
var n := ReadInteger;
var L := new List<(integer, integer)>;
loop n do
begin
L.Add(ReadInteger2)
end;
var k := L.Count;
L := L.Distinct.ToList; // этап 1
var k1 := L.Count;
Print(k - k1);
(k, k1) := (k1, 0); // этап 2
var St := new Stack<integer>;
var m := L.First[0]; // время
for var i := 1 to k - 1 do
if L[i][0] <= m then
begin
St.Push(i);
Inc(k1)
end
else m := L[i][0];
for var i := 1 to k1 do
L.RemoveAt(St.Pop);
Print(k1);
(k, k1) := (L.Count, 0); // этап 3
m := L.First[1]; // температура
for var i := 1 to k - 1 do
if Abs(L[i][1] - m) > 10 then
begin
St.Push(i);
Inc(k1)
end
else m := L[i][1];
for var i := 1 to k1 do
L.RemoveAt(St.Pop);
Println(k1);
end.
Пример610 58 58 58 512 2513 102 1 1Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Градиент, используемый для заливки фигур
Чи можлива робота компютера без програм? чому?
.. ..нужен ответ только на 3 и 4 вопрос...
Для обмена данными между NXT или EV3 блоком и компьютером используется?
Как создать диаграмму в microsoft word 2010? (если сможете пришлите фотографию)
Пойдёт ли стрим на пк c растом Intel core i3 7100 GTX 1050 ti 16 гб озу
Текст, составленный при 16-символьного алфавита, содержит 0, 125 мбайт информации. сколько символов в этом тексте?
ответ: 8 секунд
Объяснение: Объяснение: вычисляется по формуле I=f*i*t*n, где I-объем памяти, f-частота дискретизации, i-глубина звука, n-количество каналов ( в данном случае n=2, так как стерео). Килобайты и килогерцы нужно перевести в биты и герцы. 1Кбайт=8192бита, 1 кГц= 1000Гц.