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

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
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