Bài kiểm tra học kì ii năm học 2010-2011 Môn: tin học ( Thời gian làm 45 phút) 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: Cho xõu kớ t sau: a:= nguyen du. Lnh no sau õy cho kt qu nguyen : A. Copy(a,4,2); B. Copy(a,6,5); C. Delete(a,8,2); D. Delete(a,7,3); Cõu 2: Cho xõu sau: s1:=ac; s2:=abcdef_ac_abef. Khi s dng hm POS(s1,s2). Khi ú kt qa bng bao nhiờu? A. B. C. D. Cõu 3: Nu xõu st:= - Hau hoc van ; sau thc hin lnh write(length(st)); s cho kt qu l: A. 15 B. 13 C. 12 D. 14 Cõu 4: Cho xõu st:=Mon hoc. cú kt qu: St = Mon Tin hoc. Cỏch s dng th tc Insert no di õy l ỳng: A. Insert(Tin ,st,4); B. Insert(st,Tin ,4); C. Insert(Tin ,st,5) D. Insert(st,Tin ,5); Cõu 5: D liu kiu bn ghi dựng Cho mng chiu A gm dũng, ct v cỏc phn t ca mng A l cỏc s nguyờn. tham chiu n phn t dũng th ct th ta vit: A. A[3] B. A[3,2] C. A[2,3] D. A[2] Cõu 6: Trong NNLT Pascal, truy cp vo tng trng ca bn ghi ta vit: A. .; B. .; C. .; D. .; Câu 7: 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; ----Câu 8: 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 9: Dữ liệu kiểu tệp: A. đợc lu trữ RAM B. đợc lu trữ đĩa cứng C. đợc lu trữ ROM D. đợc lu trữ nhớ ngoài. Câu 10: Thủ tục mở tệp để đọc thông tin tệp là: A. Rewrite(); B. Rewrite(); C. Reset(); D. Reset(); Cõu 11: Gi s a = 5; b = 9; c = 15; ghi cỏc giỏ tr trờn vo f cú dng l 5,9,15 ta s dng th tc ghi: A. Write(a, , b, , c); B. Write(f, a,b,c); C. Write(f, a, , b, , c); D. Write(f, a , b, c); Câu 12: 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 13: Mun m bn cú tờn l Vidu.txt ghi d liu vo ú, ta s dng cỏc th tc no di õy: A. Rewrite(f) B. Reset(f) C. Assign(f, Vidu.txt); Reset(f); D. Assign(f, Vidu.txt); Rewrite(f); Cõu 14: Cỏc thao tỏc dựng ghi giỏ tr bin t vo KQ.TXT (Gi s f l bin bn ó khai bỏo) A. Assign(f, KQ.TXT)->Rewrite(f)->Writeln(f,t)->Close(f) B. Assign(f, KQ.TXT)->Readln(f,t)->Reset(f)->Close(f) C. Assign(f, KQ.TXT)->Writeln(f,t)->Rewrite(f)->Close(f) D. Assign(f, KQ.TXT)->Reset(f)->Readln(f,t)->Close(f) Cõu 15: Cho cỏc thao tỏc c d liu t nh sau: (1) M ghi d liu ; (2) Khai bỏo v gỏn tờn vi bin tp; (3) úng tp; (4) M c d liu; (5) Ghi d liu; (6) c d liu; Hóy chn phng ỏn ghộp ỳng c d liu vo tp: A. (2) (4) (6) (3); B. (2) (1) (5) (3); C. (1) (2) (5) (3); D. (4) (6) (5) (2); Câu 16: Để 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); II/ tự luận (6 điểm) Cõu 1:(2) 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:(4 im) Cho mng A gm khụng quỏ 50 phn t thuc s nguyờn. Hóy vit chng trỡnh: a) Nhp giỏ tr cho tng phn t mng A. b) Tỡm s lng s chn mng A v in kt qu mn hỡnh. c) Tớnh tng cỏc s dng mng A v in kt qu mn hỡnh. Ht . Bài kiểm tra học kì ii năm học 20 10 -20 11 Môn: tin học ( Thời gian làm bài 45 phút) Họ và tên: Lớp Caõu 1. A B C D Caõu 6. A B C D Caõu 11. A B C D Caõu 16. A B C D Caõu 2. . C. 2; 4; 6; 8;10 D. 4; 6; 8;10 5,9,15 C. (1) (2) (5) (3); D. (4) (6) (5) (2) ; C©u 16: §Ó 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);. lÖnh: A. Assign(K2, thihk2.int); B. Assign(K2, ‘thihk2.int’); C. Assign(thihk2.int, K2); D. Assign(‘thihk2.int’, k2); II/ tù luËn (6 ®iÓm) Câu 1: (2 ) Hãy nêu các bước mà một chương trình Pascal