-Kĩ năng: Học sinh vận dụng tốt kiến thức đã học để làm bài kiểm tra có kết quả tốt.. I/ Khoanh trũn chữ cỏi đứng trước phương ỏn em cho là đỳng: 4 điểm Cõu 1: Lệnh lặp nào sau đõy là đỳ
Trang 1Ngày soạn: 27 thỏng 4 năm 2011
Ngày giảng: 29 thỏng 4 năm 2011
Tiết 70
kiểm tra học kỳ ii
I Mục tiêu:
- Kiến thức: Kiểm tra việc tiếp thu kiến thức của HS trong HK II
-Kĩ năng: Học sinh vận dụng tốt kiến thức đã học để làm bài kiểm tra có kết
quả tốt.
- Thỏi độ: Rèn luyện ý thức tự giác trong kiểm tra.
II Chuẩn bị:
- GV: Đề kiểm tra.
- HS: chuẩn bị ôn tập ở nhà.
Ma tr n: ận:
Mức độ
Cõu lệnh điều
kiện
1
0,5
1
0,5 Cõu lệnh lặp 2
1
1
0,5
1
2 Lặp với số
lần chưa biết
trước
2
1 1 0,5
1
2
Làm việc với
dóy số
2
1
1
0,5
1
0,5 Cộng 6
3
4
2
4
1
14
10
III Phơng pháp: Làm bài viết ở trên giấy.
IV Tiến trình bài dạy
1 ổn định: kiểm tra sĩ số lớp:
2 Bài mới: Kiểm tra HK II 45 phút.
I/ Khoanh trũn chữ cỏi đứng trước phương ỏn em cho là đỳng: (4 điểm)
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: Vũng lặp While <Điều kiện> do <Cõu lệnh>; là vũng lặp:
A Chưa biết trước số lần lặp B Biết trước số lần lặp
C Biết trước số lần lặp nhưng giới hạn là <=10 D Biết trước số lần lặp nhưng giới hạn là >=100
Cõu 3: Hóy tỡm hi u o n ch ểu đoạn chương trỡnh sau đõy đoạn chương trỡnh sau đõy ạn chương trỡnh sau đõy ương trỡnh sau đõy ng trỡnh sau õy đoạn chương trỡnh sau đõy
Trang 2Space:=’ ’;
Write(I,space,j,space,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 i, j,
k lần lượt là bao nhiêu?
Câu 4: 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 55 C 121 D 151
Câu 5: Phần thân chương trình bắt đầu bằng từ khóa::
A.End B.Begin C.Uses D.Var
Câu 6: 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>] for <kiểu dữ liệu >;
Câu 7: Đểu đoạn chương trình sau đây tính t ng S=2 + 4 + 6 ổng S=2 + 4 + 6 … + n; em chọn đoạn lệnh: … + n; em chọn đoạn lệnh: + n; em ch n o n l nh: ọn đoạn lệnh: đoạn chương trình sau đây ạn chương trình sau đây ệnh:
a For i:=1 to n do
if ( i mod 2)=0 then S:=S + i;
b For i:=1 to n do
S:= S + i ;
c c For i:=1 to n do
if ( i mod 2)=1 then S:=S + i;
d for i:=1 to n do
if ( i mod 2)<>0 then S:=S + i;
Câu 8: Chọn khai báo hợp lệ:
A Var a,b: array[1 n] of real; C Var a,b: array[1 : n] of Integer;
B Var a,b: array[1 100] of real; D Var a,b: array[1 … 100] of real;
II/ Điền X vào các ô sao cho phù hợp và giải thích vì sao? (2 i m) đoạn chương trình sau đây ểu đoạn chương trình sau đây
a) for i=1 to 10 do writeln('A');
b) var X: Array[5…10] Of Char;
c) X:=10; while X=10 do X := X+5;
d) if x>5 then a:=b; else m := n;
III/ 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: (2 điểm)
Trang 3Program 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 ………
………
END .
IV/ Viết chương trình giải quyết bài toán: (2 điểm) Viết chương trình tính tổng: S = 1+2+3+…+n Trong đó n là số nguyên nhập từ bàn phím
Trang 4
Đáp án
I/ Khoanh tròn chữ cái đứng trước phương án em cho là đúng: (4 i m) đoạn chương trình sau đây ểu đoạn chương trình sau đây
Câu 1 Câu 2 Câu 3 Câu 4 Câu 5 Câu 6 Câu 7 Câu 8
II/ Điền X vào các ô sao cho phù hợp và giải thích vì sao? (1 i m) đoạn chương trình sau đây ểu đoạn chương trình sau đây
a) for i=1 to 10 do writeln('A'); X Thiếu dấu : sau biến i
b) var X: Array[510] Of Char; X Kiểu dữ liệu sai.
c) X:=10; while X=10 do X := X+5; X
d) if x>5 then a:=b; else m := n; X Thừa dấu ; trước else
III/ 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: (2 điểm)
Trang 5Tinhthuong;
………
………
………
………
……
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(‘Thuong cua’,N,’so dau tien s = ‘, s) Readln ………
………
………
………
………
END .
Uses crt; Var N, i: Integer;
For i:=1 to N do
S:=S*1/i;
Writeln(‘Thuong cua’,N,’so dau tien
s = ‘, s)
Trang 6IV/ Viết chương trình giải quyết bài toán: (2 điểm)
Program Tong;
Uses crt;
Var S: real;
n, i: integer;
Begin
Clrscr;
Write(‘Nhap so n = ‘); Readln(n);
S:= 0;
For i:= 1 to n do S: = S + i;
Writeln(‘Tong can tim la: ‘, S:6:2);
Readln
End