ĐỀ THI TIN HỌC 8 - HỌC KỲ II

TIẾT 70 Giảng ngày:………………….tại 8A
Giảng ngày:………………….tại 8B
Giảng ngày:………………….tại 8C
KIỂM TRA HỌC KỲ II
I. MỤC TIÊU
- Kiến thức
- Nhận biết được các tình huống sử dụng câu lệnh lặp.
- Biết vận dụng câu lệnh lặp để viết chương trình.
- Biết cách khai báo mảng, in mảng, sử dụng các phần tử của mảng.
- Nhận biết được cấu trúc của một dãy số,Thực hiện nhập, xuất một dãy số.
- Hiểu hoạt động của câu lệnh lặp for do
- Kĩ năng
+ Hình thành kĩ năng viết chương trình trong Turbo pascal.
- Thái độ
+ Làm bài nghiêm túc.
II. CHUẨN BỊ:
GV: Đề kiểm tra, bài phát cho HS.
HS: Các kiến thức đã học ở học kỳ II.
III. HOẠT ĐỘNG DẠY VÀ HỌC
A. MA TRẬN ĐỀ
Mức độ

Nội dung
Nhận biết Thông hiểu Vận dụng
Tống số
TN TL TN TL
VDT VDC
TN TL TN TL
Câu lệnh lặp
Biết cú pháp câu
lệnh lặp với số lần

chưa biết trước.
Sử dung được
câu lệnh lặp để
áp dụng tính
một số phép
toán đơn giản.
Số câu 2 1 3
Số điểm - % 1 -10% 0,5 -5% 1,5 -15%
Lặp với số
lần chưa biết
trước
Biết và viết đúng
cú pháp câu lệnh
lặp while…do
Hiểu nguyên tắc
của vòng lặp
while…do
Sử dụng được
câu lệnh lặp với
số lần chưa biết
trước phù hợp
cho từng trường
hợp cụ thể
Số câu 1 1 1 1 4
Số điểm - % 0,5 – 5% 1 -10% 0,5 -5% 2 -20% 4 -40%
Làm việc với
dãy số
Hiểu hoạt động
của các câu lệnh
khi kết hợp với

biến mảng
Thực hiện được
việc khai báo
biến mảng. Viết
được các câu
lệnh nhập giá trị
và tính toán với
các biến mảng.
Số câu 1 1 4
Số điểm 0,5 -5% 4-40% 4,5-45%
Tổng số câu 4 3 1 1 11
Tổng số điểm 2,5 điểm 1,5 điểm 2 điểm 4 điểm 10 điểm
Tỷ lệ 25% 15% 20% 40% 100%
B. ĐỀ KIỂM TRA
Phần trắc nghiệm: (3 điểm - mỗi câu 0,5 điểm) Hãy chọn một đáp án đúng nhất.
Câu 1. Trong Pascal, câu lệnh nào sau đây được viết đúng?
A. for i := 4 to 1 do writeln(‘A’); B. for i := 1 to 10 writeln(‘A’);
C. for i := 1 to 100 do writeln(‘A’); D. for i to 10 do writeln(‘A’);
Câu 2. Trong câu lệnh lặp: For i := 1 to 10 do j := j + 2; write( j );
Khi kết thúc câu lệnh lặp trên, câu lệnh write( j ); được thực hiện bao nhiêu lần?
A. 10 lần ; B. 5 lần; C. 1 lần; D. Không thực hiện.
Câu 3. Cho đoạn chương trình: j := 0; k := 2;
For i := 1 to 5 do j := j + 2; k := k + j;
Sau khi thực hiện đoạn chương trình trên, giá trị của biến k bằng bao nhiêu?
A. 22; B. 32; C. 42; D. 52.
Câu 4. Trong Pascal, câu lệnh nào sau đây là đúng?
A. S:=1; B. i:=0; S:=1;
While S<10 do write(S); while s<10 do S:=S+i; i:=i+1;
C. n:=2; while n<5 do write(‘A’); D. Cả A và B.
Câu 5. Khi thực hiện đoạn chương trình sau: n:=1; T:=50;

While n>20 do begin n:=n+5; T:=T - n end;
Hãy cho biết giá trị của biến T bằng bao nhiêu?
A. 14 B. 15 C. 16 D. 17
Câu 6. Khai báo biến mảng: A : array[1 7] of real;. Sử dụng câu lệnh For i:= 1 to 5 do readln(A[i]); để
gán giá trị cho các phần tử trong biến A từ bàn phím, ta sẽ nhập được bao nhiêu giá trị?
A. 5; B. 6; C. 7; D. 8.
Phần tự luận: ( 3 điểm)
Câu 1. (1 điểm) Viết cú pháp câu lệnh lặp với số lần chưa biết trước. Nêu hoạt động của câu lệnh.
Câu 2. (2 điểm) Cho thuật toán sau:
B1: j ß 0; T ß 100;
B2: Nếu T< 30 thì chuyển qua B4;
B3: j ß j + 5; T ß T – j;
B4: In ra kết quả T và j;
a) Hãy cho biết, khi thực hiện thuật toán trên, máy tính sẽ thực hiện bao nhiêu vòng lặp và
giá trị của T và j là bao nhiêu (1 điểm)
b) Sử dụng câu lệnh lặp while…do viết đoạn chương trình thể hiện thuật toán trên. (1 điểm)
Phần thực hành (4đ)
Câu 3. (4 điểm) Viết chương trình nhập và in ra màn hình bảng điểm kiểm tra học kỳ môn tin của
N học sinh. Với N và điểm kiểm tra được nhập từ bàn phím (sử dụng biến mảng).
C. ĐÁP ÁN VÀ BIỂU ĐIỂM
Phần trắc nghiệm: (3 điểm – mỗi câu đúng 0,5 điểm).
Câu 1 2 3 4 5 6
Đáp án C C B B D A
Phần tự luận – Thực hành: (7 điểm)
CÂU ĐÁP ÁN ĐIỂM
Câu 1
- Cú pháp câu lệnh: while <điều kiện> do <câu lệnh>;
- Hoạt động: Khi thực hiện câu lệnh chương trình kiểm tra điều
kiện. Nếu điều kiện đúng thực hiện câu lệnh sau từ khóa do và quay
lại kiểm tra điều kiện. Nếu điều kiện sai bỏ qua câu lệnh sau từ khóa

do và kết thúc.
0,5
0,5
Câu 2
a
Khi thực hiện thuật toán trên, máy tính sẽ thực hiện 05 vòng lặp và
T = 25; j = 25.
1
b
Đoạn chương trình thể hiện thuật toán:
j := 0; T := 100;
While T >= 30 do begin j := j + 5; T := T - j end;
Write(T); write(j);
1
Câu 3
Program trung_binh;
Uses crt;
Var n, i : integer;
Diem : array[1 50] of real;
Begin
Clrscr;
Write(‘Nhap so luong hoc sinh N = ‘); Readln(n);
Writeln(‘Nhap diem cho tung hoc sinh’);
For i := 1 to n do
Begin
Write(‘Diem HS ‘,i,’ = ‘); readln(Diem[i]);
End;
For i : = 1 to n do begin
Writeln(‘Diem cua HS ‘,i, ‘ = ‘,diem[i]:3:2); end;
Readln;

End.
1
1
1
1