Đề kiểm tra học kỳ II (đề A) môn: Tin học 8

Họ và tên: ..................................................................................................................................
ĐỀ KIỂM TRA HỌC KỲ II (Đề A)
Lớp: ...........................................
MÔN: TIN HỌC 8
Phần I: (5đ) TRẮC NGHIỆM. Hãy khoanh tròn vào chữ cái đứng trước câu trả lời em cho là đúng nhất
Câu 1: Lệnh lặp nào sau đây là đúng?
For = to do ;
For := to do ;
For := to do ;
For : to do ;
Câu 2: Vòng lặp While do ; là vòng lặp:
A. Chưa biết trước số lần lặp	 B. Biết trước số lần lặp 
C. Biết trước số lần lặp nhưng giới hạn là =100 
Câu 3: Sau khi thực hiện đoạn chương trình sau, giá trị của biến S bằng bao nhiêu:
 s:=1;
 for i:=1 to 5 do s := s*i;
A.120 	B. 55 	C. 121	D. 151
Câu 4: Phần thân chương trình bắt đầu bằng từ khóa:
A. End.	B. Begin.	C. Uses.	D. Var.
Câu 5: Chọn khai báo hợp lệ:
A. Var a,b: array[1 .. n] of real;	C. Var a,b: array[1 : n] of Integer;
	B. Var a,b: array[1 .. 100] of real;	D. Var a,b: array[1  100] of real;
Câu 6: Đâu là công việc phải thực hiện nhiều lần với số lần biết trước?
Hàng ngày em đi học.	 
Em bị ốm vào một dịp có dịch cúm 
Đến nhà bà ngoại chơi vào một hôm cả bố và mẹ đi vắng 
Ngày đánh răng ba lần 
Câu 7: Pascal sử dụng câu lệnh lặp nào sau đây để lặp với số lần chưa biết trước?
a/ Fordo; b/Whiledo; c/ If..then; d/ Ifthenelse;
Câu 8: Em được học vẽ hình với phần mềm nào?
a/ Pascal; b/ Geogebra; c/ Mario; d/ Finger Break out;
Câu 9: Trong Pascal để dừng chương trình trong 5 giây ta dùng lệnh?
A. Readln(500); 	B. Readln(5000);
C. Delay(5000);	D. Delay(500);
Câu 10: Biến a được nhận các giá trị là 0 ; -1 ; 1 ; 2,3 . Ta có thể khai báo a thuộc kiểu dữ liệu nào?
a. Integer	 	b. Char
c. Real	d. Integer và Longint
Phần II: TỰ LUẬN (5 điểm) - Đề A
Câu 1(2 điểm): Điền X vào các ô sao cho phù hợp và giải thích vì sao?
Câu
Đúng
Sai
Giải thích
a) for i=1 to 10 do writeln('A'); 
b) var X: Array[510] Of real; 
c) X:=10; while X=10 do; X := X+5; 
d) if x>5 then a:=b; else m := n; 
Câu 2: (3đ) Viết chương trình tính tổng N số tự nhiên đầu tiên bắt đầu =1. Với N là một số bất kỳ được nhập vào từ bàn phím.
ĐÁP ÁN:
Phần I: 5đ
1
2
3
4
5
6
7
8
9
10
B
A
A
B
B
D
B
B
C
C
Phần II:
Câu 1: 2đ
Câu
Đúng
Sai
Giải thích
a) for i=1 to 10 do writeln('A'); 
X
i:=1
b) var X: Array[510] Of real; 
X
[5..10]
c) X:=10; while X=10 do; X := X+5; 
X
do X:=X+5;
d) if x>5 then a:=b; else m := n; 
X
a:=b else m:=n;
Câu 2:
Program tinhtong;
Uses crt;
Var s,n,i:integer;
Begin
Write(‘nhap so n=’); readln(n);
S:=0;
For i:=1 to n do s:=s+i;
Writeln(‘tong cua ‘,n,’ so tu nhien dau tien la: ’,s);
Readln
End.
Họ và tên: ..................................................................................................................................
ĐỀ KIỂM TRA HỌC KỲ II (Đề B)
Lớp: ...........................................
MÔN: TIN HỌC 8
Phần I: (5đ) TRẮC NGHIỆM. Hãy khoanh tròn vào chữ cái đứng trước câu trả lời em cho là đúng nhất
Câu 1: Cú pháp khai báo biến mảng trong Pascal là:
var ; array [..] of ;
var : aray [] of ;
var : array [..] of ;
var : array [] for ;
Câu 2: Câu lệnh pascal nào sau đây là hợp lệ?
A. For i:=100 to 1 do writeln(‘A’);	B. For i:=1.5 to 10.5 do writeln(‘A’);
 C.	For i= 1 to 10 do writeln(‘A’);	D. For i:= 1 to 10 do writeln(‘A’);
