размер картинки 1024*768=786432 пикселей. Цветовая гамма каждого пикселя - 200 цветов, значит цвет будем кодировать 8 битами (2⁸=256 значений, а 7 битов будет мало, 2⁷=всего 128 значений), то есть 1 байтом кодируем цвет. Тогда в одном кадре будет 786432 * 1=786342 байта или 786342/1024=768 кб.
Кадры меняются 25 раз в секунду в течении 50 секунд. Всего их сменится 25*50=1250 шт. Тогда общий объем информации будет 768 кб*1250=960000 кб или 960000/1024=937,7 мб.
50-секундный ролик объемом почти в гигабайт.
Обычно видеоролики не хранят в таком формате, очень большой объем, а используют разные хитрые кодеки, сжимающие изображение, за счет потерь в качестве.
937,7 мб
Объяснение:
размер картинки 1024*768=786432 пикселей. Цветовая гамма каждого пикселя - 200 цветов, значит цвет будем кодировать 8 битами (2⁸=256 значений, а 7 битов будет мало, 2⁷=всего 128 значений), то есть 1 байтом кодируем цвет. Тогда в одном кадре будет 786432 * 1=786342 байта или 786342/1024=768 кб.
Кадры меняются 25 раз в секунду в течении 50 секунд. Всего их сменится 25*50=1250 шт. Тогда общий объем информации будет 768 кб*1250=960000 кб или 960000/1024=937,7 мб.
50-секундный ролик объемом почти в гигабайт.
Обычно видеоролики не хранят в таком формате, очень большой объем, а используют разные хитрые кодеки, сжимающие изображение, за счет потерь в качестве.
Сделал подробно. Двумя решениями. Через оператора if и else (Вам нужен только if, else для ознакомления)
--
IF
--
2)
Program ypriz;
var a,b,cc: real;
BEGIN
a:=2;
b:=-3;
if a+b > 0 then
begin
a:=10*a;
b:=10*b
end
else
c:=a;
a:=a+b;
b:=c*b;
Writeln('Значение a, b: ',a);
END.
3)
Program asoft;
var a,b,c: real;
BEGIN
a:=2;
b:=-3;
if a+b > 0 then
a:=10*a;
b:=10*b;
if a+b < 0 then
c:=a;
a:=a+b;
b:=c*b;
writeln ('Значение a, b:',a,' ',b);
END.
--
ELSE
--
2)
Program ypriz;
var x,y,z: real;
BEGIN
z:=5;
if z < 5 then
y:=z+10;
if z > 5 then
y:=z-10;
Writeln('Значение y: ',y);
END.
или
Program ypriz;
var x,y,z: real;
BEGIN
z:=5;
if z < 5 then
y:=z+10
else
y:=z-10;
Writeln('Значение y: ',y);
END.
3)
Program asoft;
var a,b,c: real;
BEGIN
a:=2;
b:=-3;
if a+b > 0 then
begin
a:=10*a;
b:=10*b
end
else
c:=a;
a:=a+b;
b:=c*b;
writeln ('Значение a, b:',a,' ',b);
END.