De kt tin 11 khII-co dap an

Sở giáo dục & đào tạo hải dơng Trờng THPT Bình Giang Đề kiểm tra học kì II-năm học 2008-2009 Môn: Tin học 11. Thời gian : 45 phút Câu 1. (3 đ) a) Chơng trình con là gì? b) Trình bày các lợi ích của việc sử dụng chơng trình con. Câu 2. (7đ). a) Cho chơng trình con: Dòng Procedure NHAP; Var A: array[1 .100] of word; i, n: byte; Begin Writeln(Nhap so phan tu); Readln(n); While n>100 then Begin Writeln(Nhap lai); Readln(n); end; For y:=1 to n do Begin Writeln(Nhap pt thu, i); Readln(A[i]); end; End; 1 2 3 4 5 6 7 8 9 10 11 12 13 14 - Chơng trình con trên có những lỗi ở dòng nào ? Sửa lỗi (nếu có). - Chơng trình con trên làm những công việc gì ?. b) Hoàn thành chơng trình con tính tổng số ớc nguyên dơng của một số nguyên k sau đây: Function Demuoc(k: word): word; c) Viết chơng trình sử dụng 2 chơng trình con trên để nhập một dãy gồm n số nguyên dơng, in ra màn hình các phần tử là số nguyên tố. ------------------Hết------------------- Đáp án và biểu điểm Câu 1(3 đ) a) Trả lời đợc đúng _0.5 đ. b) Nêu đợc 5 lợi ích _ 2.5 đ. Câu 2. a) - (1.5 đ) Các lỗi sai và sửa sai: Dòng sai_ lỗi sai Sửa 2: [1 .100] [1 100] 6: While .Then . While . do . 10: For y:=1to . do For i:=1 to .do . - (1.5 đ) Chơng trình con trên làm các công việc: + Nhập số phần tử n của mảng A. + Kiểm tra số phần tử n <=100. + Nhập n phần tử của mảng A. b) (2đ) Function Demuoc(k: word): word; Var T, i: word; Begin T:=0; For i:= 1 to k do If k mod i=0 then T:=T+1; Demuoc:=T; End; c)(2 đ) Program KTHKII; uses CRT; Type mang=array[1 100] of word; Var A: mang; i, n: word; Procedure NHAP; Begin Writeln(Nhap so phan tu); Readln(n); While n>100 then Begin Writeln(Nhap lai); Readln(n); end; For y:=1 to n do Begin Clrscr; Writeln(Nhap pt thu, i); Readln(A[i]); end; End; Function Demuoc(k: word): word; Var T, j: word; Begin T:=0; For j:= 1 to k do If k mod j=0 then T:=T+1; Demuoc:=T; End; BEGIN NHAP; Clrscr; Writeln(‘Cac phan tu la SNT la’); For i:=1 to n do If demuoc(A[i])=2 then write(A[i],’ ’ ); Readln END. . & đào tạo hải dơng Trờng THPT Bình Giang Đề kiểm tra học kì II-năm học 2008-2009 Môn: Tin học 11. Thời gian : 45 phút Câu 1. (3 đ) a) Chơng trình con. (2đ) Function Demuoc(k: word): word; Var T, i: word; Begin T:=0; For i:= 1 to k do If k mod i=0 then T:=T+1; Demuoc:=T; End; c)(2 đ) Program KTHKII; uses