align="justify"> # include
# include
# include
// Завдання констант.
# define COL 256
# define MAX 50
// Ініціалізація глобальних змінних
int i, y1, y2;
// Функція ініціалізації графічного режиму
void initgr (void)// Тип і ім'я функції
{
int gdriver = DETECT, gmode, errorcode;/* Завдання необхідних змінних */
initgraph (& gdriver, & gmode, В«D: В»);/* Встановлення відеоадаптера в графічний режим */
errorcode = graphresult ();/* Повернення коду помилки і присвоєння його змінної errorcode */
if (errorcode! = grOk)// Перевірка на наявність помилки
{(В«Помилка:% s nВ», grapherrormsg (errorcode)); (В«Для зупину натисніть будь-яку клавішу n");
getch ();
exit (1);
}
}
// Функція побудови графіка вихідного масиву
void graphmas (float V [])// Тип і ім'я функції і аргументу
{
y1 = 3;
y2 = 6;// Визначення початкових координат по горизонтальній осі
setcolor (7);// Завдання кольору
setviewport (20,10,630,235,1);// Створення графічного вікна
rectangle (1,1,610,225);// Позначення меж вікна
line (1,115,610,115);
for (i = 1; i
{(5);//. (y1, (115-V [i-1] * 0.5), y2, (115-V [i] * 0.5));// Побудова графіка1 = y2;
y2 + = 3;// Зсув координат по горизонтальній осі
}
}
// Функція для побудови гістограми і графіка функції Лапласа
void gistfun (float m [], float F [], int k)
{= 23; = 43; (7); (20,236,630,470,1); (1,1,610,225); (i = 1; i <= k; i + +)
{
setfillstyle (1,5);// Завдання типу і кольору заповнення
bar (y1, 115, y2, (115-m [i] * 50))/* Побудова гістограми відповідно до масштабу */
setcolor (RED); (y1, 115, y2, (115-m [i] * 50)); (GREEN); (i! = k) (y1, (115-F [ i] * 50), y2, (115-F [i +1] * 50))/* Побудова графіка функції Лапласа */
y1 = y2;
y2 + = 20;
}
}
void main (void)// Основна функція
{
clrscr ();
// Ініціалізація необхідних змінних
