(Yêu cầu nhập vào máy và chạy được) Câu 2: (3 điểm) Viết chương trình mở một tệp văn bản BT1.TXT được lưu trong thư mục KIEMTRA ở ổ đĩa gốc E và đọc dữ liệu trong tệp ra màn hình. (Yêu[r]
(1)Ngày dạy: Tại lớp: 11B1 - Sĩ số: Ngày dạy: Tại lớp: 11B2 - Sĩ số: Ngày dạy: Tại lớp: 11B3 - Sĩ số: Ngày dạy: Tại lớp: 11B4 - Sĩ số: Tiết 47: KIỂM TRA THỰC HÀNH (1 TIẾT)
I MỤC TIÊU: 1) Về kiến thức
- Kiểu xâu, tệp thao tác với tệp, viết sử dụng chương trình (thủ tục hàm)
2) Về kĩ năng
- Khai báo sử dụng kiểu xâu, thao tác với tệp, viết sử dụng chương trình
3) Về thái độ
- Nghiêm túc cẩn thận xác làm kiểm tra II HÌNH THỨC KIỂM TRA:
Thực hành máy
III MA TRẬN NHẬN THỨC:
Tên chủ đề Tầm quantrọng Trọng số Điểm theo matrận Điểm theo thang10
Kiểu xâu 30 60
Tệp thao tác với tệp
30 90
Viết sử dụng
chương trình 40 120
Cộng 100 270 10
IV MA TRẬN ĐỀ:
MA TRẬN ĐỀ KIỂM TRA Chủ đề mạch
kiến thức kĩ
Mức độ nhận thức Tổng Nhận biết T Hiểu Vận
dụng
Vận dụng cao
Kiểu xâu Câu 1
3
1
3 Tệp thao tác với tệp Câu 2
3
1
3 Viết sử dụng
chương trình
Câu 3 4
1
(2)Tổng
3
10
3
(3)BẢNG MƠ TẢ TIÊU CHÍ LỰA CHỌN CÂU HỎI, BÀI TẬP Câu 1. Biết viết chương trình đơn giản có sử dụng kiểu xâu kí tự
Câu 2. Biết viết chương trình có sử dụng kiểu liệu tệp
Câu 3: Biết viết chương trình để tính diện tích hình thang V ĐỀ KIỂM TRA:
Câu 1: (3 điểm) Viết chương trình nhập vào xâu S có độ dài khơng 30 kí tự đếm số kí tự ‘A’ (chữ A) có xâu (Yêu cầu nhập vào máy chạy được) Câu 2: (3 điểm) Viết chương trình mở tệp văn BT1.TXT lưu thư mục KIEMTRA ổ đĩa gốc E đọc liệu tệp hình (Yêu cầu nhập vào máy chạy được)
Câu 3: (4 điểm) Dùng chương trình lập hàm tính diện tích hình thang; nhập vào cạnh hình thang tính diện tích hình thang đó? (u cầu nhập vào máy chạy được)
VI ĐÁP ÁN VÀ BIỂU ĐIỂM:
Câu 1: Viết chương trình nhập vào máy chạy (3 điểm) PROGRAM cau_1;
VAR s: STRING [30]; D, i: INTEGER;
BEGIN
Write('nhap vao xau S:'); Readln(s); D:=0;
FOR i:= TO length(s) DO IF S[i] = 'o' THEN D:=D+1;
write('so chu o xau la:',D); readln;
END
Câu 2: Viết chương trình nhập vào máy chạy (3 điểm) var f: text; s: string[10];x: longint;
begin
assign(f,'D:\BAITAP\BT123.TXT'); reset(f);
read(f, s, x); writeln(s); writeln(x); close(f); end.
Câu 3: Viết chương trình, nhập vào máy chạy (4 điểm) Program cau_3;
Var a, b, h, s : Real;
Function DTHinhThang(a, b, h:real) : Real; Begin
DTHinhThang := (a + b) * h / 2; End;
Begin
(4)s := DTHinhThang(a, b, h); Writeln( ‘dien tich hinh thang la = ‘, s : : 2); Readln;