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.