atr;
} vivod_matr (int ** matr, int k, HWND hwndEdit)
{buf [256]; (int i = 0; i
{(int j = 0; j
{(buf, "% d", matr [i] [j]); (hwndEdit, EM_REPLACESEL, 0, (LPARAM) buf);
} (hwndEdit, EM_REPLACESEL, 0, (LPARAM) " r n");
}
} save_matr (char file_name [], int ** matr, int k)
{* f_out; _out = fopen (file_name, "w"); (f_out! = NULL)
{(f_out, "Матриця зв'язності n");
for (int i = 0; i
{(int j = 0; j
} (f_out);
}
} del_spis (CepCont * BegSpis)
{* sp = NULL; (BegSpis! = NULL)
{= BegSpis-> adres; BegSpis; = sp;
}
} CALLBACK MyDlgProc (HWND hwnd, UINT msg, WPARAM wp, LPARAM lp)
{double pi = 3.14159; (msg)
{WM_INITDIALOG: break; WM_COMMAND: (LOWORD (wp))
{IDCANCEL:
{_spis; _matr; EndDialog (hwnd, IDCANCEL);
} IDOPEN:
{initialdir [MAX_PATH +1]; (initialdir, MAX_PATH +1); (& of, 0, sizeof (of));. lStructSize = sizeof (of);. lpstrFilter = " Текстові файли (*. txt) 0 *. txt 0 "" Всі файли (*. *) 0 *. * 0 "; відкриття файлу "; (GetOpenFileName (& of)! = 0)
{(GetDlgItem (hwnd, IDC_EDIT1), 0); (GetDlgItem (hwnd, IDC_EDIT2), 0); (hwnd, 0, 0); (BegSpis! = NULL)
{_spis (BegSpis); = NULL;
} (matr! = NULL)
{_matr (matr, k); = NULL;
} ((BegSpis = vvod_file (file_name)) == NULL)
{(hwnd, "Файл не існує, або містить не вірні дані", "Помилка!", 0);
break;
}
};
} IDSPIS:
{(BegSpis! = NULL)
{(GetDlgItem (hwnd, IDC_EDIT1), 0); _spis (BegSpis, GetDlgItem (hwnd, IDC_EDIT1));
}
else MessageBox (hwnd, "Не завантажені вихідні дані", "Помилка!", 0);
break;
} IDMATRIX:
{(BegSpis! = NULL)
{(matr == NULL)
{= kol_elem (BegSpis); = form_matr (BegSpis, k); _matr (matr, k, GetDlgItem (hwnd, IDC_EDIT2));
}
} MessageBox (hwnd, "Не завантажені вихідні дані", "Помилка!", 0);
break;
} IDGRAF:
{(matr! = NULL)
