Какой объем будет иметь чёрно-белое видео передаваемое с разрешением кадра 800 х 600, скоростью воспроизведения 24 кадра в секун
ду и длительностью 30 минут.(Ответ округлите до десятых) Ответ: Гбайт
Какой объем будет иметь видео передаваемое с разрешением кадра 600 х 400 пикселей с 8 битовой глубиной цвета, скоростью воспроизведения 25 кадров в секунду и длительностью 1,5 минуты. Известно, что звук, наложенный на видео имеет 128 уровней громкости, частота дискретизации равна 32000 Гц, это стерео звук. (Ответ округлите вверх до целых) в мбайтах
Задача 1. Объем видео можно рассчитать из формулы: X=R*i*n*t, где R- количество пикселей на кадр, i-глубина цвета (бит), n-частота кадров (ед/сек.), t- время(сек.) Глубину цвета i получим из формулы: N=2^i, где N-количество цветов.У нас черно-белое изображение, значит 2 цвета. 2=2^i i=1 бит R=800*600=480000 Х=480000*1*24*(30*60)= 20736000000 бит = 2592000000 байт= 2531250 Кбайт= 2471,92 Мбайт = 2,4 Гбайт Ответ: 2,4 Гбайт
Задача 2. Рассчитаем объем видео: X=R*i*n*t, где R- количество пикселей на кадр, i-глубина цвета (бит), n-частота кадров (ед/сек.), t- время(сек.) Х=(600*400)*8*25*(1,5*60)= 4320000000 бит= 540000000 байт= 527343,75 Кбайт= 514,98 Мбайт
Объем звука: Х=i*n*t*k, где i - глубина кодирования звука (бит), n - частота дискретизации (Гц), t- время (сек.), k- количество каналов. Глубину кодирования звука определим из формулы:N=2^i, где N- количество уровней громкости 128=2^i i=7 Х=7*32000*(1,5*60)*2= 40320000 бит = 5040000 байт= 4921,88 Кбайт= 4,81 Мбайт Сложим полученные значения объема видео и звука: 514,98+4,81= 519,79 Мбайт Ответ: 520 Мбайт
var arr: array[1..m] of integer; i, j, k,r: integer;
begin
for i := 1 to m do begin arr[i] := random(256); end; for i := 1 to m-1 do for j := 1 to m-i do if arr[j] > arr[j+1] then begin k := arr[j]; arr[j] := arr[j+1]; arr[j+1] := k end; write (arr[20]); readln end.
<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin for var a:=1 to 6 do for var c:=0 to 5 do for var b:=0 to 4 do for var d:=5 to 9 do if (a+c=6) and (b-d=-5) then Write(a,b,c,d,' '); Writeln end.