Рефераты по теме Программное обеспечение
Реферат Работа с графами скачать бесплатно
Скачать реферат бесплатно ↓ [0 B]
Текст реферата Работа с графами
unit UMain;interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, ExtCtrls, StdCtrls, Buttons;
type
TFormMain = class(TForm)
Pole: TPanel;
MainMenu1: TMainMenu;
MenuFirst: TMenuItem;
N1: TMenuItem;
MenuSecond: TMenuItem;
MenuThree: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
edLine: TEdit;
btStart: TButton;
lbAnswer2: TLabel;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
OpenDialog: TOpenDialog;
SaveDialog: TSaveDialog;
N13: TMenuItem;
N12: TMenuItem;
N11: TMenuItem;
pnGraf: TPanel;
lbNd: TLabel;
lbKd: TLabel;
lbCaption: TLabel;
edNd: TEdit;
edKd: TEdit;
btOk: TButton;
btExit: TButton;
mmGraf: TMemo;
lbFirst: TLabel;
Button1: TButton;
lbAnswer: TLabel;
procedure N3Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure btStartClick(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure btExitClick(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure btOkClick(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure rename1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TypeVector =array[1..20] of integer;
TypeParametr =array[1..20] of string[10];
TTabl =array[1..20,1..5] of integer;
TUsel=Record
Num:integer;
Ts:string[5];
Nts:string[6];
days:integer;
Graf_Num:integer;
end;
TDuga=Record
ND:integer;
KD:integer;
end;
TFileUsel=file of TUsel;
TFileDuga=file of TDuga;
var
OpenFile,FromAdd,FromDel,OpenLibUsel,Pusto :Boolean;
FormMain :TFormMain;
stroka,sezon :string;
long_stroka,ksl,kvozv,kts,KolD :integer;
UV :TypeVector;
Tabl :TTabl;
price1,Q :integer;
FileUsel: TFileUsel;
Usel:TUsel;
Duga:Tduga;
FileDuga:TfileDuga;
D:array[1..30] of TDuga;
Us:array[1..30] of