сті, яка є Дуже розрідженою. Цього недоліку можна позбутіся зберігаючі Тільки Важливі сектори даної матріці.
Список використаної літератури
1. Гліб МЛ. Кузка O.I. Завдання для найбільш Потік (методичні вказівки). - Ужгород 2007.
. Навчальний посібник для студентов факультету кібернетики «Теорія графів» - 1998.
3. Вілсон Р. Введення в теорію графів. - М., 1977.
. Оре О. Теорія графів. - М., 1980.
. Головіна Л.І. Графи і їх застосування. Математика в школі, 1965, № 3.
. Нагібін Ф.Ф. Застосування графів для вирішення логічних завдань. Математика в школі, 1964, № 3.
. Шедіви Я. Рішення логічних задач за допомогою графів. - Математика в школі, 1967, № 6.
8. Скляр І.В. Теорія графів у школі: задачі: посібник / Ірина Скляр.- К.: Шкільний світ, 2010. - 128с.
. Збірник науково-популярних статей «У мире математики» Випуск 11. - 1980.
Додатки
Текст програми
program Project1;, in «Unit1.pas» {Form1};
{$ R *. res}. Initialize;. CreateForm (TForm1, Form1);. Run;. Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, StdCtrls, Spin, Menus;=class (TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TLabel;: TSpinEdit;: TStringGrid;: TLabel;: TSpinEdit; : TOpenDialog;: TSaveDialog;: TEdit;: TLabel;: TMemo;: TLabel;: TStringGrid;: TCheckBox; FormCreate (Sender: TObject); robSpinEditChange (Sender: TObject); misSpinEditChange (Sender: TObject); N3Click (Sender: TObject ); N2Click (Sender: TObject); N6Click (Sender: TObject);
{Private declarations}
{Public declarations};=array [- 1 .. 100, - 1 .. 100] of integer;=^ Vet;=record: integer;: PVet;;: TForm1;, FMatr, Matr: TMatr;, m, nr, nm: integer;, QLast: Pvet; DateUtils;
{$ R *. dfm} showNums; i: integer; Form1 doi:=1 to Form1.misSpinEdit.Value do.Cells [0, i]:=«Місце» + inttostr (i);; i: =1 to Form1.robSpinEdit.Value do.Cells [i, 0]:=«Роб.» + inttostr (i);;;; TForm1.FormCreate (Sender: TObject);;; TForm1.robSpinEditChange (Sender: TObject);. ColCount:=robSpinEdit.Value +1;;; TForm1.misSpinEditChange (Sender: TObject);. RowCount:=misSpinEdit.Value +1;;; TForm1.N3Click (Sender: TObject); f: TextFile;, j: integer; SaveDialog1.Execute then (f, SaveDialog1.FileName); (f); (f, misSpinEdit.Value, «», robSpinEdit.Value); i:=1 to misSpinEdit.Value doj:=1 to robSpinEdit.Value do (f, daniStringGrid.Cells [j, i]);;; (f);;; TForm1.N2Click (Sender: TObject); f: TextFile;, nm, i, j: integer;: string; OpenDialog1.Execute then (f, OpenDialog1.FileName); (f); (f, nm, nr);. Value:=nr;. Value:=nm; i:=1 to nm doj:=1 to nr do ( f, s);. Cells [j, i]:=s;;; (f);;; getData; i, j, l: integer;: real; Form1 do:=robSpinEdit.Value;:=misSpinEdit.Value ; i:=1 to nm doj:=1 to nr do (daniStringGrid.Cells [j, i], dani [i, j], l); l <> 0 then [i, j]:=0;; ;;; createFirstMatr; i, j: integer;:=nr + nm +1; i:=0 to n doj:=0 to n do [i, j]:=0;;;
/ / 0-rowj:=1 to nm do FMatr [0, j]:=1;
/ / n-coli:=nm +1 to nm + nr do FMatr [i, n]:=1;
/ / danii:=1 to nm doj:=nm +1 to nm + nr do [...
