BÀI THỰC HÀNH 7
Bài toán: Cho ?ABC biết tọa độ 3 đỉnh


Xác định:
Chu vi ?
Diện tích ?
Tính chất ?: đều, cân, vuông
A
B
C
Sử dụng bản ghi cho Diem, Tamgiac
Const nho = 1.0E - 6;
Type Diem = record
x, y: real;
End;
Tamgiac = record
A, B, C: Diem;
End;

`nho` bằng bao nhiêu?
Function Kh_cach(P, Q: diem): real;
Begin
Kh_cach:= sqrt((P.x-Q.x)*(P.x-Q.x) + (P.x-Q.y)*(P.y-Q.y));
End;
Procedure Dai_canh(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;
Function Chu_vi(var R : tamgiac) : real;
Var a, b, c: real;
Begin
Dai_canh(R, a, b, c);
Chu_vi := a + b + c;
End;

Tại sao CT con Chu_vi lại sử dụng hàm (function) mà không sử dụng thủ tục (procedure)?
Function Dien_tich(var R: tamgiac) : real;
Var a, b, c, p : real;
Begin
Dai_canh(R, a, b, c);
p := (a+b+c)/2;
Dien_tich:=sqrt(p*(p-a)*(p-b)*(p-c));
End;

Có thể chọn kiểu Integer được không?
Procedure Hien_thi(var R: tamgiac);
Begin
Writeln(`Toa do 3 dinh tam giac la:`);
Writeln(`Dinh A(`,R.A.x:0:3,`, `,R.A.y:0:3,`)`);
Writeln(`Dinh B(`,R.B.x:0:3,`, `,R.B.y:0:3,`)`);
Writeln(`Dinh C(`,R.C.x:0:3,`, `,R.C.y:0:3,`)`);
end;

Procedure TC(var R:tamgiac; var deu, can, vuong: boolean);
Var a, b, c: real;
Deu:=false; can:=false; vuong:=false;
Dai_canh(R, a, b, c);
If (abs(a-b) < nho) and (abs(b-c) < nho) then
Deu:= true
Else
If (abs(a-b) < nho) or (abs(a-c) < nho) or (abs(b-c) < nho) then
Can:=true;
If (abs(a*a+b*b-c*c)or (abs(b*b+c*c-a*a) vuong:=true;
End;
BÀI TẬP TRẮC NGHIỆM
CÂU 1: Ta sử dụng hàm (function) khi
A. Kết quả trả về một giá trị số
B. Kết quả không trả về giá trị số
C. A sai, B đúng
D. Tất cả đều sai

Xin chúc mừng!
CÂU 2: Sau từ khóa const dùng để khai báo
A. Biến
B. Tên CT
C. Hằng
D. Thủ tục
CÂU 3: Khi sử dụng hàm (function) để tính diện tích tam giác thì nên chọn kiểu DL là
A. Integer
B. Char
C. Real
D. Boolean
Đúng rồi!
Kiến thức trọng tâm
1. Cách viết CH con từ bài toán thực tế
2. Khi nào chọn thủ tục hoặc hàm

CHUẨN BỊ
Bài thực hành tiết sau