Программа:
Pascal:
var arr: array[1..15] of integer;
i: integer;
begin
write('Исходный массив: ');
for i := 1 to 15 do begin
arr[i] := random(0, 35);
write(arr[i], ' ');
end;
write(#10, 'Массив в обратном порядке: ');
for i := 15 downto 1 do write(arr[i], ' ');
end.
1) 8=2^3. Каждый цвет весит 3 бита
2) 2^7=128. Глубина цвета 128
3) 512=2^9. Для каждого цвета выделяется 9 бит
4) Количество пикселей (точек)=256*512=(2^8)*(2^9)=2^(8+9)=2^17 px.
Определим вес каждого пикселя: 16=2^4, те каждый пиксель весит 4 бита
Вес картинки=(2^17)*4=(2^17)*(2^2)=2^(17+2)=2^19 бит=(2^19):(2^13)=2^6=64 Кбайта
5) вес изображения 64 Кбайта=(2^6)*(2^13) бит=2^19 бит.
Количество пикселей=1024*512=(2^10)*(2^9)=2^19 px
Вес каждого пикселя: 2^19 бит/2^19 px=1 бит
Количество цветов в палитре=2^1=2 цвета в палитре
6) Палитра RGB (Red-Green-Blue), по 2 шестнадцатеричной цифры на цвет.
var
arr : array[1..15] of integer;
begin
writeln('Заполняем массив случайными числами: ');
for var i := 1 to 15 do
begin
arr[i] := random(0, 35);
write(arr[i], ' ');
end;
writeln;
writeln('Вывод элементов в обратном порядке: ');
for var i := 15 downto 1 do
write(arr[i], ' ');
end.