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
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