De thi tin hoc 8-2010

ĐỀ 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 đủ?. Câu 2: cho đoạn chương trình sauA. -15 Câu 3: Trong câu lệnh sau câu lệnh nào là câu

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

BÀI 6: Câu lệnh điều kiện 1

0.5đ

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đ

3đ

1

2đ

2 5đ

0.5đ

4 2đ

1 2đ

2 3.5đ

1 2đ

7 10đ

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

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

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.