Книга программиста/Фильтрация изображений на PascalABC.Net: различия между версиями

Содержимое удалено Содержимое добавлено
Строка 32:
var
Pic1: Picture;
V: real := 128 * N / 100;
 
procedure TruncColor(var a: integer);
Строка 50 ⟶ 51 :
begin
var c := Pic1.GetPixel(i, j);
var ar := NRound(c.R *+ 128V); / 100;
var rg := Round(c.RG + aV);
var gb := Round(c.GB + aV);
var b := Round(c.B + a);
TruncColor(r);