ання сітки сірим кольором-> Canvas-> Pen-> Color = clDkGray; (i = 0; i
} (i = 0; i
{-> Canvas-> MoveTo (x_c-5, y_c-i * ky); -> Canvas-> LineTo (Width, y_c-i * ky);
/* if ((i% 4) == 0) */Form2-> Canvas-> TextOutA (x_c-30, -5 + y_c-i * ky, AnsiString (i/ 4.0));
}
switch (g_type)// В залежності від обраного графіка, креслимо графік
{
caseNONE:// Не вказаний тип
{//Нічого не робимо
}
break;
caseSOL:// Графік рішення
{
Form2-> Canvas-> Pen-> Color = clRed;// Червоним кольором
for (i = 0; i
} -> Canvas-> Pen-> Color = clBlack;
}
break;
caseAPR:// Графік апроксимуючої функції
{
Form2-> Canvas-> Pen-> Color = clRed;// Червоним кольором (i = 0; i
} -> Canvas-> Pen-> Color = clBlack;
}; MIS:// Похибка
{-> Canvas-> Pen-> Color = clNavy;// Графік апроксимації синім (i = 0; i
}
// Графік апроксимації з урахуванням похибки разовим
Form2-> Canvas-> Pen-> Color = clFuchsia; (i = 0; i
} -> Canvas-> Pen-> Color = clBlack;
};
}
}
// ---------------------------------------- -----------------------------------
Вміст Unit2.h
// Unit2.h
// ---------------------------------------- -----------------------------------
# ifndef Unit2H
# define Unit2H
// ---------------------------------------- -----------------------------------
# include
# include
# include
# include
// ---------------------------------------- -----------------------------------
classTForm2: publicTForm// Визначення класу форми для виведення графіка
{
__published: // IDE-managed Components: // User declarations: // User declarations
__fastcall TForm2 (TComponent * Owner);
};
// ----------------...
