Bài tập tin 11

[hoangminhtrang_94]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình nhập vào 2 điểm A và B có hoành độ và tung độ nhập từ bàn phím(điểm A ko trùng B)biết rằng đường tròn sẽ đi wa 2 điểm A và B và nhận A và B làm đường kính.Tính S và P của hình tròn?

 

[duynhan1]

Viết chương trình nhập vào 2 điểm A và B có hoành độ và tung độ nhập từ bàn phím(điểm A ko trùng B)biết rằng đường tròn sẽ đi wa 2 điểm A và B và nhận A và B làm đường kính.Tính S và P của hình tròn?

Var xa, xb, ya, yb, d : real;
 Begin
Write('Nhap toa do diem A: ');
Readln(xa;ya);
Write('Nhap toa do diem B: ');
Readln(xb;yb);

d:=sqrt(sqr(xa-xb)+sqr(ya-yb) ) ;

Write('Chu vi cua hinh tron la: ', 3.14 * d : 6: 2 ); 
Write('Dien tich cua hinh tron la: ', 3.14*sqr(d/2) :6:2 );

Readln;
End.