Рефераты по теме Программное обеспечение

Реферат Работа с графами скачать бесплатно

Скачать реферат бесплатно ↓ [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