|
TRƯỜNG THCS BAO LA
Họ và tên:..............................................
Lớp: 8....
|
KIỂM TRA
MÔN: TIN HỌC - LỚP 8
Thời gian: 45 phút (không kể thời gian phát đề)
|
Phần I. Trắc nghiệm (2 điểm): Hãy điền đáp án đúng nhất vào bảng đáp án
Câu 1. Pascal sử dụng câu lệnh nào sau đây để lặp với số lần lặp biết trước?
a. if...then b. if...then...else
c. for...do d. while...do
Câu 2. Pascal sử dụng câu lệnh nào sau đây để lặp với số lần lặp chưa biết trước?
a. if...then b. if...then...else
c. for...do d. while...do
Câu 3. Lệnh lặp nào sau đây là đúng
a. For = to do;
b. For := to do;
c. While <điều kiện> = do ;
d. While <điều kiện>:= do ;
Câu 4. Phát biểu nào sau đây đúng?
a. Phần mềm GeoGebra dùng để vẽ hình hình học.
b. Phần mềm Finger Break Out dùng để quan sát thời gian trên trái đất.
c. Phần mềm Pascal dùng để luyện gõ phím nhanh
d. Phần mềm Sun Times dùng để lập trình.
Câu 5. Câu lệnh Pascal: While (3*5>=15) do Writeln (3*5); sẽ
a. In số 15 ra màn hình 3 lần. b. In số 15 ra màn hình 5 lần.
c. Không thực hiện lệnh Writeln (3*5); d. Lặp vô hạn lần lệnh Writeln (3*5);
Câu 6: Trong câu lệnh lặp for….do của pascal, mỗi vòng lặp, biến đếm thay đổi như thế nào?
-
+1 b. +1 hoặc -1 c. Một giá trị bất kì d. Một giá trị khác 0
Câu 7. Trong câu lệnh lặp
For i:=1 to 20 do Begin s:=s+i end;
Câu lệnh ghép thực hiện bao nhiêu lần (nói cách khác, bao nhiêu vòng lặp được thực hiện)?
-
1 lần b. không lần nào c. 20 lần d. 21 lần
Câu 8. Lệnh lặp với số lần chưa biết trước nào sau đây là đúng?
a. For = to do;
b. For = to do;
c. While <điều kiện> = do
d. While <điều kiện>:= do
|
Câu
|
1
|
2
|
3
|
4
|
5
|
6
|
7
|
8
|
|
Đáp án
|
|
|
|
|
|
|
|
|
PHẦN II: Tự luận (8 điểm)
Câu 1: Viết chương trình sử dụng lệnh lặp while…do tính tổng các số chia hết cho 3 trong dãy số nguyên X1, X2, ..., Xn. Biết rằng n, X1, X2, ..., Xn là các số nguyên nhập từ bàn phím (n>0) ? (4 điểm)
Câu 2. Viết chương trình sử dụng lệnh lặp for…do tìm các số hoàn hảo nhỏ hơn 1000, số hoàn hảo là những số bằng tổng các ước thực sự của nó. (4 điểm)
BÀI LÀM
..........................................................
..........................................................
..........................................................
..........................................................
..........................................................
..........................................................
..........................................................
..........................................................
..........................................................
..........................................................
..........................................................
..........................................................
..........................................................
..........................................................
..........................................................
..........................................................
..........................................................
..........................................................
..........................................................
..........................................................
..........................................................
..........................................................
..........................................................
..........................................................
..........................................................
..........................................................
..........................................................
..........................................................
..........................................................
..........................................................
Đáp án:
Phần I:
|
Câu
|
1
|
2
|
3
|
4
|
5
|
6
|
7
|
8
|
|
Đáp án
|
c
|
d
|
b
|
a
|
d
|
b
|
c
|
d
|
Phần II:
Câu 1: Chương trình (4 điểm)
Var n, x, i, S: Integer;
Begin
Write ('Nhap n: '); Readln (n);
i:= 0; S := 0;
While i < n do
Begin
i:= i + 1;
Write ('Nhap so thu ',i,' = '); Readln (x);
if x mod 3 = 0 then S := S + x;
End;
Writeln ('Tong cac so chia het cho 3 la : ',S);Readln;
End.
Cách chấm điểm:
- Khai báo đúng 4 biến Integer: 0,5 điểm.
- Viết đúng lệnh nhập giá trị cho biến n: 0,5 điểm.
- Viết đúng lệnh gán khởi tạo giá trị ban đầu cho hai biến i và S: 0,5 điểm.
- Viết đúng lệnh While... do và sử dụng đúng lệnh ghép sau DO: 2 điểm.
- Viết đúng lệnh xuất giá trị của biến S: 0,5 điểm.
Câu 2: Chương trình (4 điểm)
Var n, i, j, s: integer;
Begin
Write (‘ban can tim so hoan hao nho hon bao nhieu?:’); readln(n);
For i:=2 to n do
Begin
S:=1;
For j:= 2 to (i div 2) do
If i mod j=0 then S:=s+j;
If s=i then
Writeln(i:7,’ la so hoan hao’);
End;
Readln
End.
Ghi chú: Học sinh có thể làm bằng cách khác (sử dụng lệnh For...do, khai báo tên biến khác với đáp án v...v...) mà cho kết quả đúng thì vẫn đạt điểm tối đa
nguon VI OLET
