Вариант 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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Скласти Програму на мові Pascal
Автор: Антонович937
Глубина цвета 2 количество цветов в палитре
Автор: mashuska
Определите последнюю цифру степени 7n, для (n< 100
Автор: ИвановнаВладимир1832
Сахна фонын қалай ауыстырамыз
Автор: tsypant
Сколько битов информации несет знаковый разряд?
Автор: Николаевич-Анатольевич599
Решите умоляю эти задачи, ответов на них ? Буду благодарна
Автор: goldservicepro
Что такое развёрнутая форма записи числа
Автор: smartschoolfili6
а ты это случайно сам не искал гдето в другом месте например по одному во а еще 5 баллов для такой работы это какаята шутка да? сперва научись давать нормально баллы за огромное воличество ответов. Потом уже пиши свой во мукарон