Đề kiểm tra môn Tin học Lớp 8 - Trường THCS Bao La

Nội dung text: Đề kiểm tra môn Tin học Lớp 8 - Trường THCS Bao La

1. TRƯỜNG THCS BAO LA KIỂM TRA MÔN: TIN HỌC - LỚP 8 Họ và tên: Thời gian: 45 phút (không kể thời gian phát đề) Lớp: 8 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 = do ; d. While := 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? 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 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)? a. 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 = do ; d. While := 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)
2. 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
3. Đá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