Вариант 2. 1. Устройство для обработки звуковой информации в компьютере 1) видеоплата 2) аудиоплата 3) процессор 4) память 2. Что такое глубина кодирования звука? информация для большей амплитуды сигнала количество информации, которое необходимо для кодирования дискретных уравнений громкости цифрового звука зависимость амплитуды сигнала от времени звуковые волны с постоянно меняющейся амплитудой и частотой 3. От каких характеристик зависит качество цифрового звука? 1) От частоты дискретизации 2) От временной дискретизации 3) От количества измерения уровней громкости 4) От глубины кодирования 4. Глубина кодирования звука составляет 8 бит. Определите количество уровней громкости. В ответ запишите только число. 5. В каких форматах сохраняются звуковые файлы: 1) TXT 2) MP3 3) PNG 4) WAV 5) PDF 6) TIFF 6. Запишите формулу для расчета размера стереоаудиофайла: 7. При частоте дискретизации 44 кГц качество дискретизированного звукового сигнала соответствует качеству: 1) звучания аудио-CD; 2) радиотрансляции; 3) среднему качеству. 8. Единица измерения глубины кодирования звука 1) Мб 2) Кб 3) Гц 4) Кц 5) бит 9. Аналоговый звуковой сигнал был дискретизирован двумя с использованием 1024 уровней интенсивности сигнала; 2) с использованием 128 уровней интенсивности сигнала. Во сколько раз изменился объем аудиофайла? 10. Определить объем памяти для хранения цифрового аудиофайла, время звучания которого составляет две минуты при частоте дискретизации 44, 1 кГц и разрешении 16 бит. 11. Проводилась одноканальная (моно) звукозапись с частотой дискретизации 16 кГц и 32-битным разрешением. В результате был получен файл размером 20 Мбайт, сжатие данных не производилось. Определите время (мин), в течение которого проводилась запись? 12. Объем звукового стереоаудиофайла – 1875 Кбайт, глубина звука – 16 бит, длительность звучания этого файла – 10 сек. С какой частотой дискретизации записан данный файл?
Ответы
//Pascal ABC.NET v3.0 сборка 1111
type
ty=set of char;
Const
t:ty=['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z'];
Var
f:text;
s:string;
i,slo,ks:integer;
k:real;
begin
assign(f,'text.in');
reset(f);
while not Eof(f) do read(f,s);
close(f);
slo:=0;
ks:=0;
for i:=1 to length(s) do
if s[i] in t then inc(slo) else
begin;
k:=k+slo;
inc(ks);
slo:=0;
end;
if s[length(s)] in t then
begin;
inc(ks);
k:=k+slo;
end;
k:=k/ks;
assign(f,'text.out');
rewrite(f);
write(f,k);
close(f);
end.
Пример ввода(text.in):
SIMPLE text
Пример вывода(text.out):
5
type
ty=set of char;
Const
t:ty=['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z'];
Var
f:text;
s:string;
i,slo,ks:integer;
k:real;
begin
assign(f,'text.in');
reset(f);
while not Eof(f) do read(f,s);
close(f);
slo:=0;
ks:=0;
for i:=1 to length(s) do
if s[i] in t then inc(slo) else
begin;
k:=k+slo;
inc(ks);
slo:=0;
end;
if s[length(s)] in t then
begin;
inc(ks);
k:=k+slo;
end;
k:=k/ks;
assign(f,'text.out');
rewrite(f);
write(f,k);
close(f);
end.
Пример ввода(text.in):
SIMPLE text
Пример вывода(text.out):
5
Uses GraphABC;
var tnk:array of Point;
begin
Window.Title := 'Танк атакует';
var y := 200;
Brush.Color := clGreen;
LockDrawing;
tnk:=new Point[4];
for var x := 70 to 500 do begin
Window.Clear(clWhite);
Rectangle(x,y,x+100,y+50);
Rectangle(x-25,y+50,x+125,y+75);
tnk[0].X:=x-45;
tnk[0].Y:=y+75;
tnk[1].X:=x-30;
tnk[1].Y:=y+120;
tnk[2].X:=x+100;
tnk[2].Y:=y+120;
tnk[3].X:=x+145;
tnk[3].Y:=y+75;
Rectangle(x+100,y+10,x+225,y+25);
FillPolygon(tnk);
Redraw;
Sleep(3);
end;
end.
var tnk:array of Point;
begin
Window.Title := 'Танк атакует';
var y := 200;
Brush.Color := clGreen;
LockDrawing;
tnk:=new Point[4];
for var x := 70 to 500 do begin
Window.Clear(clWhite);
Rectangle(x,y,x+100,y+50);
Rectangle(x-25,y+50,x+125,y+75);
tnk[0].X:=x-45;
tnk[0].Y:=y+75;
tnk[1].X:=x-30;
tnk[1].Y:=y+120;
tnk[2].X:=x+100;
tnk[2].Y:=y+120;
tnk[3].X:=x+145;
tnk[3].Y:=y+75;
Rectangle(x+100,y+10,x+225,y+25);
FillPolygon(tnk);
Redraw;
Sleep(3);
end;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
решить! Информатика практическая работа 3.6
Автор: delta88
Написать канкулятор на си, с приоритетами действий там могут быть () */±
Автор: prokodasha
Переведіть 1, 5 гігабайт в байт
Автор: gon4arovanat6
Aнaлитикaлық мaшинaAнaлитикaлық мaшинa
Автор: ВалентиновичСуриковна1104
Сколько байтов необходимо для кодирования текста я учусь в тисби
Автор: Гаевая1290
а ты это случайно сам не искал гдето в другом месте например по одному во а еще 5 баллов для такой работы это какаята шутка да? сперва научись давать нормально баллы за огромное воличество ответов. Потом уже пиши свой во мукарон