Яркости пикселей рисунка закодированы числами от 0 до 255 в виде матрицы. Преобразовать рисунок в черно-белый по следующему алгоритму:
вычислить среднюю яркость пикселей по всему рисунку
все пиксели, яркость которых меньше средней, сделать черными (записать код 0), а остальные – белыми (код 255)
Пример:
Матрица А:
12 14 67 45
32 87 45 63
69 45 14 11
40 12 35 15
Средняя яркость 37.88
Результат:
0 0 255 255
0 255 255 255
255 255 0 0
255 0 0 0

Uses
  graphABC;
const
  W = 800; H = 500;
 
function F(x: real): real;
begin
  F := x * x - x;
end;

var
  x0, y0, x, y, xLeft, yLeft, xRight, yRight, n: integer;
  a, b, fmin, fmax, x1, y1, mx, my, dx, dy, num: real;
  i: byte;
  s: string;
begin
  SetWindowSize(W, H);
  xLeft := 50;
  yLeft := 50;
  xRight := W - 50;
  yRight := H - 50;
  a := -2; b := 5; dx := 0.5;
  fmin := -2; fmax := 5; dy := 0.5;
  mx := (xRight - xLeft) / (b - a);
  my := (yRight - yLeft) / (fmax - fmin);
  x0 := trunc(abs(a) * mx) + xLeft;
  y0 := yRight - trunc(abs(fmin) * my);
  line(xLeft, y0, xRight + 10, y0);
  line(x0, yLeft - 10, x0, yRight);
  SetFontSize(12);
  SetFontColor(clBlue);
  TextOut(xRight + 20, y0 - 15, 'X');
  TextOut(x0 - 10, yLeft - 30, 'Y');
  SetFontSize(7);
  SetFontColor(clRed);
 
  n := round((b - a) / dx) + 1;
  for i := 1 to n do
  begin
    num := a + (i - 1) * dx;
    x := xLeft + trunc(mx * (num - a));
    Line(x, y0 - 3, x, y0 + 3);
    str(Num:0:1, s);
    if abs(num) > 1E-15 then
      TextOut(x - TextWidth(s) div 2, y0 + 10, s)
  end;
 
  n := round((fmax - fmin) / dy) + 1;
  for i := 1 to n do
  begin
    num := fMin + (i - 1) * dy;
    y := yRight - trunc(my * (num - fmin));
    Line(x0 - 3, y, x0 + 3, y);
    str(num:0:1, s);
    if abs(num) > 1E-15 then
      TextOut(x0 + 7, y - TextHeight(s) div 2, s)
  end;
  TextOut(x0 - 10, y0 + 10, '0');
 
  x1 := a;
  while x1 <= b do
  begin
    y1 := F(x1);
    if ((x1 >= 1) and (x1 <= 2.5)) then
    begin
      x := x0 + round(x1 * mx);
      y := y0 - round(y1 * my);
      if (y >= yLeft) and (y <= yRight) then SetPixel(x, y, clBlue);
    end;  
    x1 := x1 + 0.001
  end
end.

Одна из древнейших систем счисления была создана в Китае, а также в Японии. Эта система возникла как результат оперирования с палочками, выкладываемыми для счета на стол или доску. Числа от единицы до пяти обозначались, соответственно, одной, двумя и т.д. палочками, выкладываемыми вертикально, а одна, две, три или четыре вертикальные палочки, над которыми помещалась одна поперечная палочка, означали числа шесть, семь, восемь и девять. (Смотреть таблицу обозначений чисел.)

Первые пять кратных числа 10 обозначались одной, двумя, пятью горизонтальными палочками, а одна, две, три и четыре горизонтальные палочки, к которым сверху приставлялась вертикальная палочка, означали числа 60, 70, 80 и 90. Для обозначения чисел больше 99 использовался позиционный принцип. Число 6789 китайцы записали бы так:

. Обозначения чисел с палочек тесно связано со счетом на пальцах и счетной доске, но применялось оно также и в письменных вычислениях.

Во второй китайской системе счисления для обозначения первых девяти целых чисел или символов (смотреть таблицу обозначений чисел) используют девять различных знаков и одиннадцать дополнительных символов для обозначения первых одиннадцати степеней числа 10. В сочетании с умножением и вычитанием это позволяло записывать любое число меньше триллиона. Если один из символов, обозначающих первые девять целых чисел, стоит перед (при чтении слева направо) символом, означающим степень числа 10, то первое нужно умножить на второе, если же символ одного из девяти первых целых чисел стоит на последнем месте, то это число надлежит прибавить к обозначенному предыдущими символами. В такой системе счисления число 6789 выглядело бы так:

.

Таблица обозначения чисел в Китае ( от 1 – до 900).

1000 -

Записывались цифры числа начиная с больших значений и заканчивая меньшими. Если десятков, единиц, или какого-то другого разряда не было, то сначала ничего не ставили и переходили к следующему разряду. (Во времена династии Мин был введен знак для пустого разряда - кружок - аналог нашего нуля).

Чтобы не перепутать разряды использовали несколько служебных иероглифов, писавшихся после основного иероглифа, и показывающих какое значение принимает иероглиф-цифра в данном разряде.

Если один из символов, обозначающих первые девять целых чисел, стоит перед (при чтении слева направо) символом, означающим степень числа 10, то первое нужно умножить на второе, если же символ одного из девяти первых целых чисел стоит на последнем месте, то это число надлежит прибавить к обозначенному предыдущими символами.