TRƯỜNG THCS ĐẠ LONG Teân Lôùp ĐỀ KIỂM TRA HỌC KÌ I Năm học 2012 2013 Môn Tin học 8 Thời gian 45 phút Điểm Lời phê của GV ĐỀ BÀI A TRẮC NGHIỆM KHÁCH QUAN (5đ) Khoang tròn vào đáp án đúng nhất Câu 1 Tr[.]
TRƯỜNG THCS ĐẠ LONG Teân: Lớp: ĐỀ KIỂM TRA HỌC KÌ I Năm học 2012 - 2013 Môn: Tin học Thời gian : 45 phút Điểm Lời phê GV ĐỀ BÀI: A TRẮC NGHIỆM KHÁCH QUAN (5đ) Khoang tròn vào đáp án Câu 1: Trong Pascal, câu lệnh sau viết đúng? A for i:= to writeln(‘A’); B for i= to 10 writeln(‘A’); C for i:= to 10 writeln(‘A’); D for i to 10 writeln(‘A’); Câu 2: Câu lệnh viết cú pháp ngơn ngữ lập trình Pascal là: A While to ; B While ; C While to ; D While ; ; Câu 3: Cho đoạn chương trình: j:= 0; For i:= to j:= j + i; Sau thực đoạn chương trình trên, giá trị biến j bao nhiêu? A 12; B 22; C 15; D 42 Câu 4: Phần mềm GeoGebra phần mềm dùng để: A vẽ hình hình học đơn giản B tạo ngơn ngữ lập trình C luyện gõ phím nhanh D tìm hiểu thời gian trái đất Câu 5: Trong câu lệnh lặp: For i := to 10 j:= j + 2; write(j); Khi kết thúc câu lệnh lặp trên, câu lệnh write(j); thực lần? A 10 lần ; B lần; C lần; D lần Câu 6: Trong phần mềm GeoGebra công cụ không dùng để vẽ? A ; B ; C ; D Câu 7: Câu lệnh Pascal: While (3*5>=15) Writeln (3*5); : A In số 15 hình lần B In số 15 hình lần C Không thực lệnh Writeln (3*5); D Lặp vô hạn lần lệnh Writeln (3*5); Câu 8: Câu lệnh lặp với số lần biết trước có số vịng lặp tính bằng: A giá trị cuối – giá trị đầu B giá trị đầu – giá trị cuối + C giá trị cuối – giá trị đầu + D giá trị đầu – giá trị cuối Câu 9: Trong phần mềm GeoGebra công cụ dùng để tạo: A điểm giao hai đối tượng có mặt phẳng B trung điểm (đoạn thẳng nối) hai điểm cho trước C đoạn thẳng qua điểm cho trước D đường trung trực đoạn thẳng hai điểm cho trước Câu 10: Khi thực đoạn chương trình sau: n:= 0; While n < 20 n:= n + 3; Writeln(n); Hãy cho biết giá trị biến T bao nhiêu? A 21 B 17 C 23 D 19 B TỰ LUẬN (5đ) Câu 1: (2 điểm) Cho biết lỗi sai câu lệnh sau? Sửa lại câu lệnh cho hợp lệ? a) For i:= 100 to writeln(‘A’); b) For i:= 1.5 to 10.5 Writeln(‘A’); c) X: = 10; while X: =10 X: = X + 5; d) X: = 10; while X =10 X = X + 5; Câu 2: (3 điểm) Viết chương trình tính tổng BÀI LÀM: sử dụng lệnh lặp for…do? ĐÁP ÁN VÀ THANG ĐIỂM Câu Trắc nghiệm 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 Tự luận Nội dung Điểm 1C; 2B; 3C; 4A; 5C; 6B; 7D; 8C; 9B; 10A Mỗi câu 0.5đ a) For i:= 100 to writeln(‘A’); - Giá trị đầu lớn giá trị cuối - Sửa lại: For i:= to 100 writeln(‘A’); b) For i:= 1.5 to 10.5 Writeln(‘A’); - Giá trị biến đếm phải số nguyên số thực - Sửa lại For i:= to 10 Writeln(‘A’); c) X:= 10; while X:= 10 X:= X + 5; - Điều kiện khơng có phép gán giá trị - Sửa lại X:= 10; while X = 10 X:= X + 5; d) X: = 10; while X = 10 X := X + 0; - Lỗi lặp vô hạn lần, điều kiện ln khơng có điều kiện sai - Sửa lại X: = 10; while X = 10 X := X + (một giá trị khác 0); Program Chuong_trinh; Uses Crt; Var i: Integer; T: Real; BEGIN Clrscr; T:= 0; For i:= To 100 Do T:= T + 1/i; Writeln(T); Readln; END 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.5đ 0.25đ 0.25đ 0.25đ