Какой объем будет иметь чёрно-белое видео передаваемое с разрешением кадра 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 мбайт

  я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))

 

 

vara: string; b: integer; beginwriteln ('введите строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; while (b = 1) dobeginwriteln ('введіте строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; end;

end. 

var

  x : array [1..15] of integer;

  i : integer;

  min : integer;

  kol_nol : integer;

begin

  kol_nol : = 0;

  for i: =1 to 15 do

  begin

  write ("введите элемент массива: ");

readln(x[i]);

end;

min : = x[1];

for i : = 0 to 15 do

begin

  if (x[i] > 0) then

  begin

  if (x[i] < min) then

  begin

    min : = x[i];

  end;

  end;

  if (x[i] = 0) then

  begin

  inc(kol_nol);

  end;

 

writeln(min);

writeln(kol_nol);

end;