ĐỀ THI HỌC KỲ II MÔN TIN HỌC 8 NH 2009-2010

PHÒNG GD–ĐT CẦU KÈ
Trường:THCS Thông Hoà THI KIỂM TRA HỌC KÌ II Điểm
Họ và tên:............................ NĂM HỌC:2009-2010
Lớp:........ Môn:TIN HỌC-Lớp 8
Thời gian:45 phút(không kể thời gian phát đề)
I.PHẦN TRẮC NGHIỆM (3 điểm) :Hãy khoanh tròn chữ cái đứng trước câu trả lời m em cho là đúng nhất(mỗi câu 0.5điểm)
1.Phần mềm Geogebra là phần mềm?
a.Vẽ hình học b.Giải tốn c. Xem thời gian
2.Ngôn ngữ lập trình đều có các câu lệnh lặp để thể hiện:
a.Công việc lặp b. Điều kiện lặp c. Cấu trúc lặp
3.Điều kiện cần phải kiểm tra đối với câu lệnh lặp For…do là?
a.Giá trị cuối b. Giá trị đầu c.Điều kiện
4.Khi khai báo một biến có kiểu dữ liệu là kiểu mảng biến đó được gọi là?
a.Biến mảng b. Biến đếm c.Biến gán
5.Biến mảng thường có kiểu dữ liệu ?
a. Số nguyên b. Số thực c. Cả a,b
6.Câu lệnh While…do là câu lệnhthực hiện những hoạt động lặp với số lần?
a.Biết trước b.Chưa biết trước c.Xác định
II. PHẦN TỰ LUẬN: (7.0 điểm)
Câu 1:Các em hãyxác định các câu lệnh sau đây đúng hay sai? (1,5đ)
for i:=200 to 1 do writeln(‘A’);
for i:= 1.5 to 20.5 do writeln(‘A’);
s:=0;n:=0;While S<=20 do begin n:=n+1;S:=S+n end;
Var X :array[10..1] of integer;
Var X :array[1,5..15,5] of integer;
Var X :array[1..20] of integer;
Câu 2: Viết cú pháp của câu lệnh lặp For... do,while ...do;Và cú pháp khai báo mảng?(1,5đ)
Câu 3: Viết chương trình tính tổng 10 số tự nhiên đầu tiên?(2đ)
Câu4 : Viết chương trình để tính tổng các số tự nhiên đầu tiên cho đến khi tổng đó bằng 100 thì dừng lại?(2đ)












ĐÁP ÁN
THI KIỂM TRA HỌC KÌ II
MÔN:TIN HỌC 8
I.PHẦN TRẮC NGHIỆM (3 điểm) :Hãy khoanh tròn chữ cái đứng trước câu trả lời em cho là đúng nhất(mỗi câu 0.5điểm)
1- a ; 2-c ; 3-a ; 4-a; 5-c ; 6-a
II. PHẦN TỰ LUẬN: (7.0 điểm)
Câu 1:Các em hãyxác định các câu lệnh sau đây đúng hay sai? (1,5đ)
a) sai ; b) sai c) đúng ; d) sai ; e) sai; f) đúng
Câu 2: Viết cú pháp của câu lệnh lặp For... do,while ...do;Và cú pháp khai báo mảng?(1,5đ)
- Cú pháp của câu lệnh lặp For... do: For:= to do; (0.5đ)
- Cú pháp của câu lệnh lặp while... do: while <điều kiện> do ; (0.5đ)
- Cú pháp khai báo mảng:tên mảng:array[ ..] of (0.5đ)
Câu 3: Viết chương trình tính tổng 10 số tự nhiên đầu tiên?(2đ)
Program tong; 0.25đ
Var S,i:integer; 0.25đ
Begin 0.25đ
S:=0; 0.25đ
For i:= 1 to 10 do S:=S+i; 0.25đ
Writeln(‘tong cua 10 so tu nhien dau tien:’,S); 0.25đ
Readln 0.25đ
End. 0.25đ
Câu4 : Viết chương trình để tính tổng các số tự nhiên đầu tiên cho đến khi tổng đó bằng 100 thì dừng lại?(2đ)
Program tong; 0.25đ
Var S,n:integer; 0.25đ
Begin 0.25đ
S:=0; n:=1; 0.25đ
While S<= 100 do begin S:=S+n;n:=n+1 end; 0.25đ
Writeln(‘tong các so tu nhien dau tien:’,S); 0.25đ
Readln 0.