n, TShiftState Shift, int X, int Y)
{= true; -> Canvas -> MoveTo (X, Y);
}
{= false;
}
{-> Canvas-> FillRect (Rect (0,0, Image1-> Width, Image1-> Height));
}
{(int a = 0; a <10; a + +) (int b = 0; b <10; b + +) [a] [b] = 0;
for (int a = 0; a <10; a + +)// прохід 10х10 по квадратикам 30х30
{int n = 30; k = 0; (int b = 0; b <10; b + +)
{(int i = k; i
int m = l +30;// прохід по квадрату 30х30
for (int j = l; j
{(Form1-> Image1-> Canvas-> Pixels [i] [j] == clBlack)
{[a] [b] = 1;
}
};
} = n; = k +30;
}
} = 0; (int a = 0; a <10; a + +) {(int b = 0; b <10; b + +)
{= S + X [a] [b] * W [a] [b];
}
} (S> 0)
{> MessageBox ("Це трикутник!", "Повідомлення", MB_ICONINFORMATION); = 1;
} {> MessageBox ("Це коло!", "Повідомлення", MB_ICONINFORMATION); = 0;
}
}
{(y == 1) g = -1; (y == 0) g = 1; (int a = 0; a <10; a + +) {(int b = 0; b < ; 10; b + +)
{[a] [b] = W [a] [b] +1/2 * g * X [a] [b];
}
} (int i = 0; i <10; i + +) {(int j = 0; j <10; j + +) {-> Cells [j] [i] = X [i] [j];
}
}
}
// ---------------------------------------- -----------------------------------
