Kiem tra HK II (khong can sua, chi in)

Trường THCS Hùng Vương
Tên:.....................................................
Lớp: 8/......
KIỂM TRA HỌC KÌ II
Môn: Tin 8
Thời gian: 45 phút
Điểm


I.Trắc nghiệm: Khoanh tròn vào câu trả lời đúng nhất (3đ)
1. Lệnh lặp sau: for i:=0 to 5 do begin…end; được thực hiện bao nhiêu lần?
a. 7 b. 6
c. 5 d. Không lần nào
2. Câu lệnh sau đây: for i=0 to 5 do x=x+1; sai ở chổ nào?
a. giá trị đầu không là kiểu số nguyên b. thiếu dấu : sau biến i
c. thiếu dấu : sau biến x d. thiếu dấu : sau biến i và x
3. Kết quả của j, k là bao nhiêu sau khi thực hiện chương trình này?
j:=4; k:=2; for i:=1 to 5 do j:=j+2; k:=k+j;
a. j = 14, k=6 b. j = 14, k=16
c. j = 10, k=11 d. j = 16, k=14
4. Chọn điều kiện Đúng trong các điều kiện sau?
a. x=3 b. x/3
c. x
3 d. x= < 3
5. Hoạt động nào dưới đây được thực hiện với số lần biết trước?
a. Nhập số từ bàn phím và tính tổng cho đến khi lần đầu tiên nhận được tổng > 1200.
b. Rút tiền dần từ sổ tiết kiệm cho đến khi số dư còn lại < 50000 đồng.
c. Nhập các số nguyên từ bàn phím cho đến khi đủ 50 số.
d. Tính tổng của n số nguyên dương đầu tiên.
6. Các hình thức nào dưới đây không là dạng bài tập của mảng 1 chiều?
a. Dãy số b. Danh sách giáo viên
c. Danh sách học sinh d. Bàn cờ vua
II. Tự luận: (7đ)
Trong các câu lệnh lặp Pascal sau đây đúng hay sai. Vì sao? (2đ)
while i<5 do i=i+1;
while 3=3 do i:=i+1;
while x<3 do x:=x+1;
for i:=2.5 to 10 do x:=x+1;
2. Viết chương trình nhập mảng, in mảng, tìm số nhỏ nhất trong mảng(3đ)
3. a. Hãy viết cấu trúc của khai báo một biến mảng. Cho ví dụ.(1.5 đ)
b. Viết lệnh gán cho bài toán sau: B =
+
+
…+
(0.5đ)
BÀI LÀM








ĐÁP ÁN:
I. Trắc nghiệm: Mỗi ý đúng 0.5 đ
Câu
1
2
3
4
5
6

Đáp án
D
D
B
A
C
D


II. Tự luận:
1.
a. Sai vì thừa dấu : sau biến i
b. Sai vì lặp vô hạn
c. đúng
d. Sai vì giá trị đầu là số thập phân
2. (*Khai báo đúng cú pháp, đúng số lượng biến, đúng kiểu dữ liệu 1 điểm*)
var a:array[1..100] of integer;
I,n,min:integer;
Begin
write(‘nhap n:’); readln(n);
for i:=1 to n do
begin (1 điểm)
write(‘nhap so thu’,i,’ ‘);
readln(a[i]);
end;
for i:=1 to n do write(a[i],’ ‘); (0.5 điểm)
min:=a[1];
for i:=2 to n do
if a[i]write(‘so nho nhat trong mang la:’,min:3); (0.5 điểm)
readln;
End.
3.
a.Var tên biến mảng:array[chỉ số đầu..chỉ số cuối] of kiểu dữ liệu; (1 điểm)
Ví dụ: Var Chieucao: Array[1..100] of real; (0.5 điểm)
b. B ( B + 1/a+i