Подскажите , как это решить. 15 задание не получается решить согласно формуле: Частота дискретизации × Разрешение × Количество каналов × Время звучания
13. температура от 0 до 63 - всего 64 значения. Для кодирования 64 значений достаточно 6 бит (потому что 2⁶=64). 6 бит на одно измерение, всего 10 измерений, тогда информационный объем 6*10=10 бит
14. алфавит содержит 16 символов. для кодировки каждого достаточно 4 бита (потому что 2⁴=16) В сообщении 3 символа, каждый кодирован 4 битами, тогда общий объем информации 3*4=12 бит.
15. Звуковой файл записан с частотой 16000 Гц, разрешением 8 бит, 2 канала и длительность 1 минута.
То есть каждую секунду берется 16000 отсчетов и каждое значение кодируется 8 битами, получаем 16000*8=128000 бит за 1 секунду записи. Но каналов 2 - тогда за 1 секунду записи получаем 128000*2=256000 бит информации. Всего длительность записи 1 минута=60 сек. Общий объем информации будет 256000*60=15360000 бит, или 15360000/8=1920000 байт, или 1920000/1024=1875 кБ.
Var q: string; a,i,z,g,b,x,m: Integer; begin z:=0; g:=1; readln(q,a,b,x,m); for i:=1 to length(q) do begin z:=z+q[i]; end; if z<a then writeln('Верно, что сумма цифр меньше А') else writeln('Неверно, что сумма цифр меньше А'); for i:=1 to length(q) do begin g:=g*q[i]; end; if g>b then writeln('Верно, что произведение цифр больше B') else writeln('Неверно, что произведение цифр больше B'); if x=length(q) then writeln('Верно, что число x значеное') else writeln('Неверно, что число x значное'); if q[0]>m then writeln('Верно, что его первая цифра превышает m') else writeln('Неверно, что его первая цифра превышает m') end.
Программа для 1. var n,b,s:integer; begin Write('Введите натуральное число и значение b: '); Read(n,b); if n>b then Writeln('Неверно') else begin s:=0; while n>0 do begin s:=s+n mod 10; n:=n div 10 end; if s mod 2=0 then Writeln('Верно') else Writeln('Неверно') end end.
Программа для 2. var k,m,n,b,s:integer; begin Write('Введите натуральное число и значения m,n: '); Read(k,m,n); if k mod n <> 0 then Writeln('Неверно') else begin s:=0; while k>0 do begin s:=s+k mod 10; k:=k div 10 end; if s>m then Writeln('Верно') else Writeln('Неверно') end end.
Объяснение:
13. температура от 0 до 63 - всего 64 значения. Для кодирования 64 значений достаточно 6 бит (потому что 2⁶=64). 6 бит на одно измерение, всего 10 измерений, тогда информационный объем 6*10=10 бит
14. алфавит содержит 16 символов. для кодировки каждого достаточно 4 бита (потому что 2⁴=16) В сообщении 3 символа, каждый кодирован 4 битами, тогда общий объем информации 3*4=12 бит.
15. Звуковой файл записан с частотой 16000 Гц, разрешением 8 бит, 2 канала и длительность 1 минута.
То есть каждую секунду берется 16000 отсчетов и каждое значение кодируется 8 битами, получаем 16000*8=128000 бит за 1 секунду записи. Но каналов 2 - тогда за 1 секунду записи получаем 128000*2=256000 бит информации. Всего длительность записи 1 минута=60 сек. Общий объем информации будет 256000*60=15360000 бит, или 15360000/8=1920000 байт, или 1920000/1024=1875 кБ.
Такого ответа нет, возможно ошибка.