... người con được hưởng số tiền là 9 902 490 255 được chia theo tỉ lệ giữa người con thứ nhất và người con thứ hai là 2 :3; giữa người con thứ hai và người con thứ ba là 4 : 5; giữa người con thứ ... AH.I. Gọi BI là phân giác trong cùa·ABC. Tính BI1. Tính chất đường phân giác trong tam gác BD DCAB ACBD AB BD ABDC AC DC DB AC AB=⇔ = ⇒ =+ +2. Định nghĩa, tinh chất hình chữ nhật, ... của góc B cắt Ac tai D.a) Tính độ dài của đoạn thẳng BD.b) Tính tỉ số diện tích của các tam giác ABD và ABC.c) Tính diện tíach tam giác ABD. Giải: Qua A kẻ đường thẳng song song với BD cắt...
... bBài 7: (2 điểm):Biết rằng ngày 01/01/1992 là ngày Thứ T (Wednesday) trong tuần. Cho biết ngày01/01/2055 là ngày thứ mấy trong tuần ? (Cho biết năm 2000 là năm nhuận).Bài 8: (2 điểm):Cho MA, ... cm và AC= 7,62 cm. a) HÃy tính độ dài của đờng cao BH, đờng trung tuyến BM và đoạn phân giáctrong BD của góc B ( M và D thuộc AC).b) Tính gần đúng diện tích tam giác BHD.Bài 10: (2 điểm):Tìm...
... Trờng THPT Đề thi chọn học sinh giỏi khối 11 THPT Gia Viễn B Môn: Toán.(Đề gồm 1 trang) Năm học: 2006 2007. ... lớn nhất của biểu thức: 222222225122512251acaccbcbbabaP++++++++=. Hết đáp án đề thi chọn học sinh giỏi khối 11 THPT 2) Khi 030=, ta có diện tích hình chữ nhật ABCD là 21cossin22=aS. ... = xảy ra cba==. 211131111++++cbacabcab. Dấu = xảy ra cba==.Kết hợp với giả thi t ta có đợc: 200711131011131522+++++cbacbahay 56021111++cba. Dấu...
... mảng A[] để lu các số trong tệp 1+ Dùng mảng B[] để lu các số trong tệp 2+ Lấy từng phần tử Xi trong A[], so sánh với lần lợt từng phần tử Yj trong B[]. Nếu Xi có trong B[] thì đem Xi ... lớn trong một khoảng thời gian rất nhỏ, ta sử dụng kỹ thuật đánh dấu phần tử.Ta cần chú ý đến một giả thi t quan trọng trong bài toán đặt ra là các phần tử đôi một khác nhau, nghĩa là trong ... xếp tăng dần.Chơng trình mẫu:const fi='sap1.inp'; fo='sap2.out';type mmcb=array[1 32766] of boolean;var f:text; n:word; b:mmcb; ti:longint;procedure doc;var i,x:word;beginCTT...
... nhất từ xp tới đUses Crt;Const Max = 100; Fi = 'Duongdi.inp';Type Ta = Array[1 Max,1 Max] of Record h : Word;tg : Byte; End; Dau = Array[1 Max] of Boolean;Var N,xp,t : Integer; ... Crt;Const Max = 100; Fi = 'duongdi.inp';Type Ta = Array[1 Max,1 Max] of Integer; Re = Record t : Byte; h : Word; End; Nhan = Array[0 Max] of Re; Dau = Array[1 Max] of Boolean;Var ... . Sau đây là 2 thuật toán giúp tránh tìnhtrạng đó trong nhiều đồ thị.I / Thuật toán Di jsktra ( gán nhÃn ) :T tởng của thuật toán là trong quá trình xây dựng đờng đi từ xp tới đ ,luôn kết...
... Crt;Const Max = 100; Fi = 'duongdi.inp';Type Ta = Array[1 Max,1 Max] of Integer; Re = Record t : Byte; h : Word; End; Nhan = Array[0 Max] of Re; Dau = Array[1 Max] of Boolean;Var ... nhất từ xp tới đUses Crt;Const Max = 100; Fi = 'Duongdi.inp';Type Ta = Array[1 Max,1 Max] of Record h : Word;tg : Byte; End; Dau = Array[1 Max] of Boolean;Var N,xp,t : Integer; ... tới j là D[i,j] rõ ràng là đại lợng nhỏ nhất trong các tổng : D[i,k] + D[k,j] trong đó k là mọi đỉnh trung gian ( con đờng đi từ i tới j sẽ đi qua k ).Procedure DgdiFB;Var i,j,k : Integer;Begin_______________________Phần...
... End; Function CoNoi : Boolean; Var j : Byte; Begin For j:=1 to h do If G[x,A[j]]=1 then Begin CoNoi := True; Exit; End; CoNoi := False; End; Begin For x:=1 to N do If Khongthuoc then ... Inc(A[T[i].x+Di[k],T[i].y+Dj[k]]); End;Function Boduoc(i : Byte) : Boolean; Var k,u,v : Byte; Begin Boduoc := True; If A[T[i].x,T[i].y]<=1 then Begin Boduoc := False; Exit; End; For k:=1 ... ',k, ' phan tu .'); {Tong := Tong +Dem;} Break;{ CHI TIM TAP NHAN IT PHAN TU NHAT } End; End; { Writeln(F2,'Tong cong co ',Tong,' Tap Nhan . ');} End;30...
... Xây dựng hàm Fibonaci bằng đệ quy và không đệ quyFunction Fibonaci(N : Integer) : Integer;BeginIf N=0 then Fibonaci =1 {N=0 hoặc N=1 là điều kiện B0 }Else If N=1 then Fibonaci =1 Else ... }Else If N=1 then Fibonaci =1 Else {N>=2 là điều kiÖn Bk}Fibonaci := Fibonaci(N-1)+ Fibonaci(N-2)End;Function Fibonaci(N : Integer) : Integer; Var i,p,U0,U1 : Integer;Begini := 0;U0 ... chứa 3 ký tự này có tính chất :Không có 2 xâu con liền nhau bằng nhau .Kiểu đệ quyUses Crt;Const N = 20;Var S : String;Function Kt(S : String) : Boolean; Var i,j : Byte; Begin Kt := True;...
... 5)= 7 Tong gia tri cay khung ngan nhat la 37Uses Crt;Const Fi = 'prim.txt'; Fo = 'prim.out'; Max = 200;Var A : Array[1 Max,1 Max] of Byte; D : Array[1 Max] of Boolean; ... không thuộc Đ , ta gán cho nó nhÃn k(i ,d ) trong đó ilà tên đỉnh thuộc Đ ,kề với k , gần k nhất , còn d là khoảng cách giữa i và k . Nếu trongĐ không tìm đợc đỉnh i kề với k thì gán ... Tàiliệu 11 Chuyên Tin Hà Tây Writeln(f,'Tong gia tri cay khung ngan nhat la ',p); Close(f);End;{ }Procedure TT_Prim;Var Ok : Boolean;Begin SoCanh := 0; Fillchar(nh,sizeof(nh),0);...
... nhất từ xp tới đUses Crt;Const Max = 100; Fi = 'Duongdi.inp';Type Ta = Array[1 Max,1 Max] of Record h : Word;tg : Byte; End; Dau = Array[1 Max] of Boolean;Var N,xp,t : Integer; ... Crt;Const Max = 100; Fi = 'duongdi.inp';Type Ta = Array[1 Max,1 Max] of Integer; Re = Record t : Byte; h : Word; End; Nhan = Array[0 Max] of Re; Dau = Array[1 Max] of Boolean;Var ... . Sau đây là 2 thuật toán giúp tránh tình trạng đó trong nhiều đồ thị.I / Thuật toán Di jsktra ( gán nhÃn ) :T tởng của thuật toán là trong quá trình xây dựng đờng đi từ xp tới đ ,luôn kết...
... {Tong := Tong +Dem;} Break; End; End;{ Writeln(F2,'Tong cong co ',Tong,' Tap on dinh ngoai . ');} End;Procedure Vet_Nhan(i : Byte); Var j : Byte; Function KT_Trong ... ',Tong,' Tap on dinh trong . ');} End;Procedure Tao_Ngoai(i : Byte); Var j : Byte; Function KT_Ngoai (A : Mang1;h : Byte): Boolean; Var x,y : Byte; Function Khongthuoc : Boolean; ... Begin Khongthuoc := False; Exit; End; Khongthuoc := True; End; Function CoNoi : Boolean; Var j : Byte; Begin For j:=1 to h do If G[x,A[j]]=1 then Begin CoNoi := True; Exit; End; CoNoi...