PHẦN TỰ LUẬN 6 điểm: Caâu1 2 ñ: Lợi ích của việc sử dụng biến mảng là rút gọn việc viết chương trình, có thể sử dụng câu lệnh lặp để thay nhiều câu lệnh.. Thông báo S kết thúc thuật toán[r]
(1)Hoï vaø teâ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 Ñieåm Lời nhận xét GV I PHAÀN THI TRAÉC NGHIEÄM ( ñieåm): * Khoanh tròn vào câu trả lời đúng 1/ Trong caâu leänh laëp: For i:=1 to 10 begin … end; Có bao nhiêu vòng lặp thực hiện? A Khoâng laàn naøo B laàn C 10 laàn 2/ Câu lệnh lặp while … có dạng đúng là: A) While <ñieàu kieän> do; <caâu leänh>; C) While <caâu leänh> <ñieàu kieän>; D laàn B) While <ñieàu kieän> <caâu leänh> do; D) While <ñieàu kieän> <caâu leänh>; 3/ Các câu lệnh Pascal sau đây viết đúng 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 các hoạt động đây, hoạt động nào 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 đầu tiên b Nhập các 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 các hiệu a – b, a – 2b, a – 3b, …, a b > 0) hiệu thu nhỏ b d Nhập các số từ bàn phím và tính tổng lần đầu tiên nhận tổng lớn 1000 thì kết thúc 5/ Đoạn lệnh sau đây cho kết gì? so:=1; While so < 10 writeln(so); so:=so + 1; A In các số từ đến 9; B In các số từ đến 10; C In voâ haïn caùc soá 1, moãi soá treân moät doøng; D Khoâng phöông aùn nào đúng 6/ Cho S và i là 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 quaû in leân maøn hình laø cuûa s laø : A.11 B 55 C 12 D.13 7/ Điền vào chỗ trông cho đúng ( 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ở màn hình soạn thảo bấm (4) - (2) II PHẦN TỰ LUẬN: (6 ĐIỂM) Caâu 1: Hãy nêu các 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 các 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 đúng: Var i: real; Begin Clrscr; For i:= to 20 do; Begin writeln( ‘0’); delay (100); Readln End Baøi laøm (3) ĐÁP ÁN + BIỂU ĐIỂM (Môn tin lớp 8) I PHAÀN TRAÉC NGHIEÄM (4 ñieåm): Caâu Caâu Caâu Caâu Caâu Caâu Caâu 7: C D C D C C Mỗi ý đúng 0.25đ (1)- F2, (2)- Alt - F9, (3) - Ctrl - F9, (4) Enter 0.5 ñieåm 0.5 ñieåm 0.5 ñieåm 0.5 ñieåm 0.5 ñieåm 0.5 ñieåm 1ñieåm II PHẦN TỰ LUẬN (6 điểm): Caâu1( ñ): Lợi ích việc sử dụng biến mảng là rút gọn việc viết chương trình, có thể sử dụng câu lệnh lặp để thay nhiều câu lệnh Ngoài chúng ta còn có thể lưu trữ và xữ lí nhiều liệu có nội dung liên quan đến cách hiệu Caâu2: (2.25 ñ) Input: n vaø daõy n soá a1, a2, ,,,,,, an 0.5 ñ Output: S =Toång caùc soá >0 daõy a1, a2, ,,,,,, an 0.5 ñ B1 S 0, i 0.25 ñ B2 i i+1 0.25ñ B3 Neáu > 0, S S+ai; 0.25ñ B4 Neáu i n, quay laï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 đ- ý đúng 0.25 đ) i: integer; sau khoâng coù daáu (; ), thieáu end; Ngaøy 27 thaùng 04 naêm 2010 GVBM Nguyeãn Thò Thu Haèng (4) ĐÁP ÁN KIỂM TRA – HKII ĐỀ A I PHAÀN TRAÉC NGHIEÄM: Mỗi ý đúng 0.5đ 1.C 2.D 3.C 4.D 5.C a- S, b- S, c- S, d- Ñ 7/ ý đúng 0.25đ (1)- F2, (2)- Alt - F9, (3) - Ctrl - F9, (4) Enter II PHẦN TỰ LUẬN: Bài 4: ý đúng 0.5đ S, dư dấu hai chấm đầu tiên i:=1 Ñ S, dư dấu chấm phẩy trước từ khóa S, voøng laëp voâ taän khoâng coù caâu lệnh ghép làm thay đổi biến i(lỗi ngữ nghóa) ĐỀ B I PHAÀN TRAÉC NGHIEÄM: Bài 1: ý đúng 0.5đ 1.B 2.A a- S, b- S, c- S, d- Ñ 4.B 5.B 6.C 7/ ý đúng 0.25đ 1.Ñ Ñ 3.S 4.Ñ II PHẦN TỰ LUẬN Bài 4: ý đúng 0.5đ S, giá trị đầu phải nhỏ giá trị cuoái S, voøng laëp voâ taän khoâng coù caâ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 (5) Baøi 5: * Thuật toá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 và 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 ý đúng 0.25đ, thiếu ý -0.25đ/ý) Ñ Baøi 5: * Thuật toá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 và 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 <= n – Begin If n mod i=0 then s:=s + i; i:=i + 1; End; Write(‘Tong cac uoc thuc su cua’,n,’la ‘,s); (Mỗi ý đúng 0.25đ, thiếu ý -0.25đ/ý) (6)