Question

Паскаль Пиксели рисунка закодированы числами от 0 до 255 (обозначающими яркость пикселей) в виде матрицы, содержащей N строк и M столбцов. Нужно преобразовать рисунок в черно-белый по следующему алгоритму:  вычислить среднюю яркость пикселей по всему рисунку  все пиксели, яркость которых меньше средней, сделать черными (записать код 0), а остальные – белыми (код 255)

Answer 1

Var
c:array[1..1000,1..1000] of integer;
i,j,n,m,sum,aver:longint;
begin
read(n,m);
for i:=1 to n do
 for j:=1 to m do
  begin
  read(c[i,j]);
  sum:=sum+c[i,k];
  end;

aver:=sum div (n*m);

for i:=1 to n do
begin
writeln;
 for j:=1 to m do
  begin
  if c[i,j]<aver then c[i,j]:=0 else c[i,j]:=255;
  write(c[i,j],' ');
  end;
end;

end.

Проверьте на синтаксические ошибки. В данный момент не могу сам это скомпилировать 

Answer 2

Преобразование рисунка в черно-белый

Для преобразования рисунка в черно-белый по заданному алгоритму, необходимо выполнить следующие шаги:

1. Вычислить среднюю яркость пикселей по всему рисунку. 2. Пройти по каждому пикселю и сравнить его яркость с средней яркостью. 3. Если яркость пикселя меньше средней, то установить его яркость в 0 (черный). 4. Если яркость пикселя больше или равна средней, то установить его яркость в 255 (белый).

Пример кода на языке Pascal

const
  N = ...; // количество строк в матрице
  M = ...; // количество столбцов в матрице

var
  image: array[1..N, 1..M] of Byte; // матрица пикселей
  averageBrightness: Byte; // средняя яркость пикселей
  i, j: Integer; // переменные для циклов

begin
  // Вычисление средней яркости пикселей
  averageBrightness := 0;
  for i := 1 to N do
    for j := 1 to M do
      averageBrightness := averageBrightness + image[i, j];
  averageBrightness := averageBrightness div (N * M);

// Преобразование рисунка в черно-белый
  for i := 1 to N do
    for j := 1 to M do
    begin
      if image[i, j] < averageBrightness then
        image[i, j] := 0 // черный
      else
        image[i, j] := 255; // белый
    end;
end.

Примечание: В приведенном примере кода не указано, каким образом получить исходную матрицу пикселей. Вам необходимо заменить `...` в объявлении констант `N` и `M` на соответствующие значения, а также заполнить матрицу `image` данными о яркости пикселей.