DE THI HK 2 TIN 8 CHUẨN

một kết quả khác Câu 4: Chọn khai báo hợp lệ: A... một kết quả khác Câu 4: Cú pháp khai báo biến mảng trong Pascal là: A.

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 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; 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) Readln

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 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 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;

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.