BÀI THỰC HÀNH SỐ 7
Giáo án điện tử tin học lớp 11
(Tiếp theo)
Xây dựng thủ tục và hàm
- Hàm tính diện tích của tam giác
Function dientich(R:tamgiac):real;
Hàm kiểm tra tam giác đều
Function Deu(R:tamgiac):Boolean;
Hàm kiểm tra tam giác cân
Function Can(R:tamgiac):Boolean;
- Hàm kiểm tra tam giác vuông
Function Vuong(R:tamgiac):Boolean;
Procedure Nhap(A,B,C:diem);
Begin
Writeln(`Nhap cac dinh tam giac`);
Write(`Nhap dinh A= `);readln(A.x,A.y);
Write(`Nhap dinh B= `);readln(B.x,B.y);
Write(`Nhap dinh C= `);readln(C.x,C.y);
End;
Xây dựng thủ tục nhập ba đỉnh của tam giác.


Thủ tục tính độ dài các cạnh của tam giác
Procedure Daicanh(R:tamgiac; Var a,b,c:real);
Xây dựng các thủ tục và hàm:
Hàm tính độ dài hai đỉnh
Function Kh_canh(P,Q:diem):real;
Begin
Kh_canh:=Sqrt(sqr(P.x-Q.x)+sqr(P.y-Q.y));
End;
Thủ tục tính độ dài các cạnh của tam giác
Procedure Daicanh(R:tamgiac; Var a,b,c:real);
Begin
a:=Kh_canh(R.B,R.C);
b:=Kh_canh(R.A,R.C);
c:=Kh_canh(R.A,R.B);
End;
Hàm tính chu vi của tam giác R
Function Chuvi(R:tamgiac):real;
Var a,b,c: real;
Begin
Daicanh(R,a,b,c);
Chuvi:=a+b+c;
End;
Hàm tính dien tich của tam giác R
Function Dientich(R:tamgiac):real;
Var a,b,c,p: real;
Begin
Daicanh(R,a,b,c);
p:=(a+b+c)/ 2;
Dientich:=Sqrt(p*(p-a)*(p-b)*(p-c));
End;
?
Function Deu(R:tamgiac):boolean;
Var a,b,c:real;
Begin
Deu:=false;
Daicanh(R,a,b,c);
if ( a-b=0) and (a-c=0) then deu:=true
End;
Hàm kiểm tra tam giác Deu
Hàm kiểm tra tam giác Can
Function Can(R:tamgiac):boolean;
Var a,b,c:real;
Begin
Can:=false;
Daicanh(R,a,b,c);
if ( a-b=0) or (a-c=0) or (b-a=0) then
Can:=true;
End;
Hàm kiểm tra tam giác Vuong
Function Vuong(R:tamgiac):boolean;
Var a,b,c:real;
Begin
Vuong:=false;
Daicanh(R,a,b,c);
if ( a*a+b*b-c*c=0) or (a*a+c*c-b*b=0)
or (b*b-a*a-c*c=0) then vuong:=true;
End;
Chương trình chính
Begin
Clrscr;







Readln;
End.
Bạn có cần nhập các đỉnh của tam giác không?
Nhap(T.A,T.B,T.C);
Chương trình chính
Begin
Clrscr;
Nhap(T.A,T.B,T.C);






Readln;
End.
Writeln(`dien tich cua tam giac la: `, dientich(r));
Dien tich của tam giác?
Chương trình chính
Begin
Clrscr;
Nhap(T.A,T.B,T.C);






Readln;
End.
Tam giác là tam giác gì?
If can(T) then writeln(`Tam giac can`)
Else if deu(T) then writeln(`Tam giac deu`)
else if vuong(T) then writeln(`Tam giac vuong`);
HẾT
Về nhà học bài và làm bài tập trong sách bài tập