请教大家一个算法的问题！

Question

是这样的，比如我有一个很大的二维数组，是BYTE类型的，我想把里面每一元素的值都乘以0.5，有什么快速的方法。
也许我说得不好清楚，举例说明：
一个800*600的BMP图，在24位色深的情况下就是800 * 600 * 3这么多像素，我想把它每一像素的值都变为原来的一半，一个字节一个字节的乘太慢了，有什么快速的算法？

Answer 1

var
  i,j:longint;
  brightness:array[0..255] of byte;
  bmp:tbitmap;
  line:prgbtriple;for i:=0 to 255 do
  brightness[i]:=i div 2;for i:=0 to bmp.height - 1 do begin
  line:=bmp.scanline[i];
  for j:=0 to bmp.width - 1 do begin
    line^.red:=brightness[line^.red];
    line^.green:=brightness[line^.green];
    line^.blue:=brightness[line^.blue];
  end;
end;

Answer 2

要操作肯定需要对单个字节操作，使用右移一位(shr 1)的方法可能比取出来做数字运行要快一点。