De kt tin 11 khII-co dap an

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.. - 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 ng

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đ).

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:

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