... I: 1) Chứng minh 200, 400, 80 0 nghiệm phơng trình: 4sin2(3x) = 0,5đ Do sin2200, sin2400, sin 280 0 nghiệm phơng trình: 64t 96t + 36t = 0,5đ Hay sin2200, sin2400, sin 280 0 nghiệm phơng trình: X ... sin2200, sin2400, sin 280 0 nghiệm phơng trình: X 6X + 9X = (1) Đặt X = sin 20 , X = sin 40 , X = sin 80 Khi X , X , X ba nghiệm phân biệt phơng trình (1), theo định lý Vi-et ta có: X + X + X = 6, ... X ) + 54 [ ] 4 A = 27 ( X + X + X ) 2( X X + X X + X X ) 51.6 + 54 = 234 Do A = 1,0đ 117 1 28 0,5đ x = y (1 x ) 2) Hệ cho đợc viết lại là: y = z (1 y ) Kiểm tra thấy x = 1, y = 1, z...
... ti:=meml[0:$46c]; doc; writeln('TG=',(meml[0:$46c]-ti)/ 18. 21 :8: 4); readln; end Nhận xét: Khi N=20000 chơng trình thực 0.05giây Chơng trình chạy nhanh gấp 280 lần so với chơng trình viết theo thuật toán ... đợc dãy số đợc 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; begin CTT ... n write(f,a^[i],' '); close(f); dispose(a); writeln('Thoi gian thu hien ',(meml[0:$46c]-ti)/ 18. 21 :8: 5); readln; end Khi N bé, thuật toán chấp nhận đợc Tuy nhiên, nhiều trờng hợp N lớn, chẳng...
... Writeln('Da xong '); Readln; END Input 81 8 321 123 257 213 527 135 344 315 434 142 355 412 535 231 463 57 643 583 85 3 674 764 686 86 6 785 87 5 631 652 746 OUT Nếu xp=1,d =8 có đờng Nếu xp =8, d=1 có ... Function Min : Byte; Var i,k : Byte; Begin i := 0; For k:=1 to N If (Not DD[k]) and (NH[k].h
... Writeln('Da xong '); Readln; END Input 81 8 321 643 123 257 583 213 527 85 3 135 344 674 315 434 764 142 355 686 412 535 86 6 231 463 785 87 5 631 652 746 OUT Nếu xp=1,d =8 có đờng Nếu xp =8, d=1 có đờng ... Function Min : Byte; Var i,k : Byte; Begin i := 0; For k:=1 to N If (Not DD[k]) and (NH[k].h
... Writeln(F2,'Tong cong co ',Tong,' Tap on dinh ');} End; Procedure Tao_Ngoai(i : Byte); Var j : Byte; Function KT_Ngoai (A : Mang1;h : Byte): Boolean; Var x,y : Byte; Function Khongthuoc : Boolean; ... End; Procedure Tao_Ondinhtrong; Begin Tong := 0; For k:=N downto Begin Dem := 0; FillChar(A,Sizeof(A),0); A[0] := 0; Tao_Trong(1); If Dem>0 then Begin Writeln(F2,k); { Tong := Tong +Dem;} Break; ... PHUSONG.TXT 1 5 2 3 5 PHUSONG.OUT CAU A 10000 01010 10010 00000 01011 CAU B CAU C 1 5 3 Bài : ( Số ổn định trong, ổn định , tập nhân ) Uses Crt; Const Max = 100; Fi = 'OnDinh2.inp'; Fo = 'OnDinh2.out';...
... 11 - Hà Tây Bài chữa Bài : Kiểu đệ quy Uses Crt; Const N = 9; TF = 'hoanvi.txt'; Type TS = String[N]; Var S : TS; d,Lt : Longint; F : Text; T : LongInt Absolute $0000:$046C; Procedure Doi(Var a,b ... xếp số '); QuickSort(Data, 1, Max); Writeln; For i := to Max Write(Data[i] :8) ; Readln; Kiểu không đệ quy Uses Crt; Const MN = 4000; Type cs = MN; Pt = Record ma : Cs; gt : Integer; End; M1 = ... M
... File liệu : PRIM.OUT ( 1, 3)= ( 3, 6)= 10 ( 6, 4)= ( 3, 2)= 12 ( 2, 5)= Tong gia tri cay khung ngan nhat la 37 Uses Crt; Const Fi = 'prim.txt'; Fo = 'prim.out'; Max = 200; Var A : Array[1 Max,1 ... Napdinh1; Begin Fillchar(d,sizeof(d),False); d[1] := True; dd := 1; End; { } Function Min(xj : Byte): Byte; Var xi,p,i : Byte; Begin xi := 0; p := 255; For i:=1 to N If d[i] then ... Phần : Cây - Cây khung ngắn TDH 9/2/2013 9/2/2013 Tàiliệu 11 Chuyên Tin Hà Tây 63 Writeln(f,'Tong gia tri cay khung ngan nhat la ',p); Close(f); End; { } Procedure TT_Prim; Var...
... Dispose(A); Writeln('Da xong '); END Input 81 8 321 123 257 213 527 135 344 315 434 142 355 412 535 231 463 OUT Nếu xp=1,d =8 có đờng Nếu xp =8, d=1 có đờng 57 643 583 85 3 674 764 686 86 6 785 87 5 631 652 746 ... Function Min : Byte; Var i,k : Byte; Begin i := 0; For k:=1 to N If (Not DD[k]) and (NH[k].h
... la ,k , tap ); {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 (A : Mang1;h ... Writeln(F2,'Tong cong co ',Tong,' Tap on dinh ');} End; Procedure Tao_Ngoai(i : Byte); Var j : Byte; Function KT_Ngoai (A : Mang1;h : Byte): Boolean; Var x,y : Byte; Function Khongthuoc : Boolean; ... Writeln(F2,'Tong cong co ',Tong,' Tap Nhan ');} End; BEGIN DocF; Assign(F2,Fo); Rewrite(F2); Writeln(F2,' CAC TAP ON DINH TRONG NHIEU PHAN TU NHAT '); Writeln(F2); Tao_Ondinhtrong; Writeln(F2);...
... hiđrocacbon tách từ dầu mỏ có tính chất vật lí kiện phân tích sau: ts (oC) tnc (oC) %C %H A 68, 6 -141 85 ,63 14,34 B 67,9 -133 85 ,63 14,34 A B làm màu nhanh chóng dung dịch KMnO4 nước brom, ozon phân ... metyl xeton môi trường axit môi trường bazơ người ta thu sản phẩm khác Viết CTCT sản phẩm tạo thành, giải thích Câu 8: Gọi tên sản phẩm tạo thành cho axit cis-crotonic, axit trans-crotonic tác ... enoat H2 H 2O H+ Trong E là: Câu 10: Metylaxetimiđua (A) thủy phân môi trường NaOH ban đầu cho axetamit metanol Trong dung dịch axit, A thủy phân (ban đầu) cho metyl axetat ion amoni a Dùng mũi tên...
... kết ion ENa-F hợp chất ion NaF Biết trị số (kJ/mol): INa = 4 98, 5 ; FF o −12 = -3 28 ; khoảng cách ro = 1 ,84 A , nNaF = hệ số đẩy Born, εo = 8, 854.10 số điện mơi chân Vậy độ ion x liên kết S-O bằng: ... (kJ/mol) Li 521 Be 89 9 B 80 1 C N O F 1 087 1402 1313 1 681 Ne 2 081 a Hãy cho biết từ Li đến Ne, lượng ion hóa thứ nguyên tố nhìn chung tăng dần từ: Be sang B ; từ N sang O lượng ion hóa thứ lại giảm ... chắn hai electron 1s = 0,300 Hệ số chắn electron nhóm khác electron nhóm ns, np sau: o = electron nhóm bên phải nhóm ns, np o = 0,350 electron nhóm với ns, np o = 0 ,85 0 electron nhóm n’ = n –...
... kết ion ENa-F hợp chất ion NaF Biết trị số (kJ/mol): INa = 4 98, 5 ; FF o −12 = -3 28 ; khoảng cách ro = 1 ,84 A , nNaF = hệ số đẩy Born, εo = 8, 854.10 số điện mơi chân Vậy độ ion x liên kết S-O bằng: ... (kJ/mol) Li 521 Be 89 9 B 80 1 C N O F 1 087 1402 1313 1 681 Ne 2 081 a Hãy cho biết từ Li đến Ne, lượng ion hóa thứ nguyên tố nhìn chung tăng dần từ: Be sang B ; từ N sang O lượng ion hóa thứ lại giảm ... chắn hai electron 1s = 0,300 Hệ số chắn electron nhóm khác electron nhóm ns, np sau: o = electron nhóm bên phải nhóm ns, np o = 0,350 electron nhóm với ns, np o = 0 ,85 0 electron nhóm n’ = n –...