Стереозапись, имеющая частоту дискретизации 44 100 Гц, транслируется через канал связи со скоростью 86 кБ/с. Найдите уровень квантования (разрядность дискретизации) записи. ответ выразите в битах
Для очередного выпуска «Разрушителей легенд» необходимо снять в замедленном действии процесс прохождения пули через слой воды. Известно, что пуля проходит через слой воды за 0,002 с, а длительность прохождения пули в режиме замедленной съёмки на телевидении должна составлять не менее 4 с. Какой должна быть минимальная кадровая частота видеозаписи, чтобы замедленная съёмка выглядела непрерывно? Чтобы видео воспринималось человеческим глазом как непрерывное, на экране должно воспроизводиться 24 кадра в секунду
Подсчитайте размер видеофрагмента длительностью 30 с, состоящего из отдельных JPEG-файлов размером в 500 кБ каждый. Частоту смены кадров считать равной 24 с–1. ответ выразите в мегабайтах.
Вычислите скорость поступления информации в звуковую карту при воспроизведении музыкального стереоотрывка, записанного в CD-качестве с частотой дискретизации ν = 44 100 Гц и разрядностью дискретизации q = 16 бит. ответ выразите в килобайтах в секунду и округлите до целого числа.
1)
# На вход: кол-во чисел, сами числа
# Выход: кол-во чисел не кратных 5
count:int = input('Кол-во чисел?: ')
ints = []
for i in range(int(count)):
ints.append(input('Число ' + str(i+1) + ': '))
result = []
for i in ints:
if int(i) % 5 != 0:
result.append(i)
print(result)
2)
# На вход: кол-во чисел, сами числа
# Выход: кол-во чисел в конце которых чётное число
count:int = input('Кол-во чисел?: ')
ints = []
for i in range(int(count)):
ints.append(input('Число ' + str(i+1) + ': '))
result = []
for i in ints:
if int(i) % 2 == 0:
result.append(i)
print(result)
3)
# На вход: числа A и C
# Выход: числа, последняя цыфра которых кратна С
A = input('Отрезок от 0 до ')
C = input('Найти числа, кратные ')
result = []
for i in range(0, int(A)):
if i % int(C) == 0:
result.append(i)
print(result)
//PascalABC.Net 3.0, сборка 1064
const
n=15;
var
c:array[1..n] of integer;
i,k:integer;
sn,ap:longint;
begin
Randomize;
Writeln('Исходный массив');
k:=0;
for i:=1 to n do begin
c[i]:=Random(51)-25;
Write(c[i]:4);
if c[i]<0 then sn:=sn+c[i]
else
if c[i]>0 then begin ap:=ap+c[i]; Inc(k) end
end;
Writeln;
Writeln('Сумма отрицательных элементов равна ',sn);
Writeln('Среднее арифметическое положительных элементов равно ',ap/k)
end.
Тестовое решение:
Исходный массив
22 15 -5 4 7 -6 24 23 -25 -21 -10 21 -11 -4 22
Сумма отрицательных элементов равна -82
Среднее арифметическое положительных элементов равно 17.25
2. Современный вариант (а так в школах почему-то не учат)
//PascalABC.Net 3.0, сборка 1064
begin
var c:=SeqRandom(15,-25,25);
Writeln('Исходный массив'); Println(c);
Writeln('Сумма отрицательных элементов равна ',c.Where(x->x<0).Sum);
Writeln('Среднее арифметическое положительных элементов равно ',
c.Where(x->x>0).Average)
end.
Тестовое решение:
Исходный массив
[21,13,16,-6,-5,-21,-23,10,14,5,-14,7,-10,-9,9]
Сумма отрицательных элементов равна -120
Среднее арифметическое положительных элементов равно 12.125