a) Kiểm tra ba số nguyên nhập vào từ bàn phím có phải là độ dài ba cạnh của một tam giác hay không? b) Nếu đó là độ dài ba cạnh của một tam giác, hãy xuất ra màn hình chu vi của tam giá[r]
(1)ĐỀ KIỂM TRA THỰC HÀNH MÔN TIN HỌC 11
Lưu ý:Học sinh tạo thư mục BAITAP vào ổ đĩa D Khi làm HS lưu làm vào thư mục theo đường dẫn D:\BAITAP\
Bài 1: (4 điểm) Viết chương trình: (Viết bài) a) Ghi lên tệp gồm phần tử x y
b) Đọc tệp xuất hình tổng hai phần tử
Bài 2: (6 điểm) Viết chương trình con: (Mỗi câu chương trình tổng thể bài)
a) Kiểm tra ba số nguyên nhập vào từ bàn phím có phải độ dài ba cạnh tam giác hay khơng? b) Nếu độ dài ba cạnh tam giác, xuất hình chu vi tam giác
c) Nếu độ dài ba cạnh tam giác, xuất hình diện tích tam giác
ĐỀ KIỂM TRA THỰC HÀNH MƠN TIN HỌC 11
Lưu ý: Học sinh tạo thư mục BAITAP vào ổ đĩa D Khi làm HS lưu làm vào thư mục theo đường dẫn D:\BAITAP\
Bài 1: (4 điểm) Viết chương trình: (Viết bài) a) Ghi lên tệp gồm phần tử x y
b) Đọc tệp xuất hình tổng hai phần tử
Bài 2: (6 điểm) Viết chương trình con: (Mỗi câu chương trình tổng thể bài)
a) Kiểm tra ba số nguyên nhập vào từ bàn phím có phải độ dài ba cạnh tam giác hay không? b) Nếu độ dài ba cạnh tam giác, xuất hình chu vi tam giác
c) Nếu độ dài ba cạnh tam giác, xuất hình diện tích tam giác
ĐỀ KIỂM TRA THỰC HÀNH MÔN TIN HỌC 11
Lưu ý: Học sinh tạo thư mục BAITAP vào ổ đĩa D Khi làm HS lưu làm vào thư mục theo đường dẫn D:\BAITAP\
Bài 1: (4 điểm) Viết chương trình: (Viết bài) a) Ghi lên tệp gồm phần tử x y
b) Đọc tệp xuất hình tổng hai phần tử
Bài 2: (6 điểm) Viết chương trình con: (Mỗi câu chương trình tổng thể bài)
a) Kiểm tra ba số ngun nhập vào từ bàn phím có phải độ dài ba cạnh tam giác hay không? b) Nếu độ dài ba cạnh tam giác, xuất hình chu vi tam giác
(2)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
1 Tệp thao tác với tệp
Biết lệnh khai báo tệp văn
Biết số hàm thủ tục chuẩn làm việc với tệp Sự khác mở tệp để ghi mở tệp để đọc
Viết thao tác, thủ tục, hàm trình tự thực với tệp văn như: gán tên tệp, mở tệp, đọc/ghi, đóng tệp văn đơn giản
Số câu 1 Số điểm Tỉ lệ 40%
Số câu: Số điểm:
Số câu: Số điểm:
Số câu: 1 Số điểm: 4
Số câu: Số điểm:
Số câu:1 4.0 điểm= 40%
2 Chương trình lập trình
có cấu trúc
Chương trình có loại hàm thủ tục Biết cấu trúc thành phần chương trình
Biết cách khai báo biến chương trình chương trình Mối liên hệ chương trình chương trình
Viết thủ tục hàm đơn giản Sử dụng lời gọi hàm hay thủ tục
Số câu 1 Số điểm Tỉ lệ 60%
Số câu:
Số điểm: Số điểm:Số câu: Số điểm:6 Số câu:1 Số điểm:Số câu: 6,0 điểm=60% Số câu:1 Tổng số câu
Tổng số điểm Tỉ lệ %
Số câu: Số điểm: % Số câu: Số điểm: %
Số câu: 2 Số điểm: 10
%
(3)ĐÁP ÁN
Bài 1:
Tạo thư mục lưu trữ 0,5
Khai báo biến 0,5
Viết thuật toán ghi lên tệp hai phần tử x, y 1,5
Viết thuật tốn đọc hai số x,y; tính xuất tổng hai số 1,5 Bài mẫu
Program chuongtrinh1; Uses crt;
Var tep: text; a, b, S: integer; Begin
Clrscr;
{ -CHUONG TRINH GHI -} Assign(tep, ‘D:\BAITAP\BAI1A’);
Rewrite(tep);
Writeln(‘Ban hay nhap vao hai so nguyen bat kì a va b: ‘); Readln(a,b);
Write(tep,x,y:4);
b) { -CHUONG TRINH DOC -} Assign(tep, ‘D:\BAITAP\BAI1A’);
Reset(tep);
While not(eof(tep)) Do Begin
Read(tep,a,b); S:=a+b; End;
Writeln(‘ Tong cua hai so la: ‘,S); Close(tep);
(4)Bài 2:
Lưu trữ vào thư mục tạo theo yêu cầu 0,5
Khai báo biến cho chương trình chương trình hợp lí 1,0
Xác định hàm hay thủ tục cấu trúc để viết 0,5
Viết chương trình thuật toán kiểm tra ba số 1,0
Viết chương trình thuật tốn để tính chu vi 1,0
Viết chương trình thuật tốn để tính diện tích 1,0
Gọi chương trình 1,0
Bài mẫu:
Program chuongtrinh2; Uses crt;
Var a,b,c: integer;
{ -CHUONG TRINH KIEM TRA BA SO CO PHAI LA BA CẠNH CUA TAM GIAC -} Function KTTG(x,y,z: integer): Boolean;
Begin
If (x+y>z)or(y+z>x)or(x+z>y) Then KTTG:=True Else KTTG:=False; End;
{ -CHUONG TRINH TINH CHU VI CUA TAM GIAC KHI THOA YEU CAU TREN -} Procedure Chuvi(m, n, p: integer);
Var cv: integer; Begin
CV:=m+n+p;
Write(‘Chu vi cua tam giac la: ‘,CV); End;
{ -CHUONG TRINH TÍNH DIEN TICH CUA TAM GIAC KHI THOA YEU CAU TREN ) Procedure Dientich(g, h, k: integer);
Var p, dt: real; Begin
p:=(g+h+k)/2;
DT:=sqrt(p(p-g)(p-h)(p-k));
Write(‘ Dien tich cua tam giac la: ‘,DT); End;
{ -CHUONG TRINH CHINH VA GOI CAC CHUONG TRINH CON LAM VIEC -} Begin
Clrscr;
Writeln(‘Ban hay nhap vao ba so nguyen duong a, b, c: ‘); Readln(a,b,c);
If KTTG(a,b,c)=True Then Writeln(‘ Day la ba canh cua tam giac’) Else Writeln(‘ Day khong phai la ba canh cua tam giac’); If KTTG(a,b,c)=True Then Chuvi(a,b,c));
If KTTG(a,b,c)=True Then Dientich(a,b,c)); Readln;