Đề kiểm tra môn Tin học Lớp 8 - Học kì II - Trường THCS Hoa Lư

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

1. Trường THCS Hoa Lư Đề Kiểm Tra HK II Đề 1 Họ Tên : . . . . . . . . . . . . . . . . . . . . . Mơn Tin Học lớp 8 Điểm Lớp : 8 Thời gian : 45 phút I - PHẦN TRẮC NGHIỆM KHÁCH QUAN : ( 3.5 đ ) Thí sinh chọn chữ cái chỉ kết quả mà em chọn là đúng và ghi vào tờ giấy làm bài. Câu 1: Câu lệnh lặp while do có dạng đúng là: A) While do; ; B) While do; C) While do ; D) While do ; Câu 2 : Hãy cho biết số lần lặp của câu lệnh for sau đây: “for i:=1 to 12 do ” A. 13 lần B. 12 lần C. 11 lần D. 10 lần Câu 3: Thực hiện đoạn lệnh sau, x nhận giá trị bao nhiêu: x:=7; if (x mod 3 = 2) then x:= x +1; a) x=7 b)x=8 c) x=0 d) x=10 Câu 4: Để tính tổng S=2 + 4 + 6 + + n; em chọn đoạn lệnh: a) for i:=1 to n do b) for i:=1 to n do S:= S + i ; if ( i mod 2=1) then S:=S + i; c) for i:=1 to n do d) for i:=1 to n do if ( i mod 2 then ; B. if then ; C. if then else ; D. if then ; Câu 6: Để tính tổng S=1/1+1/2 +1/3 + 1/4 + +1/n; em chọn đoạn lệnh: a)for i:=1 to n do c)for i:=1 to n do if ( i mod 2=0) then S:=S + 1/i; S:=S + 1/i; b)for i:=1 to n do d)for i:=1 to n do if ( i mod 2=0) then S:=S + i if ( i mod 2 n do m:=m+1; C. While X 5 then a:=b C. if x>5; then a:=b D. if x>5 then a:=b else b:=a;
2. Câu 13: Tính giá trị của tong khi thực hiện đoạn chương trình tong:=0; While tong =5) then x:=x*2; X= c. If (x mod 2=1) and (x>10) then x:=0; X= d. If x<10 then x:=x; X= Câu 2. Hãy chỉ ra lỗi của đoạn chương trình sau, sửa lại thành chương trình hồn chỉnh: (2,5đ) Use Crt; Var i, n : integer Tong = longint; Begin Clrscr; i=0; tong:=0; While i:=10 do Begin If( i mod 4) = 0 then tong:=tong+i; i=i+1; End. Writeln(Tong so chia het cho 4:,tong); Readln; End; Câu 3: Viết chương trình s= 1 + 3 + 5 + + n (bằng while do) (2đ)
3. Trường THCS Hoa Lư Đề Kiểm Tra HK II Đề 2 Họ Tên : . . . . . . . . . . . . . . . . . . . . . Mơn Tin Học lớp 8 Điểm Lớp : 8 Thời gian : 45 phút I - PHẦN TRẮC NGHIỆM KHÁCH QUAN : ( 3.5 đ ) Thí sinh chọn chữ cái chỉ kết quả mà em chọn là đúng và ghi vào tờ giấy làm bài. Câu 1: Lệnh lặp nào sau đây là đúng? A. For = to do ; B. For := to do ; C. For := to do ; D. For : to do ; Câu 2: Để tính tổng S=1 + 3 + 5 + + n; em chọn đoạn lệnh: a)for i:=1 to n do c)for i:=1 to n do S:= S + i ; if ( i mod 2 n do m:=m+1; C. While X 5 then a:=b else b:=a; B. if; x>5 then a:=b C. if x>5; then a:=b D. if x:=5 then; a=b Câu 10: Câu lệnh lặp while do có dạng đúng là: A) While do; ; B) While do; C) While do ; D) While do ; Câu 11: Lần lượt thực hiện đoạn lệnh: a[1]:=2; a[2]:=3; t:=(a[1]+a[2])*2; Giá trị của t là a) t=1 b) t=11 c) t=10 d) t=6
4. Câu 12: Để tính tổng S=1/2 + 1/4 + +1/ n; em chọn đoạn lệnh: a) for i:=1 to n do b) for i:=1 to n do if ( i mod 2=0) then S:=S + 1/i; if ( i mod 2=1) then S:=S + 1/i; c) for i:=1 to n do d) for i:=1 to n do if ( i mod 2=1) then S:=S + 1/i if ( i mod 2=0) then S:=S + 1/i Else S:= S + 1; Else S:= S + 1; Câu 13: Thực hiện đoạn lệnh sau, x nhận giá trị bao nhiêu: x:=7; if (x mod 3 = 2) then x:= x +1; a) x=7 b)x=8 c) x=0 d) x=10 Ghi đáp án vào ơ: 1 2 3 4 i= 4 j= 5 6 7 8 9 10 11 12 13 II - PHẦN TỰ LUẬN : ( 6.5 đ) Câu 1 Cho x :=1; Hãy tính giá trị của x khi thực hiện các lệnh (2đ) Lệnh Kết quả của x a. If (1+2=3) then x:=x+1 x = b. If (1+1=3) or (2+2=3) then x:=x+2 x = c. If (2+3=5) and (3+4=7) then x:=x*3 x = e. If (45 mod 3=0) then x:=x+1; x = Câu 2. Hãy chỉ ra lỗi của đoạn chương trình sau, sửa lại thành chương trình hồn chỉnh: (2.5đ) Uses Rct; Var i, n : interger; Tong : longint Begin Clrscr; tong=0; For i=1 to 10 do Begin If( i mod 4) = 0 then tong=tong+i; End. Writeln(Tong so chia het cho 4:,tong); Readln; End; Câu 3: Viết chương trình s= 2 + 4 + 6 + + n (bằng while do)
5. Trường THCS Hoa Lư Đáp án Kiểm Tra HK II Đề 1 Họ Tên : . . . . . . . . . . . . . . . . . . . . . Mơn Tin Học lớp 8 Điểm Lớp : 8 Thời gian : 45 phút I - PHẦN TRẮC NGHIỆM KHÁCH QUAN : ( 3.5 đ ) 1 2 3 4 5 6 7 8 9 10 11 12 13 14 d b a d c c d d c b a d b c II - PHẦN TỰ LUẬN : (6.5 đ) Câu 1. Mỗi câu lệnh dưới đây, giá trị của biến x sẽ là bao nhiêu, nếu trước đĩ giá trị của x:= 5 (2 đ) a. If (x mod 3=2) then x:=x+2; X=7 b. If (x mod 3=0) or (x>=5) then x:=x*2; X=10 c. If (x mod 2=1) and (x>10) then x:=0; X=0 d. If x<10 then x:=x; X=5 Câu 2. Hãy chỉ ra lỗi của đoạn chương trình sau, sửa lại thành chương trình hồn chỉnh: (2,5đ) Use Crt; Uses Crt; Var i, n : integer Var i, n : integer; Tong = longint; Tong : longint; Begin Begin Clrscr; Clrscr; i=0; tong:=0; i:=0; tong:=0; While i:=10 do While i<=10 do Begin Begin If( i mod 4) = 0 then If( i mod 4 = 0) then tong:=tong+i; tong:=tong+i; i=i+1; i:=i+1; End. End; Writeln(Tong so chia het cho 4:,tong); Writeln(‘Tong so chia het cho 4:’,tong); Readln; Readln; End; End. Câu 3: Viết chương trình s= 1 + 3 + 5 + + n (bằng while do) Uses crt; Var n,i : integer; S : real; Begin Writeln(‘hay nhap n:’); Readln(n); S:=0; i:=1; While i<=n do Begin s:=s+i; i:=i+2; end; writeln(‘tong s la:’, s); readln; end.
6. Trường THCS Hoa Lư Đáp án Kiểm Tra HK II Đề 2 Họ Tên : . . . . . . . . . . . . . . . . . . . . . Mơn Tin Học lớp 8 Điểm Lớp : 8 Thời gian : 45 phút I - PHẦN TRẮC NGHIỆM KHÁCH QUAN : ( 3.5 đ ) 1 2 3 4i 4j 5 6 7 8 9 10 11 12 13 b B b B c d c d d a c c a a II - PHẦN TỰ LUẬN : ( 6.5 đ) Câu 1 Cho x :=1; Hãy tính giá trị của x khi thực hiện các lệnh (2đ) Lệnh Kết quả của x a. If (1+2=3) then x:=x+1 x =2 b. If (1+1=3) or (2+2=3) then x:=x+2 x =1 c. If (2+3=5) and (3+4=7) then x:=x*3 x = 3 e. If (45 mod 3=0) then x:=x+1; x = 2 Câu 2. Hãy chỉ ra lỗi của đoạn chương trình sau, sửa lại thành chương trình hồn chỉnh: (2.5đ) Uses Rct; Uses crt; Var i, n : interger; Var i, n : integer; Tong : longint Tong : longint; Begin Begin Clrscr; Clrscr; tong=0; Tong:=0; For i=1 to 10 do For i:=1 to 10 do Begin Begin If( i mod 4) = 0 then If( i mod 4 = 0) then tong=tong+i; Tong:=tong+i; End. End; Writeln(Tong so chia het cho 4:,tong); Writeln(‘Tong so chia het cho 4:’,tong); Readln; Readln; End; End. Câu 3: Viết chương trình s= 2 + 4 + 6 + + n (bằng while do) Uses crt; Var n,i : integer; S : real; Begin Writeln(‘hay nhap n:’); Readln(n); S:=0; i:=2; While i<=n do Begin s:=s+i; i:=i+2; end; writeln(‘tong s la:’, s); readln; end.