(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]
Trang 1Ngà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ố:
I MỤC TIÊU:
1) Về kiến thức
- Kiểu xâu, tệp và thao tác với tệp, viết và sử dụng chương trình con (thủ tục
và hàm)
2) Về kĩ năng
- Khai báo và sử dụng kiểu xâu, thao tác với tệp, viết và sử dụng chương trình con
3) Về thái độ
- Nghiêm túc cẩn thận chính xác khi làm bài kiểm tra
II HÌNH THỨC KIỂM TRA:
Thực hành trên 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
Tệp và thao tác với
tệp
Viết và sử dụng
IV MA TRẬN ĐỀ:
MA TRẬN ĐỀ KIỂM TRA Chủ đề hoặc mạch
kiến thức kĩ năng
Mức độ nhận thức Tổng
Nhận biết T Hiểu Vận
dụng
Vận dụng cao
3
1
3
Tệp và thao tác với tệp Câu 2
3
1
3 Viết và sử dụng
chương trình con
Câu 3 4
1
4
Trang 23
10
3
10
Trang 3BẢ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 1 chương trình đơn giản có sử dụng kiểu xâu kí tự.
Câu 2 Biết viết 1 chương trình có sử dụng kiểu dữ liệu tệp.
Câu 3: Biết viết 1 chương trình con để tính được 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 quá 30 kí tự và
đếm số kí tự ‘A’ (chữ A) có trong xâu (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 cầu nhập vào máy và chạy được)
Câu 3: (4 điểm) Dùng chương trình con lập hàm tính diện tích hình thang; nhập
vào các cạnh của một hình thang bất kì và tính diện tích hình thang đó? (Yêu cầu nhập vào máy và chạy được)
VI ĐÁP ÁN VÀ BIỂU ĐIỂM:
Câu 1: Viết được chương trình nhập vào máy và chạy được (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:= 1 TO length(s) DO
IF S[i] = 'o' THEN D:=D+1;
write('so chu o trong xau la:',D);
readln;
END
Câu 2: Viết được chương trình nhập vào máy và chạy được (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 được chương trình, nhập vào máy và chạy được (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
Write( ‘nhap day lon, day nho va chieu cao cua hinh thang:’); Readln(a, b, h);
Trang 4s := DTHinhThang(a, b, h); Writeln( ‘dien tich hinh thang la = ‘, s : 0 : 2); Readln;
End