Tuần:32 (Tuần 26, Tiết 44:Lớp 11C)
Tiết : 45 Ngày soạn 27 /02/08

BÀI TẬP VÀ THỰC HÀNH 7(tt)
A- Mục tiêu bài học:
Kiến thức:
Tiếp tục củng cố cho học sinh những khái niệm về chương trình con: thủ tục, hàm, tham số giái trị, tham số biến, tham số hình thức, biến toàn cục, biến cục bộ.
Kỹ năng:
Biết cách tổ chức và sử dụng chương trình con khi lập trình giải một bài toán.
Thái độ:
Phát huy tính tích cực của học sinh, rèn luyện tính tổ chức của học sinh.
B- Phương pháp:
Thuyết trình –vấn đáp
C- Chuẩn bị của giáo viên và học sinh:
1./ Chuẩn bị của giáo viên: Máy chiếu Projector, phòng máy thực hành, phấn, bảng…
2./ Chuẩn bị của học sinh: SKG, bài thực hành (HS chuẩn bị trước), …
D- Tiến trình lên lớp:
I- Ổn định lớp:
II- Kiểm tra bài cũ:
Kiểm tra trong quá trình thực hành
III- Bài mới: Đặt vấn đề:
Tiết trước chúng ta đã viết các thủ tục và hàm. Hôm nay chúng ta xây dựng chương trình có sử dụng các hàm và các thủ tục ở bài thực hành trước.
Hoạt động của giáo viên
Hoạt động của học sinh

* Hoạt động 1: Giúp học sinh cách viết thủ tục và hàm.

 Tiết 2
Phân tích bài toán:
+ Input là gì?


+ Output là gì?

+ Input và Output nằm ở đâu?
-> Vì vậy để lập trình giải bài toán ta cần có những thao tác nào?
Hướng giải quyết bài toán:
+ Bài toán cần có những chương trình con nào? Có thể khai thác ở đâu?
+ Các thao tác đọc tệp văn bản.
+ Các thao tác đếm các loại tam giác.
+ Các thao tác để ghi kết quả đạt được.
-> Các thao tác thực hiện trên chương trình chính( sử dụng máy chiếu hoặc ghi lên bảng):
khởi tạo các biến đếm.
Mở tệp tamgiac.dat để đọc.
Đọc số N.
Từ dòng 1 đến dòng N thực hiện các thao tác :
+ Đọc 6 số vào 6 biến (readln(T.A.x,T.A.y,T.B.x,T.B.y,T.C.x,T.C.y))
+ Gọi thủ tục tính chất.
+ Kiểm tra điều kiện và đếm.
Mở tệp tamgiac.out để ghi kết quả.
Yêu cầu học sinh lập trình giải bài toán.









































Quan sát và giải đáp thắc mắc của học sinh.
Hướng dẫn học sinh chạy thử và kiểm tra chương trình trên tệp có sẵn bằng cách đổi tên tệp tamgiac.dat thành các tên tệp có sẵn.


Dòng đầu tiên chứa số N
N dòng tiếp theo chứ toạ độ ba đỉnh của tam giác.
Dòng đầu là số tam giác đều
Dòng thứ hai là số tam giác cân (không đều).
Dòng thứ ba là số tam giác vuông.
Trả lời: nằm trong hai tệp có tên là tamgiac.dat và tamgiac.out.


Cần 3 chương trình con: kh_cách, daicanh, tinhchat.(sử dụng các chương trình có sẵn ở câu b).

Theo dõi

Thực hành trên máy
uses crt;
type
Diem=record
x,y: real;
end;
tamgiac=record
A,B,C: Diem;
end;
const eps = 1.0E-6;
var T:tamgiac;
d,cn,v:boolean;
n,i,deu,can,vuong:word;
f,f1:text;
function kh_cach(P,Q:Diem):real;
begin
kh_cach:=sqrt((P.x-Q.x)*(P.x-Q.x)+(P.y-Q.y)*(P.y-Q.y));
end;
procedure daicanh(var R:tamgiac; var a,b,c: real);
begin
a:=kh_cach(R.B,R.C);
b:=kh_cach(R.A,R.C);
c:=kh_cach(R.A,R.B);
end;