Bài kiểm tra học kì ii năm học 2010-2011 Môn: tin học LP 11 ( Thời gian làm 45 phút) (Hc sinh lm trc tip trờn bi thi) Họ tên: Lớp Điểm Caõu 1. C A B D Caõu 2. C A C Caõu 3. A C B A D Caõu 9. C B D Caõu 8. C B A Caõu 7. C D C Caõu 5. B D C Caõu 4. Caõu 6. Caõu 10. C A B D A C B D A B D Caõu 13. C B D A Caõu 12. C D A Caõu 11. Caõu 14. C B Caõu 15. C A B D A Caõu 16. C A B D B D A B D A B D A B D I/ Trắc nghiệm ( 4điểm) Câu 1: Dữ liệu kiểu tệp: A. ợc lu trữ RAM B. Chỉ đợc lu trữ đĩa cứng C. ợc lu trữ ROM D. ợc lu trữ nhớ ngoài. Câu 2: Để gán tệp có tên HOCKY2.INT cho biến tệp K2, ta phải gõ lệnh: A. Assign(K2, thihk2.int); B. Assign(K2, thihk2.int); C. Assign(thihk2.int, K2); D. Assign(thihk2.int, k2); Câu 3: Thủ tục mở tệp để đọc thông tin tệp là: A. Rewrite(); B. Rewrite(); C. Reset(); D. Reset(); Câu 4: Câu lệnh dùng thủ tục đọc có dạng: A. Read(, ); B. Read(,); C. Read() D. Read(); Câu 5: Câu lệnh dùng thủ tục ghi có dạng: A. Writeln(, ); B.Writeln(,(); C. Writeln(); D. Writeln(); Câu 6: Giả sử th mục gốc đĩa C có tệp f có nội dung sẵn. Khi thực thủ tục Rewrite(f); A. Nội dung tệp f hình B. Nội dung tệp cũ nguyên C. Nội dung tệp cũ bị xoá để chuẩn bị ghi liệu D. nội dung đợc ghi phía dới tệp có sẵn Câu 7: Phát biểu sau xác nói hàm EOF(): A. Hàm cho giá trị True trỏ tệp vị trí kết thúc tệp B. Hàm cho giá trị False trỏ tệp vị trí kết thúc tệp C. Hàm cho giá trị False trỏ tệp vị trí kết thúc dòng D. Hàm cho giá trị True trỏ tệp vị trí kết thúc dòng Câu 8: Cho đoạn chơng trình sau: Var g:text; I:integer; Begin Assign(g, C:\DLA.txt); Rewrite(g); For i:=1 to 10 If i mod then write(g, i); Close(g); Readln End. Sau thực chơng trình trên, nội dung tệp DLA.txt gồm phần tử nào? A. 1; 3; 5;7; B. 1; 3; 5; C. 2; 4; 6; 8;10 D. 4; 6; 8;10 Câu 9: Cho xâu sau: s1:= 0123; s2:= 6789. Chọn câu trả lời A. Xâu s1 có độ dài lớn xâu s2 B. Không thể so sánh hai xâu s1 s2 C. Xâu s1 có độ dài bé xâu s2 D. Hai xâu có độ dài Câu 10: Hoten := Nguyen Le Huynh Hoten[6] cho kí tự nào? A. e B. y C. n D. Câu 11: Giả sử: st:=abcd; thủ tục Insert(ab,st,2); cho kết là: A. ababcd B. ababad C. aabbcd D. abcdab Câu 12: Giả sử xâu st:=abcd; thủ tục Delete(st,2,2); cho kết là: A. ad B. cd C. bc D. bd Câu 13: Cho xâu kí tự a:= Nguyen Du. Lệnh sau cho kết Nguyen : A. Copy(a,4,2); B. Copy(a,6,5); C. Delete(a,8,2); D. Delete(a,7,3); Câu 14: Trong NNLT Pascal, để truy cập vào trờng ghi ta viết: A. .; B. .; C. .; D. .; Câu 15: Biến Hocsinh biến ghi gồm trờng: Hten, Nsinh, Toan, Van. Để truy xuất đến trờng Toan biến Hocsinh ta sử dụng: A. Hocsinh [Toan] B. Hocsinh(Toan) C. Hocsinh.Toan D. Hocsinh.[Toan] Câu 16: Cho khai báo ghi: Type hocsinh = record Hten:string[40]; Ns:word; Toan, tinhoc: real; End; Var a:Array[1 45] of hocsinh; Để truy xuất đến điểm tin học hoc sinh thứ 3, ta viết: A. a[3].tinhoc; B. a[3]+tin hoc; C. a{3}.tinhoc; D. a(3).tinhoc; ----II/ tự luận (6 điểm) Cõu 1:(3) Hóy nờu cỏc bc m mt chng trỡnh Pascal thc hin chng trỡnh sau : Program bt; Var f: text; a,b,c : integer; P, s : real; begin assign(f,DULIEU.TXT); reset(f); while not eof(f) begin readln(f,a,c,b); p:= (a+ b+ c )/2; s: = sqrt(p(p-a)(p-b)(p - c)); end; close(f); end. . . Câu 2: (3 im) Cho mng A gm khụng quỏ 50 phn t thuc s nguyờn. Hóy vit chng trỡnh: a) Nhp d liu cho mng a t bn phớm. b) Tỡm v a mn hỡnh phn t nh nht mng. c) Tớnh v a s lng s chn v s l mng. . . . .Ht . ngoài. Câu 2: Để gán một tệp có tên là HOCKY2.INT cho biến tệp K2, ta phải gõ lệnh: A. Assign(K2, thihk2.int); B. Assign(K2, thihk2.int); C. Assign(thihk2.int, K2); D. Assign(thihk2.int, k2); Câu. Bài kiểm tra học kì ii năm học 20 10 -20 11 Môn: tin học LP 11 ( Thời gian làm bài 45 phút) (Hc sinh lm trc tip trờn bi thi) Họ và tên: Lớp Caõu 1. A B C D Caõu 6. A B C D Caõu 11. A . to 10 do If i mod 2 <> 0 then write(g, i); Close(g); Readln End. Câu 9: Cho 2 xâu sau: s1:= 0 123 ; s2:= 6789. Chọn câu trả lời đúng A. Xâu s1 có độ dài lớn hơn xâu s2 B. Không thể so sánh