De thi tin hoc 8-2010

PHÒNG GD TP BIÊN HÒA CỘNG HÒA XÃ HỘI CHỦ NGHĨA VIỆT NAM
TRƯỜNG THCS TRẦN HƯNG ĐẠO ĐỘC LẬP-TỰ DO-HẠNH PHÚC

ĐỀ THI HỌC KÌ 2-– NĂM HỌC 2009-2010
MÔN THI : TIN HỌC 8
Thời gian: 45 phút.
ĐỀ CHÍNH THỨC :
MA TRẬN ĐỀ:
Các chủ đề chính
Mức độ nhận biết
TổngNhận biết Thông hiểu Vận dụng
TNKQ TL TNKQ TL TNKQ TL
BÀI 6: Câu lệnh điều kiện
1

0.5đ
1

0.5đ
Bài 7:Sử dụng câu lệnh lặp for do
1

0.5đ
1

0.5đ
2
1đ
Bài 8:Sử dụng câu lệnh lặp while
do
3

1.5đ
1

2đ
4
3.5đ
Bài 9:Làm việc với dãy số
1

3đ
1

2đ
2
5đ
Tổng
1
0.5đ


4
2đ
1
2đ
2
3.5đ
1
2đ
7

10đ
KÍ DUYỆT HIỆU PHÓ KÍ DUYỆT CỦA TỔ PHÓ
PHÒNG GD TP BIÊN HÒA CỘNG HÒA XÃ HỘI CHỦ NGHĨA VIỆT NAM
TRƯỜNG THCS TRẦN HƯNG ĐẠO ĐỘC LẬP-TỰ DO-HẠNH PHÚC

ĐỀ THI HỌC KÌ 2-NĂM HỌC 2009-2010
MÔN THI: TIN HỌC 8
Thời gian: 45 phút.
ĐỀ CHÍNH THỨC
I.TRẮC NGHIỆM :(3 điểm)
Câu 1: Cấu trúc nào được dùng để viết câu lệnh điều kiện đầy đủ ?
A. For do…. B. If … Then…. C. If … then ….else…. D. While ….do ….
Câu 2: cho đoạn chương trình sau.
S:=0;
For i:=1 to 10 do S:= S+i
Chương trình trên cho kết quả S là
A. 15 B. 55 C. 10 D. -15
Câu 3: Trong câu lệnh sau câu lệnh nào là câu lệnh lặp biết trước số lần lặp
A. For <biến đếm>:= < giá trị đầu> to < giá trị cuối> do < câu lệnh>;
B. While <điều kiện> do < câu lệnh>;
C. For < biến đếm>=giá trị đầu> to < giá trị cuối> do< câu lệnh>;
D. Tất cả đều đúng
Câu 4: Trong câu lệnh pascal sau câu lệnh nào đúng.
A. While i:=K do t:=10 B. while a<=b do writeln(‘123’);
C. While T: =1 do write(‘PVT’); D. while i
≤
100 do S:=S+i;
Câu 5: Cho đoạn lệnh sau:
i:=1; while i<100 do write(‘THD’); i:=i+1;
hãy chọn kết quả đúng .

A/ In ra các số từ 1 đến 9 B/ In ra các số từ 1 đến 10 C/ In ra vô hạn chữ THD, mỗi chữ
trên một dòng
Câu 6: Cho đoạn chương trình sau:
S:=0; n:=0;
While n< 4 do Begin n:=n+1; S:=S+n; End;
Hãy cho biết kết quả khi thực hiện chương trình(s ,n=?)
A. n=5, S=15 B. n=6, S=21, C. n=4, S=10 D. Tất cả đều sai
II. TỰ LUẬN(7 điểm)
Câu 1: Cho đoạn chương trình sau(2 điểm)
Begin
s:=0; n:=0;
while n<6 do
begin
n:=n+1;
s:=s+n;
end;
end.
Hãy cho biết kết quả khi thực hiện chạy chương trình.
(Lưu ý: Thực hiện các bước để có kết quả n,s=?)
Câu 2 :(2 điểm)
Viết chương trình nhập vào một dãy số và kiểm tra giá trị nào được nhập vào là sô nguyên tố
Câu 3 : (3điểm)
Sử dụng biến mảng để lưu trữ điểm toán, văn, anh văn của các bạn trong lớp sau đó tính
điểm trung bình của các bạn trong lớp và đếm xem có bao nhiêu bạn học giỏi, khá, trung binh, kém.
Hết
ĐÁP ÁN:
I. TRẮC NGHIỆM:
CÂU 1: C
CÂU 2: B
CÂU 3: C

CÂU 4: B
CÂU 5: C
CÂU 6: C
II. TỰ LUẬN:
CÂU 1:
Program tinhtoan;
Uses crt;
Var i,n,s:integer;
Begin
n:=0; s:=0;
While n<=6 do
Begin
n:=n+1;
s:=s+n;
end;
Writeln( ‘gia tri la’, s, ‘so vong lap’,n);
Readln;
End.
Điều kiện Giá trị n Giá trị S
N=0, S=0;
0
≤
6 n=n+1=0+1=1 s=s+n=0+1=1
1
≤
6 n=n+1=1+1=2 s=s+n=1+2=3
2
≤
6 n=n+1=2+1=3 s=s+n=3+3=6
3

≤
6 n=n+1=3+1=4 s=s+n=6+4=10
4
≤
6 n=n+1=4+1=5 s=s+n=10+5=15
5
≤
6 n=n+1=5+1=6 s=s+n=15+6=21
6
≤
6 n=n+1=6+1=7 s=s+n=21+7=28
7>6( kết thúc thuật toán.
Kết quả thực hiện chương trình là: n=6, s=28.
Câu 2: var n,i,k:integer;
a:array[1 100] of integer;
begin
write('nhap n=');
readln(n);
for i:=1 to n do
begin
write('nhap a[',i,']');
readln(a[i]);
k:=2;
while a[i] mod k<>0 do k:=k+1;
if a[i]=k then writeln(a[i]:4,'so nguyento')
else writeln(a[i],' ','khong la so nguyen to');
end;
readln;
end.
Câu 3:

var a,b,c,d:array[1 50]of real;
i,j,n, gioi, kha,kem,tbinh:integer;
tb:real;
begin
write('nhap n=');
readln(n);
for i:=1 to n do
begin
write('Dien toan[',i,']=');
readln(a[i]);
write('Diem van[',i,']=');
readln(b[i]);
write('Diem anhvan[',i,']=');
readln(c[i]);
end;
for i:=1 to n do
begin
c[i]:=(a[i]+b[i]+c[i])/3;
writeln('DTB nguoi thu ',i,' la=',c[i]:10:2);
end;
gioi:=0; kha:=0; kem:=0;tbinh:=0;
for i:=1 to n do
begin
if c[i]>=8 then gioi:=gioi+1;
if (c[i]>=6.5) and(c[i]<=7.9) then kha:=kha+1;
if (c[i]>=5) and (c[i]<=6.4) then tbinh:=tbinh+1;
if c[i]<5 then kem:=kem+1;
end;
writeln( gioi);
writeln(kha);

writeln(tbinh);
writeln(kem);
readln;
end.
Hết