while…do là câu lệnh lặp với số lần lặp biết trước trong pascal S- 8... Kiến thức3[r]
(1)KIỂM TRA 15 PHỦT LẦN KỲ II MÔN: TIN HỌC 8
Họ tên: Lớp:
Điểm Lời phê
ĐỀ BÀI I Trắc nghiệm
Khoanh tròn chữ đứng trước phương án trả lời câu sau: Câu 1: Cho S i biến nguyên Khi chạy đoạn chương trình :
s:=1;for i:=1 to s := s+i writeln(s); Kết in lên hình s là:
A 55 B 10 C 15 D 11
Câu 2: Với ngơn ngữ lập trình Passcal câu lệnh lặp for i:=1 to 10 x:=x+1; thì biến đếm i phải khai báo kiểu liệu
A Integer; B Tất kiểu C String D Real; Câu 3: Trong câu lệnh lặp for i:=1 to 15 Write(‘A’); lệnh Write(‘A’) được thực lần?
A Không lần B lần C lần D 15 lần Câu 4: Để tính tổng n số tự nhiên em chọn đoạn lệnh sau đây:
A for i:=1 to n if ( i mod 2)<>0 then S:=S + i; B for i:=1 to n if ( i mod 2)=0 then S:=S + i; C for i:=1 to n S:= S + i ;
D for i:=1 to n if ( i mod 2)=1 then S:=S + i;
Câu 5: Điền Đ (đúng) S (sai) vào đầu câu lệnh sau: 1.for i:=10 to writeln('b');
2 var x: integer; begin for x := to 10 writeln('b'); end for i:=1 to 100 ;
4 for i:=1 to 100 writeln('b'); 5.for i:=0.5 to 5.5 writeln('b'); 6.for i=1 to 100 writeln('b');
7.while…do câu lệnh lặp với số lần lặp biết trước pascal S:=0; n:=0;
while S <= 100
(2)II /Tự luận
Câu 6: Em lợi ích việc sử dụng mảng.
Câu 7: Hãy viết chương trình nhập vào dãy số A gồm N phần tử N nhập từ bàn phím Sau in hình dãy số em vừa nhập
ĐÁP ÁN VÀ THANG ĐIỂM I Trắc nghiệm
Từ câu đến câu câu 0,5 điểm
1 D A D C
Câu 5: ý 0,5 điểm
Điền Đ (đúng) S (sai) với câu sau: S - 1.for i:=10 to writeln('b');
Đ- var x: integer; begin for x := to 10 writeln('b'); end Đ- for i:=1 to 100 ;
Đ- for i:=1 to 100 writeln('b'); S- 5.for i:=0.5 to 5.5 writeln('b'); S- 6.for i=1 to 100 writeln('b');
S- 7.while…do câu lệnh lặp với số lần lặp biết trước pascal S- S:=0; n:=0;
while S <= 100
begin n:=n+1; S:=S+n end; II /Tự luận:
Câu 6: (2 đ)
Lợi ích việc sử dụng biến mảng rút gọn việc viết chương trình, sử dụng câu lệnh lặp để thay nhiều câu lệnh Ngoài cịn lưu trữ xử lí nhiều liệu có nội dung liên quan đến cách hiệu
Câu (2 đ)
1 var 0,25 đ
2 i,n:byte; 0,25đ
3 A: array[1 50] of real; Begin
5 Write(‘Hãy nhập vào số phần tử mảng’); readln(n); 0,5 đ For i:=1 to n
7 Begin
8 Write(‘A[‘,i, ‘]=’);
(3)10 End
11 Write(‘Dãy số vừa nhập là:’);
12 For i:=1 to n Write(A[i], ‘;’); 0.5 đ 13.Readln;
14.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
(4)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 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
(5)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
(6)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 sẽ bao nhiêu, trước giá trị X bằng 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Ầ Ắ Ệ
(7)Đá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 đ
(8)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