
Добавил:
Julsft
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:ПЗ1 / z3
.pas //3) Проводилась одноканальная (моно) звукозапись с частотой дискретизации 16 кГц и 24-битным разрешением.
//В результате был получен файл размером 3 Мбайт, сжатие данных не производилось.
//Составьте программу, определяющую время, в течение которого проводилась запись?
const // объявим константы V-размер файла
// f - частота дискредитации
// B - глубина кодирования
// k - количество каналов
V = 25165824; //3*2^23
f = 16000; //2^4*1000
B = 24; //3*2^3
k = 1;
var
t: real; // объявим переменную искомого значения t - время
begin
t:= V/(f*B*k);
writeln('используя формулу t = V/(f*B*k) получим результат t = ', t, ' секунд'); // вывод результата
end.
//В результате был получен файл размером 3 Мбайт, сжатие данных не производилось.
//Составьте программу, определяющую время, в течение которого проводилась запись?
const // объявим константы V-размер файла
// f - частота дискредитации
// B - глубина кодирования
// k - количество каналов
V = 25165824; //3*2^23
f = 16000; //2^4*1000
B = 24; //3*2^3
k = 1;
var
t: real; // объявим переменную искомого значения t - время
begin
t:= V/(f*B*k);
writeln('используя формулу t = V/(f*B*k) получим результат t = ', t, ' секунд'); // вывод результата
end.