Trờng THCS PHúC THịNH Họ tên HS: Lớp: bài kiểm tra học kỳ II Môn: Tin học 8 - 9 Thời gian: 45 phút (Không kể thời gian giao đề) Điểm Nhận xét của giáo viên (Học sinh làm bài trực tiếp vào tờ giấy thi) Đề bài: A. PHN TRC NGHIM (3) Hóy chn ỏp ỏn ỳng nht (Mi cõu ỳng 0.5) Cõu 1: Em hiu cõu lnh lp theo ngha no di õy? a. Mt lnh thay cho nhiu lnh b. Vỡ cõu lnh ó cú tờn l lnh lp c. Cỏc cõu lnh c vit lp i lp lai nhiu ln d. C a, b, c u sai Cõu 2: Lnh lp no sau õy l ỳng? a. For <bin m>= <giỏ tr u> to <giỏ tr cui> do <cõu lnh>; b. For <bin m>:= <giỏ tr u> to <giỏ tr cui> do <cõu lnh>; c. For <bin m>:= <giỏ tr cui> to <giỏ tr u> do <cõu lnh>; d. For <bin m>: <giỏ tr u> to <cõu lnh> do <giỏ tr cui>; Cõu 3 Vũng lp While <iu kin> do <Cõu lnh>; l vũng lp gỡ? a. Cha bit trc s ln lp. b. Bit trc s ln lp. c. Bit trc s ln lp nhng gii hn l <=100 d. C a v c ỳng. Cõu 4 Cho on chng trỡnh sau: I:=1; While i<=5 do Begin tong:= tong + I; I:= I + 1; End; Sau on chng trỡnh trờn em hóy cho bit bin tong cú giỏ tr bng bao nhiờu? a. 1 b. 5 c. 10 d. 15 Cõu 5: Phõn thõn chng trinh bt õu bng t khoa no? a. End. b. Begin. c. Uses. d. Var. Cõu 6: khai bỏo bin mng a gm 10 phn t , mi phn t cú kiu d liu l real ta cn khai bỏo nh th no? a. var a: array[10] of real; b. var a: array[1;10] of real; c. var a: array[1:10]: of real; d. var a: array[1 10] of real; B. PHN T LUN (7) C©u 1: (3®) Tìm lỗi và Gạch chân dưới những câu lệnh em cho là sai rồi viết lại câu lệnh đó cho đúng: Tính Tổng Các Số Tự Nhiên Từ 100 Đến 1000 (Vòng lặp với số lần lặp chưa biết). Program tinh_tong; Var i S: Integer; Begin i: 100; S = 0; While i > 1000 do S:= S + i i:= i + 1; Writeln(‘ Tong cac so tu nhien tu 100 den 1000 la:’,S); Readln; End. Bài Làm C©u 2 (4®) Viết chương trình nhập vào từ bàn phím mảng N các số nguyên. Ghi ra màn hình số nhỏ nhất và số lớn nhất? (Yêu cầu Học sinh sử dụng biến mảng). Bài Làm Đáp án+ Thang điểm Phần I: Trắc nghiệm 1 2 3 4 5 6 a b a d b d Phần II: Tự luận Cõu 1: ( 2 im) Program tinh_tong; Var i, S: Integer; (Thờn du phy (,)vo gia I v s). Begin i:= 100; (Thờm dy bng (=) vo sau i:). S: = 0; (Thờm du (:) vo sau S). While i <=1000 do (Sa li iu kin ca cõu lnh) S:= S + i; (Thờm du chm phy vo cui cõu lnh) i:= i + 1; Writeln( Tong cac so tu nhien tu 100 den 1000 la:,S); Readln; End. Câu 2: (4 điểm) Chng trỡnh cú th c vit nh sau: Program MaxMin; uses crt; Var i, n, Max, Min: integer; A: array[1 100] of integer; Phn thõn chng trỡnh s tng t di õy: Begin clrscr; write('Hay nhap do dai cua day so, = '); readln(n); writeln('Nhap cac phan tu cua day so:'); For i:=1 to n do Begin write('a[',i,']='); readln(a[i]); End; Max:=a[1]; Min:=a[1]; for i:=2 to n do Begin if Max<a[i] then Max:=a[i]; if Min>a[i] then Min:=a[i] end; write('So lon nhat la Max = ',Max); write('; So nho nhat la Min = ',Min); readln; End. Mỗi ý đúng 0,5đ Câu 1: (2 điểm) 0,5 im 0,5 im 0,5 im 1.0 im 0,5 im Câu 2: (4 điểm) - Phn khai bỏo 1,0 im. - Phn nhp s nguyờn: 1,0 im. - Phn tỡm Max, Min cỏc phn t ca mng: 1,0 im. - Phn in ra cỏc phn t Max,Min 1,0 im. Đáp án Thang điểm . Trờng THCS PHúC THịNH Họ tên HS: Lớp: bài kiểm tra học kỳ II Môn: Tin học 8 - 9 Thời gian: 45 phút (Không kể thời gian giao đề) Điểm Nhận xét của giáo viên (Học. im 0,5 im 0,5 im 1.0 im 0,5 im Câu 2: (4 điểm) - Phn khai bỏo 1,0 im. - Phn nhp s nguyờn: 1,0 im. - Phn tỡm Max, Min cỏc phn t ca mng: 1,0 im. - Phn in ra cỏc phn t Max,Min 1,0 im. Đáp án Thang. sử dụng biến mảng). Bài Làm Đáp án+ Thang điểm Phần I: Trắc nghiệm 1 2 3 4 5 6 a b a d b d Phần II: Tự luận Cõu 1: ( 2 im) Program tinh_tong; Var i, S: Integer; (Thờn du phy (,)vo gia I v s). Begin i:=