Mục đích, yêu cầu của đề: - N¾m ®îc mét sè thao t¸c c¬ b¶n víi tÖp v¨n b¶n - Nắm được tác dụng của chương trình con - Viết được một chương trình con đơn giản - Biết sử dụng một số thủ t[r]
(1)Së GD&§T Thanh ho¸ Trường THPT Vĩnh Lộc đề kiểm tra học kỳ II N¨m häc: 2008 - 2009 M«n: Tin häc §Ò sè 1 Mục tiêu đánh giá: - Đánh giá kết tiếp thu học sinh sau học hết các chương V, VI Mục đích, yêu cầu đề: - N¾m ®îc mét sè thao t¸c c¬ b¶n víi tÖp v¨n b¶n - Nắm tác dụng chương trình - Viết chương trình đơn giản - Biết sử dụng số thủ tục có các thư viện chương trình chuẩn Ma trận đề: BiÕt C©u 1, 2, 3, HiÓu C©u VËn dông C©u 4, Nội dung đề: Câu 1: Trong NNLT Pascal, liệu kiểu tệp: A Sẽ bị hết tắt máy C Được lưu trữ lâu dài trên nhớ ngoài B Không bị D Sẽ bị hết chương trình thực xong Câu 2: Trong NNLT Pascal, để gán tên tệp cho biến tệp ta sử dụng câu lệnh: A <biến tệp>:= <tên tệp>; C <tên tệp>:= <biến tệp>; B Assign (<biến tệp>, <tên tệp>); D Assign (<tên tệp>, <biến tệp>); Câu 3: Trong NNLT Pascal, mở tệp để đọc liệu ta sử dụng thủ tục: A Reset(<tên tệp>); C Reset(<biến tệp>); B Rewrite(<tên tệp>); D Rewrite(<biến tệp>); Câu 4: Trong NNLT Pascal, để đọc liệu từ tệp văn ta có thể sử dụng thủ tục: A Read(<tên tệp>, <danh sách biến>); C Read(<biến tệp>, <danh sách biến>); B Real(<tên tệp>, <danh sách biến>); D Real(<biến tệp>, <danh sách biến>); Câu 5: Cho chương trình sau: Var a,b,c: integer; Procedure Hoan_doi(Var a,b:integer); Var tg: integer; Begin tg:=a; a:=b; b:=tg; End; Begin a:=10; b:=11; c:=12; Hoan_doi(b,c); Hoan_doi(a,b); Hoan_doi(b,c); Writeln(a,' ',b,' ',c); Readln End; Hãy cho biết kết trên màn hình chạy chương trình? Câu 6: Viết chương trình thực vẽ cung elip màu đỏ có tâm (100, 200), góc khởi đầu 30, góc kết thúc là 120, bán kính trục Xr = 30, Yr=40 Câu 7: Viết hàm Tongchan(n:integer):integer; để tính tổng các số chẵn nhỏ n Lop11.com (2) Đáp án và thang điểm Câu 1: C (0.5 điểm) Câu 3: C (0.5 điểm) Câu 2: B (0.5 điểm) Câu 4: C (0.5 điểm) Câu 5: (2 điểm) Kết trên màn hình chạy chương trình là: 12 11 10 Câu 6: Uses Graph; Var gd, gm: integer; Begin gd:=detect; InitGraph(gd,gm,'C:\TPB\BIN'); Setcolor(Red); Ellipse(100,200,30,120,30,40); Readln; CloseGraph; Readln End Câu: 7: Lop11.com (3)