Đề thực hành thi học kì I Tin học Lớp 8 - Năm học 2018-2019

Ngày soạn: 15/12/2018
Ngày giảng: Lớp 8A: 20/12/2018; Lớp 8B: 20/12/2018; Lớp 8C: 20/12/2018
Tuần 17	Tiết 34
ĐỀ THI HỌC KÌ I THỰC HÀNH
MÔN: TIN HỌC KHỐI 8
Thời gian làm bài: 45 phút
I. MỤC TIÊU – KIẾN THỨC
1. Kiến thức
	- Kiểm tra lại kiến thức thực hành của học sinh
2. Kĩ năng
	- Biết cách thực hành trên máy tính
	3. Thái độ
	Nghiêm túc, ngồi đúng vị trí, đúng tác phong khi thực hành
II. CHUẨN BỊ:
	- GV: GA, SGK, SGV, đề kiểm tra và Phòng máy 
	- HS: Kiến thức bài cũ
III. MA TRẬN
NỘI DUNG
NHẬN BIẾT
THÔNG HIỂU
VẬN DỤNG THẤP
VẬN DỤNG CAO
TN
TL
TN
TL
TN
TL
TN
TL
Bài thực hành số 3
2đ
1đ
Bài thực hành số 4
1đ
Bài thực hành tổng hợp
2đ
2đ
Tổng số điểm
4
4
2
	IV. ĐỀ BÀI
Bài 1: Viết các biểu thức toán học sau đây dưới dạng biểu thức trong Pascal?
a) 15 x 4 – 30 + 12 ;
b) 15 + 5 18
 	 - 	 ;
 3 + 1 5 + 1
c) (10 + 2)2
	 ;
 (3 + 1)
d) (10 + 2)2 - 24
 ;
 (3 + 1)
Bài 2:	 Viết chương trình tính tổng của 2 số nguyên dương nhập từ bàn phím
	V. ĐÁP ÁN
Câu
Ý
Đáp án
Điểm
Câu 1
a
15*4-30+12
1
b
15+5/3+1-18/5+1
1
c
10+2^2/3+1
1
d
10+2^2-24/3+1
1
Câu 2
Program tinhtong;
Var 	a,b: integer;
 	S: real;
Begin 
	Clrscr;
Writeln(‘ Nhap so nguyen duong a:’); 
Readln(a);
Writeln(‘ Nhap so nguyen duong b:’); 
Readln(b);
S:= a + b;
Writeln( ‘ Tong cua 2 so a va b la:’, s:3:0);
Readln; 
End.
1
1
2
2
Ngày soạn: 17/12/2017
Ngày giảng: Lớp 8A: 21/12/2017; Lớp 8B: 21/12/2017; Lớp 8C: 21/12/2017
Tuần 16	Tiết 36
KIỂMTRA HỌC KỲ I LÝ THUYẾT
I. MỤC TIÊU – KIẾN THỨC
1. Kiến thức
- Biết khái niệm bài toán, thuật toán.
- Biết cấu trúc và các thành phần của ngôn ngữ lập trình.
- Hiểu được một số kiểu dữ liệu chuẩn
- Hiểu được cách khai báo biến
- Hiểu được lệnh gán.
- Hiểu được các câu lệnh vào ra đơn giản.
- Hiểu được các câu lệnh điều kiện: Dạng thiếu và dạng đầy đủ.
2. Kỹ năng
- Khai báo đúng biến.
- Sử dụng được câu lệnh vào ra, câu lệnh điều kiện
- Mô tả được thuật toán.
II. MA TRẬN
 Møc ®é
Chñ ®Ò
BiÕt
HiÓu
VËn dông
Tæng
TNKQ
Tù luËn
TNKQ
Tù luËn
TNKQ
Tù luËn
Lµm quen víi ch­¬ng tr×nh vµ ng«n ng÷ lËp tr×nh
3
 1,5
3
 1,5
Ch­¬ng tr×nh m¸y tÝnh vµ d÷ liÖu
1
0,5
3
 1,5
4
 2
Sö dông biÕn trong ch­¬ng tr×nh
2
 1
2
4
4
 5
