Метод Крамера (правило Крамера) — способ решения систем линейных алгебраических уравнений с числом уравнений равным числу неизвестных с ненулевым главным определителем матрицы коэффициентов системы (причём для таких уравнений решение существует и единственно).
Листинг:
- void CProgramDlg::OnPaint()
{
if (IsIconic())
{
CPaintDC dc(this); // контекст устройства для рисования
SendMessage(WM_ICONERASEBKGND, reinterpret_cast<WPARAM>(dc.GetSafeHdc()), 0);
// Выравнивание значка по центру клиентского прямоугольника
int cxIcon = GetSystemMetrics(SM_CXICON);
int cyIcon = GetSystemMetrics(SM_CYICON);
CRect rect;
GetClientRect(&rect);
int x = (rect.Width() - cxIcon + 1) / 2;
int y = (rect.Height() - cyIcon + 1) / 2;
// Нарисуйте значок
dc.DrawIcon(x, y, m_hIcon);
}
else
{
CClientDC dc(this);
GetClientRect(&rc);
dc.FillSolidRect(&rc, RGB(255, 255, 255));
cf = RGB(255, 255, 255);
COLORREF ck= RGB(50, 70, 120);
int cxClient, cyClient;
cyClient = rc.bottom;//высота
cxClient = rc.right;//ширина
hPenOxy = CreatePen(PS_SOLID, 4, ck);//создаем кисть цветом "crOxy"
hOldPen = (HPEN)SelectObject(dc, hPenOxy);
int XX[100], YY[100];
int n = 12;
int r = 200;
for (k = 0; k <= n; k++)
{
XX[k] = cxClient / 2 + r*sin(pi * 2 / n*k);
YY[k] = cyClient / 2 + r*cos(pi * 2 / n*k);
}
for (k = 0; k <= n; k++)
//k = 0;
{
dc.MoveTo(XX[k], YY[k]);
for (i = 0; i <= n; i++)
{
dc.LineTo(XX[i], YY[i]);
dc.MoveTo(XX[k], YY[k]);
}
}
SelectObject(dc, hOldPen);
DeleteObject(hPenOxy);
CDialog::OnPaint();
}
} 
