Họ tên: Lớp: ĐỀ THI HỌC KÌ II - NĂM HỌC: 2009 - 2010 Môn: TIN HỌC - Thời gian 45 phút Điểm Lời nhận xét GV I PHẦN THI TRẮC NGHIỆM ( điểm): * Khoanh tròn vào câu trả lời 1/ Trong câu lệnh lặp: For i:=1 to 10 begin … end; Có vòng lặp thực hiện? A Không lần B lần C 10 lần 2/ Câu lệnh lặp while … có dạng là: A) While do; ; C) While ; D lần B) While do; D) While ; 3/ Các câu lệnh Pascal sau viết hay sai( khoanh vào câu đúng): a if x:=7 then a=b; c if x>5 then a:=b; m:= n; b, if x>5; then a:=b; d if x> then a:= b; else m:=n; 4/ Trong hoạt động đây, hoạt động thực lặp lại với số lần chưa biết trước? a Tính tổng 20 số tự nhiên b Nhập số nguyên từ bàn phím đủ 50 số c.Trừ số nguyên dương a nhiều lần cho số nguyên dương b (tức tính hiệu a – b, a – 2b, a – 3b, …, a b > 0) hiệu thu nhỏ b d Nhập số từ bàn phím tính tổng lần nhận tổng lớn 1000 kết thúc 5/ Đoạn lệnh sau cho kết gì? so:=1; While so < 10 writeln(so); so:=so + 1; A In số từ đến 9; B In số từ đến 10; C In vô hạn số 1, số dòng; D Không phương án 6/ Cho S i biến nguyên Khi chạy đoạn chương trình : s:=0; for i:=1 to s := s+2; writeln(s); Keát in lên hình s : A.11 B 55 C 12 D.13 7/ Điền vào chỗ trông cho ( chương trình Pascal): - Để lưu tệp ta bấm(1) , dịch lỗi cú pháp bấm (2) thực chương trình bấm tổ hợp phím(3) , trở hình soạn thảo bấm (4) DeThiMau.vn II PHẦN TỰ LUẬN: (6 ĐIỂM) Câu 1: Hãy nêu lợi ích việc sử dụng biến mảng chương trình? Câu 2: Hãy mô tả thuật toán tính tổng số dương dãy số A= {a1, a2, ,,,,,, an} cho trước Câu 3: Sửa lỗi đoạn chương trình sau cho ñuùng: Var i: real; Begin Clrscr; For i:= to 20 do; Begin writeln( ‘0’); delay (100); Readln End Baøi laøm DeThiMau.vn ĐÁP ÁN + BIỂU ĐIỂM (Môn tin lớp 8) I PHẦN TRẮC NGHIỆM (4 điểm): Câu Câu Caâu Caâu Caâu Caâu Caâu 7: C D C D C C Mỗi ý 0.25đ (1)- F2, (2)- Alt - F9, (3) - Ctrl - F9, (4) Enter 0.5 điểm 0.5 điểm 0.5 điểm 0.5 điểm 0.5 điểm 0.5 điểm 1điểm II PHẦN TỰ LUẬN (6 điểm): Câu1( đ): Lợi ích việc sử dụng biến mảng rút gọn việc viết chương trình, sử dụng câu lệnh lặp để thay nhiều câu lệnh Ngồi cịn lưu trữ xữ lí nhiều liệu có nội dung liên quan đến cách hiệu Caâu2: (2.25 đ) Input: n dãy n số a1, a2, ,,,,,, an 0.5 đ Output: S =Tổng số >0 dãy a1, a2, ,,,,,, an 0.5 đ 0.25 đ B1 S 0, i B2 i i+1 0.25đ 0.25đ B3 Nếu > 0, S S+ai; B4 Nếu i n, quay lại B2 0.25 B5 Thông báo S kết thúc thuật toán 0.25 đ Câu 3:( 0.75 đ- ý 0.25 đ) i: integer; sau dấu (; ), thiếu end; Ngày 27 tháng 04 năm 2010 GVBM Nguyễn Thị Thu Hằng DeThiMau.vn ĐÁP ÁN KIỂM TRA – HKII ĐỀ A ĐỀ B I PHẦN TRẮC NGHIỆM: I PHẦN TRẮC NGHIỆM: Mỗi ý 0.5đ 1.C 2.D 3.C 4.D 5.C a- S, b- S, c- S, d- Đ 7/ ý 0.25đ (1)- F2, (2)- Alt - F9, (3) - Ctrl - F9, (4) Enter Bài 1: ý 0.5đ 1.B 2.A a- S, b- S, c- S, d- Ñ 4.B 5.B 6.C 7/ ý 0.25đ 1.Đ Đ 3.S 4.Đ II PHẦN TỰ LUẬN II PHẦN TỰ LUẬN: Bài 4: ý 0.5đ S, dư dấu hai chấm i:=1 Đ S, dư dấu chấm phẩy trước từ khóa S, vòng lặp vô tận câu lệnh ghép làm thay đổi biến i(lỗi ngữ DeThiMau.vn Bài 4: ý 0.5đ S, giá trị đầu phải nhỏ giá trị cuối S, vòng lặp vô tận câu lệnh ghép làm thay đổi biến i(lỗi ngữ nghóa) S, dư dấu chấm phẩy trước từ khóa nghóa) Bài 5: * Thuật tốn for B1: nhập n B2: s:=0; i:=0; B3: i > n – 1, chuyển đến B6 B4: Nếu n mod i = 0, s:=s + i, i:=i + B5: i < n, quay lại B4 B5: In s kết thúc * Chương trình: Var n,i,s: integer; Begin Write(‘Cho so tu nhien n = ‘); readln(n); s:=0; for i:=2 to n - If n mod i=0 then s:=s + i; Write(‘Tong cac uoc thuc su cua’,n,’la ‘,s); (Mỗi ý 0.25đ, thiếu ý -0.25đ/ý) DeThiMau.vn Đ Bài 5: * Thuật tốn while B1: nhập n B2: s:=0; i:=0; B3: i> n – 1, chuyển đến B5 B4: Nếu n mod i: = 0, s:=s + i, i:=i + 1và quay lại B3 B5: In s kết thúc * Chương trình: Var n,i,s: integer; Begin Write(‘Cho so tu nhien n = ‘); readln(n); i:=2; s:=0; While i