Tõ bµi to¸n ®Õn ch­¬ng tr×nh
1
 0,5
1
 0,5
C©u lÖnh ®iÒu kiÖn
2
 0,5
1
0,5
3
 1
Tæng
8
3,5
5
2,5
2
4
14
 10
	III. ĐỀ BÀI
I. Tr¾c nghiÖm: (Em h·y khoanh trßn vµo ph­¬ng ¸n ®óng) 	
Câu 1: Tõ kho¸ ®Ó khai b¸o biÕn trong ng«n ng÷ lËp tr×nh Pascal lµ:
	A. Const 	A. Var 	C. Real	D. End
C©u 2: CÊu tróc chung hîp lý cña mét ch­¬ng tr×nh Pascal lµ :
A. Begin - Program - End.	B. Program - End - Begin.
C. End - Program - Begin.	D. Program - Begin - End.
C©u 3: Trong Pascal, khai b¸o nµo sau ®©y lµ ®óng :
A. const n=8; 	B. var 8tb: real;	 C. const x: real;	 D. Var R = 30;
C©u 4: BiÓu thøc to¸n häc (a2 + b)(1 + c)3 được biểu diễn trong Pascal như thế nào ? 
A. (a*a + b)(1+c)(1 + c)(1 + c)	B. (a.a + b)(1 + c)(1 + c)(1 + c)
C. (a*a + b)*(1 + c)*(1 + c)*(1 + c)	D. (a2 + b)(1 + c)3
Câu 5: Kết quả của phép chia 10 Mod 8 là:
A. 0	B. 1	C. 2	D. 3
C©u 6: §Ó ch¹y ch­¬ng tr×nh, ta sö dông tæ hîp phÝm nµo?
A. Ctrl +F9	B. Ctrl + Shift + F9	 C. F9	 	D. Alt + F9
C©u 7: Có ph¸p c©u lÖnh ®iÒu kiÖn d¹ng ®ñ:
A. If then ;
B. If then else ;
C. If then else ;
D. §¸p ¸n kh¸c
C©u 8: Trong cÊu tróc ch­¬ng tr×nh cña Pascal, phÇn nµo cã thÓ kh«ng cã?
PhÇn khai b¸o
PhÇn khai b¸o vµ phÇn th©n ch­¬ng tr×nh
PhÇn tªn vµ phÇn th©n ch­¬ng tr×nh
PhÇn th©n ch­¬ng tr×nh
II. Tù luËn : 	 
C©u 9: H·y t×m ra ®o¹n ch­¬ng tr×nh lçi vµ söa l¹i cho ®óng:	
Program vi_du;
Uses crt;
Var a, b, s, c : integer; 
Begin
	writeln(’nhap chieu dai a=’); readln(a);
	writeln(’nhap chieu rong b=’); readln(b);
	s:=a x b
	c:=(a+b) x 2
	writeln(’Dien tich hinh chu nhat la:’,’s’);
	writeln(’Chu vi hinh chu nhat la:’, c);
readln
End
Sửa lại: .
C©u 10: ViÕt ch­¬ng tr×nh nhËp 2 sè a, b tõ bµn phÝm. In ra mµn h×nh tæng, hiÖu, tÝch cña 2 sè ®ã.
IV. ĐÁP ÁN
I. Tr¾c nghiÖm
C©u 1
C©u 2
C©u 3
C©u 4
C©u 5
C©u 6
C©u 7
C©u 8
b
d
d
a
c
c
a
b
II. Tù luËn
C©u 13: Söa l¹i (Mỗi ý sai được sửa lại đúng được 0,5đ)
s:=a*b;	
c:=(a+b)*2;
Writeln(’dien tich hinh chu nhat la:’,s);
End.
C©u 14:
Program abc;
Uses crt;
Var a,b:integer;	(1đ)
	Begin
Writeln(‘nhap a= ‘ );readln(a);	(0,5đ)
Writeln (‘nhap b= ‘);readln(b);	(0,5đ)
Writeln(‘tong cua a va b la: ‘, a+b);	(0,5đ)
writeln(‘hieu cua a va b la: ‘, a-b);	(0,5đ)
readln
end.