"justify">. Нефедов В.М., Осипова В.А. Курс дискретної математики. - М.: МАІ, 2010 р.
Додаток А
Лістинг програми
дорога місто досяжність інтерфейс
unit Unit1;// модуль форми 1 В«Перевірка досяжності з міста А до всіх інших доріг у змінною системі дорігВ»
interface// стандартні модулі, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Grids, ExtCtrls, ComCtrls, Menus, ExtDlgs, Spin, XPMan;
type = class (TForm)// типи об'єктів графічного інтерфейсу і процедури модуля
Image1: TImage;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;
OpenDialog1: TOpenDialog;: TSaveDialog;: TMenuItem;
PopupMenu1: TPopupMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TGroupBox;: TPageControl;: TTabSheet;: TButton;: TButton;: TButton;: TButton;: TGroupBox;: TButton;: TButton ;: TButton;: TXPManifest;: TGroupBox;: TLabel;: TLabel;: TSpinEdit;: TLabel;: TSpinEdit;: TButton;: TMenuItem;: TLabel;: TTabSheet;: TStringGrid;: TButton;: TButton;: TSpinEdit;: TLabel;: TTabSheet;: TLabel;: TStringGrid;: TSpinEdit;: TButton;: TButton; FormCreate (Sender: TObject); Button2Click (Sender: TObject); Image1MouseMove (Sender: TObject; Shift: TShiftState; X,: Integer); Image1MouseUp (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); redrow; Button1Click (Sender: TObject); Button9Click (Sender: TObject); Button5Click (Sender: TObject); Button4Click (Sender: TObject); Button10Click (Sender: TObject); N5Click (Sender: TObject); N2Click (Sender: TObject); N3Click (Sender: TObject); N4Click (Sender: TObject); StringGrid3KeyPress (Sender: TObject; var Key: Char); Edit1Change (Sender : TObject); Image1MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); N7Click (Sender: TObject); N8Click (Sender: TObject); N9Click (Sender: TObject); Button6Click (Sender: TObject ); Button7Click (Sender: TObject); Button8Click (Sender: TObject); N10Click (Sender: TObject); Button11Click (Sender: TObject); StringGrid3KeyUp (Sender: TObject; var Key: Word;: TShiftState); vvChange (Sender: TObject ); isvChange (Sender: TObject); N6Click (Sender: TObject); StringGrid3Set (Sender: TObject; ACol,: Integer; const Value: String); Button3Click (Sender: TObject); Button12Click (Sender: TObject); IzverChange (Sender : TObject);
{Private declarations}
{Public declarations}; = record
x, y: Integer;: Integer;
end;: of vv;: array of array of integer; Math, Unit2, Unit3, Unit4;
{$ R *. dfm} findver (x, y, rad: integer): Integer;// знаходить вершину в графі на яку вказали зараз.
var i: Integer;: = 0; i: = 1 t...
