Реферат: Программа фильтрации шумов
PrevisionLine := Image1.Picture.Bitmap.ScanLine[I - 1];
if J > 0 then
begin
Summ := Summ + PrevisionLine^[J - 1];
end;
Summ := Summ + PrevisionLine^[J];
if J + 1 < Image1.Picture.Bitmap.Width then
begin
Summ := Summ + PrevisionLine^[J + 1];
end;
end;
if J > 0 then
begin
Summ := Summ + CurrentLine^[J - 1];
end;
Summ := Summ + CurrentLine^[J];
if J + 1 < Image1.Picture.Bitmap.Width then
begin
Summ := Summ + CurrentLine^[J + 1];
end;
if I + 1 < Image1.Picture.Bitmap.Height then
begin
NextLine := Image1.Picture.Bitmap.ScanLine[I + 1];
if J > 0 then
begin
Summ := Summ + NextLine^[J - 1];
end;
Summ := Summ + NextLine^[J];
if J + 1 < Image1.Picture.Bitmap.Width then