... Hội ThiTinHọcTrẻ Huyện Dĩ An 2009 Program Bai2; var x,s,tmp: real; n,i,dau: integer; begin repeat write('Nhap n > 0: '); readln(n); until (n>0); write('Nhap so thuc X: '); readln(x); s:=0; dau:=1; ... tinhọc sinh từ tập tin HOSO.txt xuất hình (2 đ) program hoso; type hs=record ho:string[30]; ten:string[10]; end; var 3/5 Hội ThiTinHọcTrẻ Huyện Dĩ An 2009 f: file of hs; a: hs; nhap:char; ... s:=s+dau*tmp; dau:=-dau; end; write('Tong S la: ',s:8:3); readln; end Bài 3: Viết chương trình a) Nhập danh sách lớp: (2 đ) Thông tinhọc sinh gồm: họ, tên Lưu vào tập tin HOSO.txt b) Đọc thông tin...
... chiều ngang ấn phím dừng (nhập xuất chuỗi: đ) (chạy chữ: đ) ( ấn phím dừng: đ) Ví dụ: Ho va Ten: Tran Bang Tam Tran Bang Tam Program Bai3; uses crt; var str: string; i: integer; dung:boolean; begin ... phần tử không chia hết cho 3: Program Bai2; var z: array[1 100] of integer; n,i: integer; begin repeat write('Nhap n > 0: '); readln(n); until (n>0); writeln('Nhap gia tri cho day so nguyen:'); ... 2/4 Hội ThiTinHọcTrẻ Huyện Dĩ An 2009 begin write('z[',i,']= '); readln(z[i]); end; writeln('Cac phan tu khong chia he cho 3'); for i:=1 to n if (z[i] mod 0) then write(z[i]:5); readln; end...
... Circle (a, b,r); Delay(100); Setcolor(black); {Thiet lap ve hinh tron rong voi mau vien mau den cung voi mau nen cua man hinh} Circle (a, b,r); a: =a+ dx; b:=b+dy;{Thiet lap cho hinh tron chuyen dong dap ... Tim_thay:=false; While (dau k then Cuoi:=Giua -1 else Dau:=Giua +1; end; if Tim_thay then ... (Binary Search)? Program cau6; {uses crt;} var A: array[1 20] of integer; i,j,n,k,Dau,cuoi,giua,tg: integer; Tim_thay:boolean; begin {Phan 1: Nhập giá trị phần tử dãy số} write('nhap so phan tu...
... HỆ CƠ SỐ A LÝ THUYẾT: - Trong hệ số 10: Số A = an… .a2 a 1a0 = a0 + 1 0a1 + … +10nan nên: Để lấy số a0 = A mod 10; Để x a chữ số a0 ta dùng A: =A div 10 (Tương tự: Để lấy hai số tận a1 a0 = A mod 100; ... DT_BAC(Var A: KM;Bac:byte;gt:real); Var i:byte; Begin For i:=1 to n A[ i]:=0; A[ Bac]:=gt; End; 24 Begin clrscr; Write('Nhap bac cua da thuc bi chia: ');Readln(n); Writeln('Nhap da thuc A: '); NhapDT (A, n); ... swap(var x,y:real); var tam:real; begin tam:=x; x:=y; 12 y:=tam; end; Begin Write('Nhap n: ');Readln(n); Write('nhap so:');Readln(max); Write('nhap so: ');Readln(nhi); if nhi > Max then swap(Max,nhi)...
... “c” tiếp tục Kiểm tra tham số lệnh Nếu lệnh thực tham số chép tệp từ đ aA sang thư mục DATA Nếu lệnh thực có tham số lấy tham số làm mẫu tệp để chép từ đ aA sang thư mục DATA Trước chép cần nhắc ... ghi vào file văn BL1.TXT CAU : l a chọn Ví dụ: CAU1: a) CAU2: b) CAU3: a) CAU4: a) , b) CAU5: b), c) (Chú ý: ví dụ, không đápán câu trên) Hãy lập trình thực toán sau: BÀI Y3K Cho số nguyên ... HOAC 21-2-2090 KHONG BÀI Tổ chức tham quan Trong đợt tổ chức tham quan danh lam thắng cảnh thành phố Hồ Chí Minh, Ban tổ chức Hội thitinhọctrẻ tổ chức cho N đoàn (đánh số từ đến N) đoàn tham...
... ; Câu 15: LAN từ viết tắt c a: A Local Approved Net B Logo Area NetWork C List Application NetWork D Local Area NetWork Cáu 16: Virus mạy khäng thãø láy lan trãn hãû âiãưu hnh no ? A Linux B Unix ... tiãúng Anh: A Information B Informations C Computer D Táút c âãưu sai Cáu 23: Trong cáu lãûnh For ca Pascal dng lãûnh no âãø vng làûp giỉ a chỉìng: A Exit B Halt C Break D Táút c âãưu sai Câu 24: ... 65 Câu 13: Trong thi t bị sau đây, thi t bị khơng phải thi t bị mạng? A Vỉ mạng B Modem C Loa D Hub Cáu14: Trong cạc lãûnh Pascal sau, lãûnh no khäng håüp lãû ? A Write (3=5 and 3
... sai biến mảng : Trừ ½ số điểm Program Bai2; Uses crt; Var a , b, c, d, e : Real; Function MAX (a , b : Real) : Real; Begin If a > b then MAX := a Else MAX := b; End; Begin Clrscr; Write (‘ Nhap ... MAX := b; End; Begin Clrscr; Write (‘ Nhap vao so : ’); Readln (a, b, c, d, e); Writeln(‘ So lon nhat so la: ’,MAX(MAX(MAX(MAX (a , b), c), d), e)); Readln End 0.5 0.5 ... Program Bai1; Uses crt; Var A: Array [ 5,1 ] of Integer; i, j , tong1, tong2, spt1,spt2 : Integer; Begin Clrscr; For i:= to For j := to Begin Write (‘ Nhap phan tu dong ‘,i,’ cot ‘,j,’ : ‘); Readln (A[ i,j]);...
... lời: Program baitap; Var A: array[1 10] of integer; i, max, csmax, sc, t: integer; Begin Write(‘ nhap cac phan tu cua day :’); For i:=1 to 10 Begin Khai báo Nhập mảng Câu a (Max) Câu b (sc, sl) ... Write(‘nhap pt thu ’,i,’=’); Readln (A[ i]); End; max: =A[ 1]; csmax:=1; For i:=2 to 10 If A[ i] > max then Begin max: =A[ i]; csmax:=i; end; writeln(‘gtri ptu max=’,max); writeln(‘chi so ptu max =’, csmax); ... dãy A gồm 10 số nguyên A1 , A2 , …, A1 0 (4 điểm) a Tìm đ a hình phần tử lớn dãy số nguyên b Tính đ a hình số lượng số chẳn số lẻ c Tính hiển thị giá trị trung bình phần tử mảng Trả lời: Program baitap;...
... kèm ( máy quay, công cụ cắt, biên tập phim,âm thanh) Câu 8: Cho bảng liệu sau: Hocsinh(mahs,hoten,ns,gt) Diem(mahs,toan,van,anh) Anh sử dụng câu truy vấn SQL access để - tính tổng ,TB ba môn Điểm ... tròn chữ số thập phân - đ a danh sách học sinh có toán văn anh có điểm
... c = a + b − ab = (a + b) − 3ab ≥ (a + b) − (a + b) = (a + b) ⇒ a + b ≤ 2c (1) 4 0,25 0,25 a + b3 + 3abc ≤ 5c ⇔ (a + b) (a + b − ab) + 3abc ≤ 5c ⇔ (a + b)c + 3abc ≤ 5c ⇔ (a + b)c + 3ab ≤ 5c 0,25 ... SI = IK tan SKI = BC = ( AB − CD ) + AD = a ⇒ IK = ΔIBC = BC 5 1 5a Thể tích khối chóp S ABCD : V = S ABCD SI = Tổng diện tích tam giác ABI CDI Trang 2/4 0,25 0,25 Câu V (1,0 điểm) Đápán Điểm ... ⊥ ( ABCD) ( SIC ) ⊥ ( ABCD); suy SI ⊥ ( ABCD) S Kẻ IK ⊥ BC ( K ∈ BC ) ⇒ BC ⊥ ( SIK ) ⇒ SKI = 60 A 0,50 B I D C K Diện tích hình thang ABCD : S ABCD = 3a 3a 3a ; suy S ΔIBC = 2 2S 5a 1 5a ⇒...
... K N A M H D • Thể tích khối chóp S.CDNM SCDNM = SABCD − SAMN − SBCM 1 = AB2 − AM.AN − BC.BM 2 2 aa 5a = a2 − − = 8 VS.CDNM = a3 SCDNM.SH = 24 C B • Khoảng cách hai đường thẳng DM SC ∆ADM = ... ⎝2 ⎠ VI .a (1,0 điểm) y d1 O B d1 d2 cắt O, cos(d1, d2) = d2 | 3 − 1.1| = tam giác + + 0,25 OAB vuông B, AOB = 60 ⇒ BAC = 60 AB.AC.sin 60 = (OA.sin 60 ).(OA.tan 60 ) A 3 = OA2 I C , suy OA2 = ... OA2 I C , suy OA2 = Do đó: SABC = ⎧ 3x + y = ⎛ ⎞ ⎪ T a độ A( x; y) với x > 0, th a mãn hệ: ⎨ ; − 1⎟ ⇒ A ⎝ ⎠ ⎪x + y = ⎩ Đường thẳng AC qua A vuông góc với d2, suy AC có phương trình: x − 3y −...
... c b + c + a + b + c + a ( 4.3 + ) = c a b c a b a b + + = + + + +2 = 3, b c a b c a b a c a b a b c c a b hoc + + 3 = Tng t, + + 3) b c a b c a b c a (Do Du "=" xy ... y t a = x x + 2y y , b = y y + 2z z , c = z z + 2x x 4c + a 2b 4a + b 2c 4b + c 2a Suy ra: x x = , y y= ,z z= 9 0,25 4c + a 2b 4a + b 2c 4b + c 2a + + Do ú P b c a = c a b a b c ... (1) v (2) A suy BP ( SHC ) B 0,50 K H Vỡ MN // SC v AN // CH nờn ( AMN ) // ( SHC ) Suy BP ( AMN ) BP AM 0,25 N D P C K MK ( ABCD ) , K ( ABCD ) Ta cú: VCMNP = MK.SCNP aa 3a , SCNP...
... = Trang 4/5 0,50 Tính thể tích tính góc (1,00 điểm) A' C' B' A C H B Gọi H trung điểm BC 1 Suy A ' H ⊥ (ABC) AH = BC = a + 3a = a 2 0,50 Do A 'H = A'A − AH = 3a ⇒ A 'H = a a3 (đvtt) Vậy VA ... Vậy VA '.ABC = A' H.SΔABC = Trong tam giác vuông A 'B' H có: HB' = A 'B'2 + A 'H = 2a nên tam giác B' BH cân B' Đặt ϕ góc hai đường thẳng AA ' B'C ' ϕ = B ' BH Vậy cosϕ = 0,50 a = 2. 2a Nếu thí ... ,11} ta có a k = 2k C12 , a k +1 = 2k +1 C12+1 k ak 2k C12 23 k +1 < ⇔ k +1 k +1 < ⇔ ⇔ k > Do a > a > > a1 2 a k +1...
... 53 54 A B B C A B B A B D A D C B A D D B B C D D C B C A C D A C AAA D B C D C C C A D AA D B B D B B A C D A C D C B D B C B A B C C B A B B D B C D C D D A C C D AA B B C B C C A 55 56 ... Câu số Mã đềthi 346 593 135 217 689 847 31 32 33 34 35 36 37 38 39 D A C C C D B C C C D AA D C B B D B C B A D D C C A C B C B C D D B AA B B C A D B B B A B A C D A C C C 40 41 42 ... B B D B C D C D D A C C D AA B B C B C C A 55 56 57 58 59 C A B D C B B A C D B C B D D C B A D A D B C C C B C AA C 60 A C AAA B ...
... ví dụ Ví dụ: frac.in frac.out 0/1 1/5 1/4 1/3 2/5 1/2 3/5 2/3 3/4 4/5 1/1 - HẾT - Hội thiTinhọctrẻ tỉnh Quảng Ninh lần thứ IX-2008 Hướng dẫn chấm thiĐÁPÁNĐỀTHI TRÊN MÁY Bảng B - THCS • ... số sau: 1 3 , , , , , , , , , , 5 5 Bạn viết chương trình, cho trước số nguyên N (1 ≤ N ≤ 160), ghi phân số theo thứ tự tăng Dữ liệu: File vào gồm dòng ch a số nguyên N Kết quả: File ch a tất ... thiĐÁPÁNĐỀTHI TRÊN MÁY Bảng B - THCS • • Chấm tự động phần mềm Ban giám khảo Điểm sau: STT Tên Bài Minesweeper Bài Ordered Fractions Tổng điểm - HẾT - Điểm 40 40 80 ...
... coi thi không giải thích thêm) Trang - đềthi gồm có trang Sở Giáo dục Đào tạo LONG AN Kỳ thiTinhọctrẻ tỉnh Long An lần thứ 17 Ngày thi : 17/3/2013 Thời gian: 150 phút (không kể phát đề) Bảng ... thi cho tất đoàn Nhiệm vụ bạn giúp ban tổ chức tìm tổng thời gian (có thể xem thời gian di chuyển từ nhà chờ đến khu vực tiếp tân không đáng kể) Ví dụ: Có đoàn bàn đăng kí dự thi với thời gian ... thời gian từ thời điểm bắt đầu làm việc đến thời điểm trưởng đoàn cuối làm xong thủ tục dự thi Thật tuyệt vời tất trưởng đoàn chuyên gia tin học, họ chọn đến làm thủ tục bàn cho thời gian hoàn...