DE THI HK 2 TIN 8 CHUẨN

BÀI KIỂM TRA HỌC KÌ II năm học 2010-2011 Môn: Tin 8 Ngày thi Họ và tên:………………………………………… Lớp 8 Điểm Lời phê của giáo viên (Từ câu 1 đến câu 4) (2 điểm) Khoanh tròn chữ cái đứng trước phương án em cho là đúng: Câu 1: Lệnh lặp nào sau đây là đúng? A. For <biến đếm>= <giá trị đầu> to <giá trị cuối> do <câu lệnh>; B. For <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>; C. For <biến đếm>:= <giá trị cuối> to <giá trị đầu> do <câu lệnh>; D. For <biến đếm>: <giá trị đầu> to <câu lệnh> do <giá trị cuối>; Câu 2: Để nhập giá trị cho các phần tử của mảng a câu lệnh nào sau đây đúng A) readln[a(i)]; B) readln(a(i)); C) readln(a[i]); B) readln[a[i]]; Câu 3: Sau khi thực hiện đoạn chương trình sau, giá trị của biến S bằng bao nhiêu: s:=1; for i:=1 to 5 do s := s*i; A.120 B. 24 C. 25 D. một kết quả khác Câu 4: Chọn khai báo hợp lệ: A. Var mang: array[1 n] of real; C. Var songuyen: array[1 : 10] of Integer; B. Var b: array[1 100] of string; D. Var sothuc: array[1.5 10.2] of real; Câu 5: (2 điểm) Để tính tổng S=2 + 4 + 6 … + n; đoạn lệnh nào Đ (đúng), S (sai) : A. For i:=1 to n do if ( i mod 2)=0 then S:=S + i; B. i:= 0; while i<n do Begin S:= S + i ; i:= i + 2; end; C. For i:=1 to n do if ( i mod 2)=1 then S:=S + i; D. i:= 0; while i<=n do Begin i:= i + 2; S:= S + i ; end; Câu 6: (2 điểm) Điền Đ (đúng) S (sai) các ô KQ, nếu câu nào sai thì giải thích vì sao? Câu 7: (2 điểm) Viết chương trình tính tổng các số chia hết cho 3 trong các số từ 1 đến n. Trong đó n là số tự nhiên được nhập từ bàn phím. Câu 8 (2 điểm)Gạch chân dưới những câu lệnh em cho là sai rồi viết lại chương trình đó cho đúng: Program Tinhtong; Uses crt Var N. i: Integer; S: Longint; BEGIN Clrscr; Write(‘Nhap vao so N =’ ); Readln(N); S:=0; For i:=1 to N do S=S+1/i; Writeln(‘Tong cua’,N,’so dau tien s = ‘, s) Câu Kết quả Giải thích a) for i=1 to 10 do writeln('A'); b) var x: Array[5…10] Of Char; c) x:=10; while x=10 do y := y +5; d) if x>5 then a:=b; else b := a; Readln END. BÀI KIỂM TRA HỌC KÌ II năm học 2010-2011 Môn: Tin 8 Ngày thi Họ và tên:………………………………………… Lớp 8 Điểm Lời phê của giáo viên (Từ câu 1 đến câu 4) (2 điểm) Khoanh tròn chữ cái đứng trước phương án em cho là đúng: Câu 1: Lệnh lặp nào sau đây là đúng? A. For <biến đếm>= <giá trị đầu> to <giá trị cuối> do <câu lệnh>; B. For <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>; C. For <biến đếm>:= <giá trị cuối> to <giá trị đầu> do <câu lệnh>; D. For <biến đếm>: <giá trị đầu> to <câu lệnh> do <giá trị cuối>; Câu 2: Để viết giá trị của các phần tử trong mảng a ra màn hình câu lệnh nào sau đây đúng A) writeln(a[i]); B) writeln(a); C) write[a(i)]; B) write[a[i]]; Câu 3: Sau khi thực hiện đoạn chương trình sau, giá trị của biến S bằng bao nhiêu: s:=1; for i:=1 to 4 do s := s*i; A.120 B. 24 C. 25 D. một kết quả khác Câu 4: Cú pháp khai báo biến mảng trong Pascal là: A. var <Tên mảng> ; array [<chỉ số đầu> <chỉ số cuối>] of <kiểu dữ liệu >; B. var <Tên mảng> : array [<chỉ số đầu>…<chỉ số cuối>] of <kiểu dữ liệu >; C. var <Tên mảng> : array [<chỉ số đầu> <chỉ số cuối>] of <kiểu dữ liệu >; D. var <Tên mảng> : array [<chỉ số đầu>:<chỉ số cuối>] of <kiểu dữ liệu >; Câu 5: (2 điểm) Để tính tổng S=1 + 3 + 5+ … + n; đoạn lệnh nào Đ (đúng), S (sai) : A) i:=1 while i<n do Begin if ( i mod 2)<> 0 then S:=S + i; i:= i +1; end; B) i:=1 while i<n do Begin S:=S + i; i:= i +2; end; C) For i:=1 to n do if ( i mod 2)=1 then S:=S + i; D) i:=0 while i<n do Begin if ( i mod 2)=1 then S:=S + i; i:= i +1; end; Câu 6 (2 điểm) Điền Đ (đúng) S (sai) các ô KQ, nếu câu nào sai thì giải thích vì sao? Câu 7 (2 điểm) Viết chương trình tính tổng các số không chia hết cho 4, trong các số từ 1 đến n. Trong đó n là số tự nhiên được nhập từ bàn phím Câu 8 (2 điểm)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: Program Tinhtich; Uses crt Var N. i: real; Câu Kết quả Giải thích a) for i:=1 to 10 do writeln(,i,); b) var x: Array[5 10] Off Char; c) x:=9; while x<10 do x := x -1; d) if x>5 then a:=b else; b:= a S: integer; BEGIN Clrscr; Write(‘Nhap vao so N =’ ); Readln(N); S:=1; For i:=1 to N do S=S*i/2; Writeln(‘Ttich cua’,N,’so dau tien s = ‘, s) Readln END. . BÀI KIỂM TRA HỌC KÌ II năm học 20 10 -20 11 Môn: Tin 8 Ngày thi Họ và tên:………………………………………… Lớp 8 Điểm Lời phê của giáo viên (Từ câu 1 đến câu 4) (2 điểm) Khoanh tròn chữ cái đứng trước. BÀI KIỂM TRA HỌC KÌ II năm học 20 10 -20 11 Môn: Tin 8 Ngày thi Họ và tên:………………………………………… Lớp 8 Điểm Lời phê của giáo viên (Từ câu 1 đến câu 4) (2 điểm) Khoanh tròn chữ cái đứng trước. i<n do Begin S:= S + i ; i:= i + 2; end; C. For i:=1 to n do if ( i mod 2) =1 then S:=S + i; D. i:= 0; while i<=n do Begin i:= i + 2; S:= S + i ; end; Câu 6: (2 điểm) Điền Đ (đúng) S (sai) các