1.какой объем видеопамяти необходим для хранения изображения, если битовая глубина цвета равна 8, а разрешающая дисплея - 800 × 12002. объем видеопамяти равен 256 кб, кол-во используемых цветов - 16,разрешающая дисплея - 256 × 512. сколько страниц может храниться в видеопамяти? ​

Современный компьютер может обрабатывать числовую, текстовую, графическую, звуковую и видео информацию. Все эти виды информации в компьютере представлены в двоичном коде, т. е. используется алфавит мощностью два (всего два символа 0 и 1). Связано это с тем, что удобно представлять информацию в виде последовательности электрических импульсов: импульс отсутствует (0), импульс есть (1). Такое кодирование принято называть двоичным, а сами логические последовательности нулей и единиц - машинным языком. Суть кодирования заключается в том, что каждому символу ставят в соответствие двоичный код от 00000000 до 11111111 или соответствующий ему десятичный код от 0 до 255.

2) procedure TForm1.Button1Click(Sender: TObject);

var a: array[1..8] of integer; i:integer;

begin

for i := 1 to 8 do

a[i] := StrToInt(Memo1.Lines[i-1]);

Shape1.Height:=a[1];

Shape2.Height:=a[2];

Shape3.Height:=a[3];

Shape4.Height:=a[4];

Shape5.Height:=a[5];

Shape6.Height:=a[6];

Shape7.Height:=a[7];

Shape8.Height:=a[8];

end;  

3) procedure TForm1.Button1Click(Sender: TObject);

var a: array [1..8] of real; b: array [1..8] of TShape; i: integer; min: real;

begin

for i := 1 to 8 do

a[i] := StrToInt(Memo1.Lines[i-1]);

min := a[1];

for i := 1 to 8 do

If a[i] < min Then min := a[i];

b[1] := Shape1; b[2] := Shape2; b[3] := Shape3; b[4] := Shape4;

b[5] := Shape5; b[6] := Shape6; b[7] := Shape7; b[8] := Shape8;

for i := 1 to 8 do

If a[i] = min Then b[i].Brush.Color:= clgreen else b[i].Brush.Color:= clgray;

end;