thuat toan ve string
thuat toan ve string
... S1,S2,S : String; L1,L2,i,j,vt,d: Byte; Procedure BonPhepCoBan; Function Dodai(S : String) : Byte; Begin Dodai := Ord(S[0]); End; Function Noi(S1,S2 : String) : String; Var i : Byte; S : String; ... Saochep(S : String; vitri,dodai : Byte) : String; Var S1 : String; Begin S1 := ''; For i:=1 to dodai do S1 := S1 + S[vitri+i-1]; Saochep := S1; End; Begin _________________ D÷ li...
Ngày tải lên: 29/09/2013, 12:10
Giới thiệu thuật toán vẽ và tô các đường cơ bản
... dạng................................................................................................51 3.7. Phép biến đổi Affine ngược ( The inverse of an Affine transformation).......52 3.8. Một số tính chất của phép biến đổi affine ......................................................53 ... Dương Anh Đức, Trần Đan Thư, Lý Quốc Ngọc. Giáo trình Nhập môn đồ họa & xử lý ảnh.1995. - VERA B...
Ngày tải lên: 27/08/2012, 09:37
Các thuật toán vẽ đường
... MÁY TÍNHDương Anh Đức, Lê Đình Duy Các thuật toán vẽ đường 1/22CCaáùcc tthhuuaậätt ttooaáùnn vveẽõ đđưươờønnggDDaẫãnn nnhhaậäpp• Giả sử tọa độ các điểm nguyên sau khi xấp xỉ đốitượng thực ... độ.12387654 ĐỒ HỌA MÁY TÍNHDương Anh Đức, Lê Đình Duy Các thuật toán vẽ đường 2/22TThhuuaậätt ttooaáùnn vveẽõ đđưươờønngg tthhaẳúnngg• Xét đoạn thẳng có hệ số góc 10 << mvà 0>Dx.• Với các ... tr...
Ngày tải lên: 27/08/2012, 09:54
Thuật toán vẽ đường tròn trong lập trình
... Point wmin, Point wmax){ int thoat ,ve; double m;thoat=0; ve= 1;11 while(thoat==0){ if((ma(A) | ma(B)==0) thoat=1;else if((ma(A)&ma(B))!=0){thoat=1; ve= 0}else { if(m(A)==0) hoanvi(&A,&B);if(A.x==B.x){ ... A.x+(wmin.y-A.y)/m;A.y=wmin.y; }elseif(A.y>wmax.y){ A.x=A.x+(wmax.y-A.y)/m; 12 A.y=wmax.y; }}}}//end whileif (ve) veduongthang(A,B);}2.Thuật toán chia nhị phânChia mặt phẳ...
Ngày tải lên: 27/08/2012, 11:20
Artical - Neuron Network - Một thuật toán về huấn luyện mạng Neuron Network
... [12], liên quan mật thiết với lĩnh vực kỹ thuật robot. Trong thí nghiệm, vector đặc trưng của ảnh và bốn vector vclj như sau: v={1,2,1,0,1}; vcl1={1,1,2,1,0}; vcl2={0,1,1,2,1}; ... Algorithm for Fast Convergence in Training Neural Networks. 2001. IEEE. &&5. Deniz Erdogmus, Jose C.Principe. Generalized Information Potential Criterion for Adaptive System Training. 2002. ... Panajotis Ag...
Ngày tải lên: 04/10/2012, 11:52
GA BD HSG: Chuyên đề thuật toán về số
... đầu). Chương trình: var x : string; (************************************************) function doixung(x : string) : boolean; {hàm kiểm tra xâu đối xứng} var y : string; i : integer; begin y ... từ đó trong các câu sau. Chương trình: var s : string; dem : integer; {Hàm kiểm tra từ đối xứng} function doixung(x : string) : boolean; var y : string; i : integer; begin y := ''; fo...
Ngày tải lên: 23/07/2013, 01:27
thuat toan ve mang 2 chieu
... A[i,j]=1, ngợc lại nếu không có thì A[i,j]=0 Sau đây là trang màn hình kết quả chạy chơng trình : Bai toan tu danh sach , tao ma tran ke A(N,N) N<10 Nhap N = 4 Nhap danh sach . Het danh sach thi ... 32 1 26 44 20 21 39 8 33 2 27 45 46 15 40 9 34 3 28 Bài 7: Cho ma trận số thực A(N,N) hãy thay vec tơ dòng chứa phần tử lớn nhất của ma trận bởi véc tơ tổng của 2 véc tơ : véc tơ thứ nhất là...
Ngày tải lên: 29/09/2013, 12:10
thuat toan ve kieu tep
... Hoten : String[ 25]; Toan, Ly,Hoa,TBM : Real; End; Lop = File of Hocsinh; Var L : Lop; Hoặc khai báo theo cách 2 : Var L : File of Record Hoten : String[ 25]; ________ Thuật toán về Kiểu File Toan, Ly,Hoa,TBM ... := 18; biến Toan := 10.0; biến Van := 8.0; biến TBMon := (Toan+ Van)/2; Sau đó để ghi các giá trị trên vào File dùng các lệnh : Assign(F,TD1.TXT); Rewrite(F); Writeln(F,Hoten,T...
Ngày tải lên: 29/09/2013, 12:10