Trường THCS Thành Cổ 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
( 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: Chọn khai báo hợp lệ:
A Var a,b: array[1 6.5] of real; C Var a,b: array[1 : 10] of Integer;
B Var a,b: array[1 100] of real; D Var a;b: array[1 100] of real;
Câu 2: 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:=0;
for i:=1 to 5 do s := s+i;
Câu 3: Để 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
Câu 4: Hãy tìm hiểu đoạn chương trình sau đây
j:=3; k:=2; While i<=6 do
Begin j:=j+1; k:=k+j; end;
Write(k);
Sau khi thực hiện đoạn chương trình trên, lệnh Writeln in ra màn hình giá trị của k là:
Câu 5: (2 điểm) Để tính tổng S=1/2+1/4 + 1/6 + … +1/ 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 + 1/i;
i:= i +1; end;
B) i:=0 while i<n do Begin S:=S + 1/i; i:= i +2; end;
C) For i:=1 to n do
if ( i mod 2)=1 then S:=S + i; D) i:=2 while i<n do Begin if S:=S + 1/i; i:= i +2; 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ủa các số chia hết cho 2 và tích các số không chia
hết cho 5 trong các số từ 1 đến n Trong đó n là số nguyên 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 sửa lại chương trình đó cho
đúng:
Program Tinhtich;
Uses crt
Var N i: real;
a) if a>b then max:=a; else max:=b;
b) var X: Array[5 10] :Real;
c) x:=10; while x=10 do x := x*1;
d) for i:=1.5 to 10 do m:=m + 1.5;
Trang 2S: integer;
BEGIN Clrscr;
Write(‘Nhap vao so N =’ ); Readln(N);
S:=1;
For i:=1 to N do S=S*1/i;
Writeln(‘Tich cua’,N,’so dau tien s = ‘ s) Readln
END.
Trang 3
Môn: Tin 8
Ngày thi
Họ và tên:……… Lớp 8
( 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: Chọn khai báo hợp lệ:
A Var a,b: array[1.5 6.5] of real; C Var a,b: array[1 : 10] of Integer;
Câu 2: 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:=70;
for i:=1 to 5 do s := s-i;
Câu 3: Để đọc giá trị các phần tử vào trong mảng a câu lệnh nào sau đây đúng
Câu 4: Hãy tìm hiểu đoạn chương trình sau đây
j:=2; k:=3; While i<=6 do
Begin j:=j+1; k:=k+j; end;
Write(k);
Sau khi thực hiện đoạn chương trình trên, lệnh Writeln in ra màn hình giá trị của k là:
Câu 5: (2 điểm) Để tính tổng S=1/2+1/4 + 1/6 + … +1/ 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 + 1/i;
i:= i +1; end;
B) i:=1 while i<n do Begin S:=S + 1/i; i:= i +2; end;
C) For i:=1 to n do
if ( i mod 2)=0 then S:=S + 1/i;
D) i:=0 while i<n do Begin if i:= i +2; S:=S + 1/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ủa các số không chia hết cho 5 và tích các số chia
hết cho 7 trong các số từ 1 đến n Trong đó n là số nguyên 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 sửa lại chương trình đó cho
đúng:
Program Tinhtong;
Uses crt
quả
Giải thích
a) if a>b then max:=a; else max:=b;
b) var X: Array[50 10] of Real;
c) x:=20; while x=10 do x := x div2;
d) for i:=5 to 10 do write(i:6:3);
Trang 4Var N i: real;
S: integer;
BEGIN Clrscr;
Write(‘Nhap vao so N =’ ); Readln(‘N’);
S:=1;
For i:=1 to N do S=S*1/i;
Writeln(‘Tong cua’,N,’so dau tien s = ‘, s) Readln
END.