Câu 3: Trong lệnh lặp fordo của Pascal, trong mỗi vòng lặp, biến đếm thay đổi như thế nào?
	A. +1	B. +1 hoặc -1	 	C. Một giá trị bất kì	D. Một giá trị khác 0
Câu 4: Cú pháp của câu lệnh Whiledo là:
 a. While to ;
 c. While do ;
 b. While to do ;
 d. While ; do ;
Câu 5: Lệnh lặp nào sau đây là đúng?
For = to do ;
For := to do ;
For := to do ;
For : to do ;
Câu 6: Sau khi thực hiện đoạn chương trình sau: 
S:=0; For i:=1 to 5 do S:=S+i; 
Giá trị của biến S bằng bao nhiêu?
 A. 20 B. 15 C. 10	 D. 0
Câu 7: 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 8: Cho các câu lệnh sau hay chỉ ra câu lệnh đúng: 
 a. for i:=1 to 10; do x:=x+1 c. for i:=1 to 10 do x:=x+1
 b. for i:=10 to 1 do x:=x+1. d. for i:= 1 to 10 for j:=1 to 10 do x:=x+1
Câu 9: Cho S và i là biến nguyên. Khi chạy đoạn chương trình :
 s:=1;
 for i:=1 to 5 do s := s *i;
 writeln(s);
 Kết quả in lên màn hình là : 
	a.	s = 72 	b.	s = 101	c.	s = 55	d.	s = 120
Câu 10: Trong Pascal để dừng chương trình trong 5 giây ta dùng lệnh?
A. Delay(5000);	B. Delay(500);
C. Readln(500); 	D. Readln(5000);
Phần II: TỰ LUẬN (5 điểm) - Đề B
Câu 1 (2 điểm): Điền X vào các ô sao cho phù hợp và giải thích vì sao?
Câu
Đúng
Sai
Giải thích
a) X:=10; while X=10 do; X := X+5; 
b) if x>5 then a:=b; else m := n; 
c) for i:=10 to 1 do writeln('A'); 
d) var X: Array[510] Of integer; 
Câu 2: (3đ) Viết chương trình tính tích N số tự nhiên đầu tiên bắt đầu =1. Với N là một số bất kỳ được nhập vào từ bàn phím.
ĐÁP ÁN:
Phần I: 5đ
1
2
3
4
5
6
7
8
9
10
C
D
A
C
B
B
D
C
D
A
Phần II:
Câu 1: 2đ
Câu
Đúng
Sai
Giải thích
a) X:=10; while X=10 do; X := X+5; 
X
X=10 do X := X+5; 
b) if x>5 then a:=b; else m := n; 
X
a:=b else m := n; 
c) for i:=10 to 1 do writeln('A'); 
X
i:=1 to 10 do writeln('A'); 
d) var X: Array[510] Of integer; 
X
[5..10]
Câu 2:
Program tinhTICH;
Uses crt;
Var p:longint;
	I,n:integer
Begin
Write(‘nhap so n=’); readln(n);
p:=1;
For i:=1 to n do p:=p*i;
Writeln(‘TICH cua ‘,n,’ so tu nhien dau tien la: ’,p);
Readln
End.