KT 15 VA KTHK 2 CO MA TRAN VA DA

Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (148.22 KB, 8 trang )

(1)<div class='page_container' data-page=1>

KIỂM TRA 15 PHỦT LẦN 2 KỲ II
MÔN: TIN HỌC 8

Họ tên:...Lớp: 8....

Điểm Lời phê

ĐỀ BÀI
I. Trắc nghiệm

Khoanh tròn chữ cái đứng trước phương án trả lời đúng các câu sau:
Câu 1: Cho S và i là biến nguyên. Khi chạy đoạn chương trình :

s:=1;for i:=1 to 4 do s := s+i writeln(s); Kết quả in lên màn hình là của 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 do x:=x+1; thì
biến đếm i phải được khai báo là kiểu dữ liệu.

A Integer; B Tất cả các kiểu trên đều được. C String D Real;
Câu 3: Trong câu lệnh lặp for i:=1 to 15 do Write(‘A’); thì lệnh Write(‘A’)
được thực hiện bao nhiêu lần?

A Không lần nào B 1 lần C 2 lần. D 15 lần
Câu 4: Để tính tổng của n số tự nhiên đầu tiên em chọn đoạn lệnh nào sau đây:

A for i:=1 to n do if ( i mod 2)<>0 then S:=S + i;
B for i:=1 to n do if ( i mod 2)=0 then S:=S + i;
C for i:=1 to n do S:= S + i ;

D for i:=1 to n do if ( i mod 2)=1 then S:=S + i;

Câu 5: Điền Đ (đúng) hoặc S (sai) vào đầu các câu lệnh sau:
1.for i:=10 to 1 do writeln('b');

2. var x: integer; begin for x := 1 to 10 do writeln('b'); end.
3. for i:=1 to 100 do ;

4. for i:=1 to 100 do writeln('b');
5.for i:=0.5 to 5.5 do writeln('b');
6.for i=1 to 100 do writeln('b');

7.while…do là câu lệnh lặp với số lần lặp biết trước trong pascal
8. S:=0; n:=0;

while S <= 100 do

</div>
(2)<div class='page_container' data-page=2>

II /Tự luận

Câu 6: Em hãy lợi ích của việc sử dụng mảng.

Câu 7: Hãy viết chương trình nhập vào một dãy số A gồm N phần tử. N nhập từ bàn
phím. Sau đó in ra màn hình dãy số em vừa nhập.

ĐÁP ÁN VÀ THANG ĐIỂM
I. Trắc nghiệm

Từ câu 1 đến câu 4 mỗi câu đúng được 0,5 điểm

1. D 2. A 3. D 4. C

Câu 5: mỗi ý đúng được 0,5 điểm

Điền Đ (đúng) hoặc S (sai) với các câu sau: 
S - 1.for i:=10 to 1 do writeln('b');

Đ- 2. var x: integer; begin for x := 1 to 10 do writeln('b'); end.
Đ- 3. for i:=1 to 100 do ;

Đ- 4. for i:=1 to 100 do writeln('b');
S- 5.for i:=0.5 to 5.5 do writeln('b');
S- 6.for i=1 to 100 do writeln('b');

S- 7.while…do là câu lệnh lặp với số lần lặp biết trước trong pascal
S- 8. S:=0; n:=0;

while S <= 100 do

begin n:=n+1; S:=S+n end;
II /Tự luận:

Câu 6: (2 đ)

Lợi ích chính của việc sử dụng biến mảng là rút gọn việc viết chương trình, có
thể sử dụng câu lệnh lặp để thay nhiều câu lệnh. Ngồi ra chúng ta cịn có thể lưu trữ
và xử lí nhiều dữ liệu có nội dung liên quan đến nhau một cách hiệu quả.

Câu 7 (2 đ)

1. var 0,25 đ

2. i,n:byte; 0,25đ

3. A: array[1..50] of real;
4. Begin

5. Write(‘Hãy nhập vào số phần tử của mảng’); readln(n); 0,5 đ
6. For i:=1 to n do

