BÀI THỰC HÀNH SỐ 7
Giáo án điện tử tin học lớp 11
Khai báo
Xây dựng thủ tục nhập ba đỉnh của tam giác.
Type Diem=Record
x,y:Real;
end;
Tamgiac=record
A,B,C:Diem;
end;
Var T: Tamgiac; a,b,c:real;
Xây dựng thủ tục và hàm
Thủ tục nhập ba đỉnh của tam giác
Procedure nhap(var A,B,C:diem);
- 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);
- Hàm tính chu vi của tam giác
Function chuvi(R:tamgiac):real;
- Hàm tính diện tích của tam giác
Function dientich(R:tamgiac):real;
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;
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.
In ra màn hình độ dài ba cạnh của tam giác?
Daicanh(T,a,b,c);
Writeln(`Do dai canh a la: `, a);
Writeln(`Do dai canh b la: `, b);
Writeln(`Do dai canh c la: `, c);
Chương trình chính
Begin
Clrscr;
Nhap(T.A,T.B,T.C);






Readln;
End.
Tính chu vi của tam giác?
Writeln(`Chu vi cua tam giac la: `, chuvi(r))
Writeln(`dien tich cua tam giac la: `, dientich(r))
Dien tich của tam giác?
HẾT
Về nhà học bài và làm bài tập trong sách bài tập