K
kongg
Unregistered / Unconfirmed
GUEST, unregistred user!
在我的课程设计当中，我需要做一个图象平滑的程序，我的过程是：
加入两个image，分别是image1和image2,image1是待处理的图象，
image2是保存处理后的图象。程序如下：
var i,j:integer;
begin
for i:=0 to image1.width do
begin
for j:=0 to image1.height do
begin
image2.canvas.pixel[i,j]:=(image1.canvas.pixel[i+1,j]
image1.canvas.pixel[i-1,j]+image1.canvas.pixel[i,j-1]
image1.canvas.pixel[i,j+1]) div 4;
end;
end;
end.
程序对有些图片处理的效果很好，但好多的图片被处理成花色，尤其是对那些
色彩和边缘比较丰富的图片。我又用了“/”代替"div ",但系统提示出错，请
各位指点一二。我愿意出我的分数的一半。
加入两个image，分别是image1和image2,image1是待处理的图象，
image2是保存处理后的图象。程序如下：
var i,j:integer;
begin
for i:=0 to image1.width do
begin
for j:=0 to image1.height do
begin
image2.canvas.pixel[i,j]:=(image1.canvas.pixel[i+1,j]
image1.canvas.pixel[i-1,j]+image1.canvas.pixel[i,j-1]
image1.canvas.pixel[i,j+1]) div 4;
end;
end;
end.
程序对有些图片处理的效果很好，但好多的图片被处理成花色，尤其是对那些
色彩和边缘比较丰富的图片。我又用了“/”代替"div ",但系统提示出错，请
各位指点一二。我愿意出我的分数的一半。