Trang ChínhTrang Chính  PortalliPortalli  CalendarCalendar  GalleryGallery  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Đăng kýĐăng ký  Thành viênThành viên  NhómNhóm  Đăng NhậpĐăng Nhập  

Share | 
 

 Ba điểm thẳng hàng

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Mr Map
Phó thường dân
Phó thường dân
avatar

Tổng số bài gửi : 11
Registration date : 04/12/2007

Bài gửiTiêu đề: Ba điểm thẳng hàng   Mon Dec 17, 2007 5:41 pm

Nhập tọa độ của 3 điểm A(x1;y1), B(x2;y2), C(x3;y3) từ bàn phím. Lập chương trình xác định A, B, C có thẳng hàng hay không?
Về Đầu Trang Go down
Xem lý lịch thành viên
ITer
Phó thường dân
Phó thường dân
avatar

Tổng số bài gửi : 18
Age : 25
Location : Vị Thanh, Hậu Giang
Registration date : 06/12/2007

Bài gửiTiêu đề: Re: Ba điểm thẳng hàng   Mon Dec 17, 2007 7:56 pm

Var x1,x2,x3,y1,y2,y3:real;
Begin
Write('Nhap toa do diem A: ');readln(x1,y1);
Write('Nhap toa do diem B: ');readln(x2,y2);
Write('Nhap toa do diem C: ');readln(x3,y3);
If (x2-x1)/(x3-x1)=(y2-y1)/(y3-y1) then write('A,B,C thang hang')
else Write('A,B,C khong thang hang');
Readln;
End.
Về Đầu Trang Go down
Xem lý lịch thành viên
Mr Map
Phó thường dân
Phó thường dân
avatar

Tổng số bài gửi : 11
Registration date : 04/12/2007

Bài gửiTiêu đề: Re: Ba điểm thẳng hàng   Mon Dec 17, 2007 9:26 pm

Hoan hô ITer
Bài của em sẽ hoàn thiện hơn nếu em thay
(x2-x1)/(x3-x1)=(y2-y1)/(y3-y1)
bằng
(x2-x1)*(y3-y1)=(x3-x1)*(y2-y1)
vì như thế thì sẽ tránh được lỗi chia cho 0
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: Ba điểm thẳng hàng   

Về Đầu Trang Go down
 
Ba điểm thẳng hàng
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
 :: Tin học :: Tin học trẻ không chuyên-
Chuyển đến