Размер цифрового аудиофайла измеряется по формуле: A = D*T*i (моно) или A = 2*D*T*i (стерео), где D – частота дискретизации (Гц), T – время звучания или записи звука, i - разрядность регистра (разрешение или глубина кодирования звука). 1. A = 11*1000*64*16 бит = 11*1000*64*16 / (8*1024) Кбайт = 1375 Кбайт
2. T = 1375*1024*8 / (11*1000*8) c = 128 c
3. i = 4125*1024*8 / (11*1000*238) бит ≈ 13 бит (если T = 256, то i = 4125*1024*8 / (11*1000*256) бит = 12 бит)
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
№1
begin var (a,k):=ReadInteger2('Укажите количество рабочих и служащих:'); Writeln('Заработок работника равен ',624750/(a+k)) end.
Пример Укажите количество рабочих и служащих: 15 6 Заработок работника равен 29750
№2
begin var y:=ReadReal('Укажите скорость ходьбы, км/ч:'); var x:=ReadReal('Мальчик пробежал, км: '); Writeln('Затрачено времени на бег, ч: ',x/(3*y):0:2) end.
Пример Укажите скорость ходьбы, км/ч: 5.2 Мальчик пробежал, км: 12 Затрачено времени на бег, ч: 0.77
A = D*T*i (моно) или A = 2*D*T*i (стерео),
где D – частота дискретизации (Гц), T – время звучания или записи звука, i - разрядность регистра (разрешение или глубина кодирования звука).
1.
A = 11*1000*64*16 бит = 11*1000*64*16 / (8*1024) Кбайт = 1375 Кбайт
2.
T = 1375*1024*8 / (11*1000*8) c = 128 c
3.
i = 4125*1024*8 / (11*1000*238) бит ≈ 13 бит
(если T = 256, то i = 4125*1024*8 / (11*1000*256) бит = 12 бит)
4.
D = 11025*1024*8 / (2*64*16) Гц = 44100 Гц = 44,1 кГц
// Внимание! Если программа не работает, обновите версию!
№1
begin
var (a,k):=ReadInteger2('Укажите количество рабочих и служащих:');
Writeln('Заработок работника равен ',624750/(a+k))
end.
Пример
Укажите количество рабочих и служащих: 15 6
Заработок работника равен 29750
№2
begin
var y:=ReadReal('Укажите скорость ходьбы, км/ч:');
var x:=ReadReal('Мальчик пробежал, км: ');
Writeln('Затрачено времени на бег, ч: ',x/(3*y):0:2)
end.
Пример
Укажите скорость ходьбы, км/ч: 5.2
Мальчик пробежал, км: 12
Затрачено времени на бег, ч: 0.77