Giáo trình Toán rời rạc Phần phụ lục

procedure TForm2.FormDestroy(Sender: TObject);

begin

pic.FreeImage;

end;

 

procedure TForm2.Rename1Click(Sender: TObject);

begin

G.DSDinh[DinhDown].Ten:=inputbox('Rename','Name:',G.DSDinh[DinhDown].Ten);

HienThamSoCung(G);

VeDoThi(G,Pic,imagelist1);

DrawPaint(PaintBox1,Pic);

FileChanged:=True;

end;

 

procedure TForm2.Exit1Click(Sender: TObject);

begin

close;

end;

 

doc23 trang | Chia sẻ: thienmai908 | Lượt xem: 1300 | Lượt tải: 0download
Bạn đang xem trước 20 trang nội dung tài liệu Giáo trình Toán rời rạc Phần phụ lục, để xem tài liệu hoàn chỉnh bạn click vào nút DOWNLOAD ở trên
gDi;St,So:string; TimeNow:TDateTime; SubPic:Tbitmap; begin If TimCacDinhKichHoat(G,D1,D2)=2 then begin If DuongDiNganNhat(G,D2,D1,DuongDi,ChiPhi) then begin SubPic:=Tbitmap.Create; Imagelist2.GetBitmap(0,SubPic); x:=G.DSDinh[DuongDi[0]].ToaDo.x; y:=G.DSDinh[DuongDi[0]].ToaDo.y; Pic.Canvas.Brush.Style:=BSclear; Pic.Canvas.BrushCopy(rect(x,y-SubPic.Height,x+Subpic.Width,y),SubPic,Rect(0,0,SubPic.Width-1,SubPic.Height-1),RGB(255,255,255)); for i:=0 to high(DuongDi)-1 do begin Veline(G.DSDinh[DuongDi[i]].ToaDo,G.DSDinh[DuongDi[i+1]].ToaDo, TrongSo(DuongDi[i],DuongDi[i+1]).Gia,Pic,RGB(255,0,0),100000); TimeNow:=Time; repeat Application.ProcessMessages; until (TimeNow+100000)>Time; end; St:='Duong di Tu ' + G.DSDinh[D1].Ten + ' Den ' + G.DSDinh[D2].Ten +' la:' + Cr + Lf; for i:=0 to high(DuongDi)-1 do begin st:=st+G.DsDinh[DuongDi[i]].Ten +' --> '; Vecung(Pic,G.DSDinh[DuongDi[i]].ToaDo,G.DSDinh[DuongDi[i+1]].ToaDo, TrongSo(DuongDi[i],DuongDi[i+1]).Gia,True,RGB(255,0,0),RGB(0,0,255)) //Veline(G.DSDinh[DuongDi[i]].ToaDo,G.DSDinh[DuongDi[i+1]].ToaDo, // TrongSo(DuongDi[i],DuongDi[i+1]).Gia,Pic,RGB(255,0,0),10000) end; st:=st+G.DsDinh[DuongDi[high(DuongDi)]].Ten+ cr+lf; Str(ChiPhi:0:10,So);Catzerothua(So); St:=St+ 'Voi chi phi la: ' + So; Pic.Canvas.BrushCopy(rect(x,y-SubPic.Height,x+Subpic.Width,y),SubPic,Rect(0,0,SubPic.Width-1,SubPic.Height-1),RGB(255,255,255)); x:=G.DSDinh[DuongDi[high(DuongDi)]].ToaDo.x; y:=G.DSDinh[DuongDi[high(DuongDi)]].ToaDo.y; Pic.Canvas.Brush.Style:=BSclear; Imagelist2.GetBitmap(1,SubPic); Pic.Canvas.BrushCopy(rect(x,y-SubPic.Height,x+Subpic.Width,y),SubPic,Rect(0,0,SubPic.Width-1,SubPic.Height-1),RGB(255,255,255)); SubPic.Free; DrawPaint(PaintBox1,Pic); showmessage(st); end else begin Showmessage('Khong co duong di Tu ' + G.DSDinh[D1].Ten + ' Den ' + G.DSDinh[D2].Ten); end; end; end; procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean); var TraLoi:Word; begin If FileChanged then begin TraLoi:=MessageDlg('File changed. Do you want to save?',mtConfirmation ,[mbYes,mbNo,mbCancel],0); If TraLoi=mrYes then Form2.Save1Click(Sender) else If TraLoi=mrCancel then begin CanClose:=false; exit;end; end; pic.FreeImage; DeleteGraph(G); end; procedure TForm2.FormDestroy(Sender: TObject); begin pic.FreeImage; end; procedure TForm2.Rename1Click(Sender: TObject); begin G.DSDinh[DinhDown].Ten:=inputbox('Rename','Name:',G.DSDinh[DinhDown].Ten); HienThamSoCung(G); VeDoThi(G,Pic,imagelist1); DrawPaint(PaintBox1,Pic); FileChanged:=True; end; procedure TForm2.Exit1Click(Sender: TObject); begin close; end; procedure TForm2.Delete1Click(Sender: TObject); Var i,N,Start:integer; Index:Array of integer; begin For i:=DinhDown to G.SoDinh-2 do G.DSDinh[i]:=G.DSDinh[i+1]; G.SoDinh:=G.SoDinh-1; Setlength(G.DSDinh,G.SoDinh); Setlength(Index,G.SoCanh); N:=0;Start:=-1; For i:=0 to G.SoCanh-1 do If (G.DSCanh[i].DinhDau=DinhDown)or(G.DSCanh[i].DinhCuoi=DinhDown) then begin If Start=-1 then Start:=N; end else begin Index[N]:=i; N:=N+1; end; If Start-1 then begin G.SoCanh:=N; For i:=Start to G.SoCanh-1 do G.DSCanh[i]:=G.DSCanh[Index[i]]; For i:=0 to G.SoCanh-1 do With G.DSCanh[i] do begin If DinhDau>DinhDown then DinhDau:=DinhDau-1; If DinhCuoi>DinhDown then DinhCuoi:=DinhCuoi-1; end; Setlength(G.DSCanh,G.SoCanh); end; Setlength(Index,0); HienThamSoCung(G); VeDoThi(G,Pic,imagelist1); DrawPaint(PaintBox1,Pic); FileChanged:=True; end; procedure TForm2.DeleteAll1Click(Sender: TObject); begin G.SoDinh:=0;G.SoCanh:=0; Setlength(G.DSDinh,0);Setlength(G.DSCanh,0); Pic.Canvas.Brush.Style:=bsSolid; Pic.Canvas.Pen.Style:=psSolid; Pic.Canvas.Brush.Color:=rgb(255,255,255); Pic.Canvas.Pen.Color:=rgb(255,255,255); Pic.Canvas.FillRect(Rect(0,0,Pic.Width,Pic.Height)); DrawPaint(PaintBox1,Pic); FileChanged:=true; end; procedure TForm2.Save1Click(Sender: TObject); var F:textfile; i:integer; begin SaveDialog1.DefaultExt:='*.GRD'; SaveDialog1.Filter:='Graph data file (*.GRD)|*.GRD'; If not SaveDialog1.Execute then exit; AssignFile(F,SaveDialog1.FileName); Rewrite(F); Try Writeln(f,G.Sodinh,' ',G.Socanh); For i:=0 to G.SoDinh-1 do Writeln(F,G.DSDinh[i].ToaDo.x,' ',G.DSDinh[i].ToaDo.y,' ',G.DSDinh[i].Ten); For i:=0 to G.SoCanh-1 do Writeln(F,G.DSCanh[i].DinhDau,' ',G.DSCanh[i].DinhCuoi,' ',G.DSCanh[i].TrongSo.Gia); except Showmessage('Writting error'); end; CloseFile(F); FileChanged:=false; end; procedure TForm2.Open1Click(Sender: TObject); Var F:TextFile; i:integer; begin OpenDialog1.DefaultExt:='*.GRD'; OpenDialog1.Filter:='Graph data file (*.GRD)|*.GRD'; If not OpenDialog1.Execute then exit; AssignFile(F,OpenDialog1.FileName); ReSet(F); Try Readln(f,G.Sodinh,G.Socanh); Setlength(G.DSDinh,G.SoDinh); Setlength(G.DSCanh,G.SoCanh); For i:=0 to G.SoDinh-1 do begin Readln(F,G.DSDinh[i].ToaDo.x,G.DSDinh[i].ToaDo.y,G.DSDinh[i].Ten); G.DSDinh[i].Ten:=trimleft(G.DSDinh[i].Ten); G.DSDinh[i].MucKichHoat:=0; end; For i:=0 to G.SoCanh-1 do Readln(F,G.DSCanh[i].DinhDau,G.DSCanh[i].DinhCuoi,G.DSCanh[i].TrongSo.Gia); except DeleteGraph(G); showmessage('Error struct file'); CloseFile(F); Self.Caption:='Graph Algorithm - New document'; VeDoThi(G,Pic,imagelist1); DrawPaint(PaintBox1,Pic); exit; end; CloseFile(F); VeDoThi(G,Pic,imagelist1); DrawPaint(PaintBox1,Pic); Filename:=OpenDialog1.FileName; Self.Caption:='Graph Algorithm - ' + Filename; FileChanged:=False; end; procedure TForm2.SpeedButton1Click(Sender: TObject); var D1,D2,ChiSo,i:integer; begin TimCacDinhKichHoat(G,D1,D2); If Not SpeedButton1.Down then begin Timcung(G,D2,D1,ChiSo); for i:=Chiso to G.SoCanh-2 do G.DSCanh[i]:=G.DSCanh[i+1]; G.SoCanh:=G.SoCanh-1; Setlength(G.DSCanh,G.SoCanh); end else begin G.SoCanh:=G.SoCanh+1; Setlength(G.DSCanh,G.SoCanh); With G.DSCanh[G.SoCanh-1] do begin DinhDau:=D2; DinhCuoi:=D1; TrongSo.VoCung:=false; TrongSo.Gia:=0; end; end; HienThamSoCung(G); VeDoThi(G,Pic,imagelist1); DrawPaint(PaintBox1,Pic); end; procedure TForm2.SpeedButton2Click(Sender: TObject); var D1,D2,ChiSo,i:integer; begin TimCacDinhKichHoat(G,D1,D2); If not SpeedButton2.Down then begin Timcung(G,D1,D2,ChiSo); for i:=Chiso to G.SoCanh-2 do G.DSCanh[i]:=G.DSCanh[i+1]; G.SoCanh:=G.SoCanh-1; Setlength(G.DSCanh,G.SoCanh); end else begin G.SoCanh:=G.SoCanh+1; Setlength(G.DSCanh,G.SoCanh); With G.DSCanh[G.SoCanh-1] do begin DinhDau:=D1; DinhCuoi:=D2; TrongSo.VoCung:=false; TrongSo.Gia:=0; end; end; HienThamSoCung(G); VeDoThi(G,Pic,imagelist1); DrawPaint(PaintBox1,Pic); end; procedure TForm2.New1Click(Sender: TObject); begin Filename:=''; FileChanged:=false; DeleteGraph(G); VeDoThi(G,Pic,imagelist1); DrawPaint(PaintBox1,Pic); end; procedure TForm2.ExportPicturefile2Click(Sender: TObject); Var T:TJpegimage; begin SaveDialog1.DefaultExt:='*.JPG'; SaveDialog1.Filter:='Bitmap image (*.BMP)|*.BMP|Jpeg image (*.JPG)|*.JPG'; SaveDialog1.FilterIndex:=2; If not SaveDialog1.Execute then exit; case SaveDialog1.FilterIndex of 1:{BMP} Pic.SaveToFile(SaveDialog1.FileName); 2:{Jpeg} begin T:=TJpegimage.Create; T.Assign(Pic); try T.SaveToFile(SaveDialog1.FileName); finally T.Free end; end; end end; end. Chương trình chính cài đặt như sau: program Project1; uses Forms, Func_DoThi in 'Func_DoThi.pas', Unit2 in 'Unit2.pas' {Form2}, {$R *.res} begin Application.Initialize; Application.CreateForm(TForm2, Form2); Application.Run; end.

Các file đính kèm theo tài liệu này:

  • docGiao trinh Toan roi rac - Phu luc 1.doc