- Vận dụng những kiến thức đã học để làm bài kiểm tra 2B. Kỹ năng: Bổ sung những kiến thức cơ bản về lập trình pascal 3.[r]
(1)Ngày soạn: / /2012 Ngày dạy: /05/2012 Tiết 70 - BÀI KIỂM TRA TIẾT THỰC HÀNH
A MỤC TIÊU 1 Kiến thức
- Đánh giá kiến thức HS qua kiểm tra
- Vận dụng kiến thức học để làm kiểm tra 2 Kỹ năng: Bổ sung kiến thức lập trình pascal 3 Thái độ: Nghiêm túc làm bài
B CHUẨN BỊ
1 Giỏo viờ: Bài kiểm tra….
2 Học sinh: Kiến thức học, đồ dùng học tập C MA TR N Ậ ĐỀ:
Mức độ Kiến thức
Nhận biết Thông Hiểu Vận dụng
Tổng
TN TL TN TL TN TL
Câu lệnh điều kiện Số câu 1
Điểm 0.5 1.5
Câu lệnh lặp với số lần biết trước
Số câu 1
Điểm 0.5 0.5
Câu lệnh lặp với số lần chưa biết trước
Số câu 1
Điểm 0.5 0.5
Làm việc với dãy số Số câu
Điểm 5.5 6.6
Tổng Số câu 2 1
(2)D TIẾN TRÌNH LÊN LỚP 1 T ch cổ ứ
Lớp 8A 8B 8C
Vắng 2 Phát đề kiểm tra
ĐỀ BÀI PHẦN I: TRẮC NGHIỆM
- Khoanh tròn chữ đứng trước kết
Câu Các câu lệnh Pascal sau lệnh viết đúng? a. if x:=7 then a=b;
b. if x>5; then a:=b; c. if x>5 then; a:=b; d. if x>5 then a:=b;
Câu 2: Cho S i biến nguyên Khi chạy đoạn chương trình : s:=0;
for i:=1 to s := s+2*i; writeln(s);
Kết in lên hình :
a s = 72 b s = 100 c s = 101 d s = 55
Câu 3: Với câu lệnh sau chương trình thực vòng lặp S:=0; n:=0;
while S<=10
begin n:=n+1; S:=S+n end;
a lần b lần c lần d lần
(3)a var X: Array[10,13] Of Integer; b var X: Array[3.4 4.8] Of Integer; c var X: Array[10 1] Of Integer; d var X: Array[4 10] Of Real;
Câu Khai báo mảng a có 11 phần tử từ đến 15 số nguyên ta khai báo sau:
a a:Array [1 11] of integer; b a:Array [5 15] of integer;
c a:Array [5 15] of integer; d a:Array [11] of integer;
PHẦN II: TỰ LUẬN
Câu 6: Sau câu lệnh sau đây
a. if (15 mod 3)=0 then X:=X+2; b. if X>8 then X:=X+2;
giá trị biến X bao nhiêu, trước giá trị X 7? Câu 7: Viết cú pháp câu lệnh lặp với số lần biết trước.
Câu : Viết cú pháp câu lệnh lặp với số lần chưa biết trước.
Câu : Sử dụng biến mảng viết chương trình nhập vào N số ngun từ bàn phím Sau in hình giá trị lớn nhỏ dãy số
3 Nhận xét rút kinh nghiệm kiểm tra
4 Hướng dẫn nhà
- Làm lại kiểm tra - Xem lại học
ĐÁP ÁN VÀ THANG ĐIỂM PH N I: TR C NGHI MẦ Ắ Ệ
(4)Đáp án D A B D C PHẦN II: TỰ LUẬN
Câu 6: Sau câu lệnh sau đây
a) X:=9; 0,5 đ
b) X:=7; 0,5 đ
Câu 7: For (Biến đếm):=(giá trị đầu) to (giá trị cuối) (câu lệnh); 0,5 đ
Câu 8: While (điều kiện) (câu lệnh); 0,5 đ
Câu 9: (5.5 đ) program MaxMin; uses crt;
Var
i, n, s, Max, Min: integer; 0.5 đ
A: array[1 100] of integer; 0.5 đ
Begin clrscr;
write('Hay nhap dai cua day so, N = '); readln(n); 0.5 đ writeln('Nhap cac phan tu cua day so:');
For i:=1 to n do Begin
write('a[',i,']=');
readln(a[i]); 0.5 đ
End;
Max:=a[1]; Min:=a[1]; s:=0; 0.5 đ
For i:=2 to n Begin
if Max<a[i] then Max:=a[i]; 0.5 đ
(5)S:=S+a[i]; 0.5 đ End;
writeln('So lon nhat la Max = ',Max); 0.5 đ
writeln('So nho nhat la Min = ',Min); 0.5 đ
writeln(‘ Tong cua day so la :’,s); 0.5 đ
Readln; End.
KẾT QUẢ KIỂM TRA
Lớp Sĩ số 0,1,2 3,4 5,6 7,8 9,10 Trên TB