Đề thi HK II

Trường THCS Nguyễn Trãi ĐỀ KIỂM TRA HỌC KÌ II (Năm học 2013-2014)
Tổ: Toán-Lý Môn: Tin học 8
( Thời gian: 45 phút không kể thời gian phát đề)

Thiết lập bảng ma trận:


Cấp độ

Chủ đề

Nhận biết
Thông hiểu
Vận dụng
Cộng




Cấp độ thấp
Cấp độ cao



TNKQ
TL
TNKQ
TL
TNKQ
TL
TNKQ
TL


Chương trình Pascal đơn giản
Nắm được thuật toán của bài toán để viết đúng chương trình
Viết được chương trình đơn giản, khai báo đúng biến, câu lệnh đưa thông tin ra màn hình.




Số câu
Số điểm
Tỉ lệ %

1
1
10%

1
2
20%




2
3
10%

Tổ chức lặp
Phân biệt được các tình huống sử dụng lệnh lặp viết được chương trình.
Viết đúng lệnh lặp với số lần định trước.




Số câu
Số điểm
Tỉ lệ %

1
2
20%

1
2
20%




2
4
40%

Kiểu mảng và biến chỉ số


Thực hiện được khai báo mảng, truy cập phần tử của mảng
Sử dụng được các phần tử của mảng trong biểu thức tính toán.


Số câu
Số điểm
Tỉ lệ %





1
2
20%

1
1
10%
2
3
30%

Tổng số câu
Tổng số điểm
Tỉ lệ %

2
3điểm
30%

2
4điểm
40%

1
2điểm
20%

1
1điểm
10%
2
10điểm
100%









Đề bài:
Câu 1: (4 điểm) Cho thuật toán sau:
Bước 1: S( 10, x ( 0.5.
Bước 2: Nếu s < 5.2, chuyển tới bước 4.
Bước 3: S ( S – x và quay lại bước 2.
Bước 4: Thông báo S và kết thúc thuật toán.
Viết chương trình pascal thể hiện thuật toán đó.
Cho biết giá trị của S bằng bao nhiêu?
Câu 2: Viết chương trình nhập n phần tử cho mảng a1…an.
Hãy: a. In mảng vừa nhập ra màn hình.
b. In ra màn hình số lớn nhất.
Yêu cầu:
Tìm Input và Output của bài toán
Xác định số lượng biến để khai báo.
Chạy chương trình và sữa lỗi (nếu có).
Nếu nhập n = 6, các giá trị của dãy lần lượt là: 5, -3, 10, 8, -7, 9. Cho biết giá trị lớn nhất.
Chú ý: Mỗi lỗi sai bị trừ 0.5 đ. Nếu sai quá 3 lỗi không chấm chương trình đó.








ĐÁP ÁN VÀ BIỂU ĐIỂM
Câu
Đáp án
Điểm

1
Program cau1;
Var S, x : Real ;
BEGIN
S:= 10; x:= 0.5;
While S > 5.2 do
S: =S – x;
Writeln(S);
Readln ; END.
Giá trị của S = 5.
2




2

2
Program tim_max;
Var N, i, Max: Interger;
A: array [1..100] of integer;
Begin
Write (` Nhap do dai cua day so N :`); Readln(N);
Writeln (` Nhap cac phan tu cua day so :`);
For i:=1 to n do
Begin
Write (` a [ `, i, ` ] = `); readln (a[i]);
End.
Max:= a[1];
For i:=2 to n do
Begin
If Max < a[i] then Max := a[i]
End.
Writeln (` so lon nhat la Max = :`, Max);
Readln; End.



2






2











2


Kon Đào, ngày 16/04/2014
Duyệt TTCM GVBM


Trần Thị Thu Trang Nông Thị Thạch Thủy