7. Begin

8. Write(‘A[‘,i, ‘]=’);

</div>
(3)<div class='page_container' data-page=3>

10. End.

11. Write(‘Dãy số vừa nhập là:’);

12. For i:=1 to n do 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

</div>
(4)<div class='page_container' data-page=4>

Ngày soạn: / /2012 Ngày dạy: /05/2012

Tiết 70 - BÀI KIỂM TRA 1 TIẾT THỰC HÀNH
A. MỤC TIÊU

1. Kiến thức

- Đánh giá kiến thức của HS qua bài kiểm tra

- Vận dụng những kiến thức đã học để làm bài kiểm tra

2. Kỹ năng: Bổ sung những kiến thức cơ bản về 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 1 2

Điểm 0.5 1 1.5

Câu lệnh lặp với số
lần biết trước

Số câu 1 1 2

Điểm 0.5 0.5 1

Câu lệnh lặp với số
lần chưa biết trước

Số câu 1 1 2

Điểm 0.5 0.5 1

Làm việc với dãy số Số câu 2 1 3

Điểm 1 5.5 6.6

Tổng Số câu 3 2 2 1 1 9

</div>
(5)<div class='page_container' data-page=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ữ cái đứng trước kết quả đúng

Câu 1. Các câu lệnh Pascal sau đây lệnh nào được 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 và i là biến nguyên. Khi chạy đoạn chương trình :
 s:=0;

for i:=1 to 8 do s := s+2*i;
 writeln(s);

Kết quả in lên màn hình là :

a. s = 72 b. s = 100 c. s = 101 d. s = 55

Câu 3: Với các câu lệnh sau chương trình thực hiện bao nhiêu vịng lặp
S:=0; n:=0;

while S<=10 do

begin n:=n+1; S:=S+n end;

a. 6 lần b. 5 lần c. 4 lần d. 3 lần

</div>
(6)<div class='page_container' data-page=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 5 Khai báo mảng a có 11 phần tử từ 5 đến 15 là các số nguyên thì ta khai .

báo như 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 mỗi 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ị của biến X sẽ là bao nhiêu, nếu trước đó giá trị của X bằng 7?
Câu 7: Viết cú pháp của câu lệnh lặp với số lần biết trước.

Câu 8 : Viết cú pháp của câu lệnh lặp với số lần chưa biết trước.

Câu 9 : Sử dụng biến mảng viết chương trình nhập vào N số nguyên từ bàn phím. Sau
đó in ra màn hình giá trị lớn nhất và nhỏ nhất của dãy số đó.

3. Nhận xét rút kinh nghiệm giờ kiểm tra

...

...
...
...
4. Hướng dẫn về nhà

- Làm lại bài kiểm tra
- Xem lại các bài học

ĐÁP ÁN VÀ THANG ĐIỂM

PH N I: TR C NGHI M

Ầ

Ắ

Ệ

</div>
(7)<div class='page_container' data-page=7>

Đáp án D A B D C
PHẦN II: TỰ LUẬN

Câu 6: Sau mỗi 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) do (câu lệnh); 0,5 đ

Câu 8: While (điều kiện) do (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 do 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 do 
 Begin

if Max<a[i] then Max:=a[i]; 0.5 đ

</div>
(8)<div class='page_container' data-page=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

</div>

KT 15 VA KTHK 2 CO MA TRAN VA DA

<b>K T QU KI M TRA</b>

<b>Ế</b>

<b>Ả</b>

<b>Ể</b>

<b>C. MA TR N </b>

<b>Ậ ĐỀ</b>

<b>:</b>

<b>1. T ch c</b>

<b>ổ</b>

<b>ứ</b>

<b>PH N I: TR C NGHI M</b>

<b>Ầ</b>

<b>Ắ</b>

<b>Ệ</b>

Tài liệu liên quan

Tài liệu bạn tìm kiếm đã sẵn sàng tải về