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]
Trang 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 bài HS lưu bài làm vào thư mục này theo đường dẫn D:\BAITAP\
Bài 1: (4 điểm) Viết chương trình: (Viết trong cùng một bài)
a) Ghi lên tệp gồm 2 phần tử x và y
b) Đọc tệp và xuất ra màn hình tổng của hai phần tử đó
Bài 2: (6 điểm) Viết các chương trình con: (Mỗi câu là một chương trình con trong tổng thể một bài)
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ác đó
c) Nếu đó là độ dài ba cạnh của một tam giác, hãy xuất ra màn hình diện tích của 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 bài HS lưu bài làm vào thư mục này theo đường dẫn D:\BAITAP\
Bài 1: (4 điểm) Viết chương trình: (Viết trong cùng một bài)
a) Ghi lên tệp gồm 2 phần tử x và y
b) Đọc tệp và xuất ra màn hình tổng của hai phần tử đó
Bài 2: (6 điểm) Viết các chương trình con: (Mỗi câu là một chương trình con trong tổng thể một bài)
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ác đó
c) Nếu đó là độ dài ba cạnh của một tam giác, hãy xuất ra màn hình diện tích của 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 bài HS lưu bài làm vào thư mục này theo đường dẫn D:\BAITAP\
Bài 1: (4 điểm) Viết chương trình: (Viết trong cùng một bài)
a) Ghi lên tệp gồm 2 phần tử x và y
b) Đọc tệp và xuất ra màn hình tổng của hai phần tử đó
Bài 2: (6 điểm) Viết các chương trình con: (Mỗi câu là một chương trình con trong tổng thể một bài)
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ác đó
c) Nếu đó là độ dài ba cạnh của một tam giác, hãy xuất ra màn hình diện tích của tam giác đó
Trang 2MA TRẬN ĐỀ Cấp độ
Vận dụng
Cộng Cấp độ thấp Cấp độ cao
1 Tệp và thao tác
với tệp
Biết lệnh khai báo tệp văn bản
Biết một số hàm
và thủ tục chuẩn làm việc với tệp.
Sự khác nhau giữa mở tệp để ghi và mở tệp để đọc
Viết được các thao tác, thủ tục, hàm và trình tự thực hiện với tệp văn bản như: gán tên tệp, mở tệp, đọc/ghi, đóng tệp văn bản đơn giản.
Số câu 1
Số điểm 4
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
con và lập trình
có cấu trúc
Chương trình con có
2 loại là hàm và thủ tục Biết cấu trúc và thành phần của chương trình con
Biết cách khai báo biến ở chương trình con cũng như chương trình chính Mối liên
hệ giữa chương trình con và chương trình chính
Viết được thủ tục và hàm đơn giản Sử dụng được lời gọi một hàm hay thủ tục
Số câu 1
Số điểm 6
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
%
Số câu: 2
Số điểm: 10
Trang 3ĐÁP ÁN
Bài 1:
Viết đúng thuật toán và đọc được hai số x,y; tính và xuất ra được tổng của 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);
Readln;
End
Trang 4Bài 2:
Khai báo biến cho chương trình con và chương trình chính hợp lí 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;
End