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 | 
 

 Điểm trên đoạn thẳ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 đề: Điểm trên đoạn thẳng   Mon Dec 17, 2007 9:29 pm

Nhập từ bàn phím tọa độ 3 điểm A(x1;y1), B(x2;y2), M(x;y). Lập chương trình xét xem M có nằm trên đoạn thẳng AB 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: Điểm trên đoạn thẳng   Tue Dec 18, 2007 3:09 pm

Var x1,x2,x,y,y1,y2:real;
Function max(x,y:real):real;
Begin
If x<y then max:=y else max:=x;
End;
Function min(x,y:real):real;
Begin
If x<y then min:=x else min:=y;
End;
Begin
Write('Nhap toa do diem A: ');readln(x1,y1);
Write('Nhap toa do diem B: ');readln(x2,y2);
Write('Nhap toa do diem M: ');readln(x,y);
If (x>=min(x1,x2)) and (x<=max(x1,x2)) and (y>=min(y1,y2)) and (y<=max(y1,y2))
and ((x2-x1)*(y-y1)=(x-x1)*(y2-y1)) then write('M nam tren doan AB')
else write('M khong nam tren doan AB');
readln;
End.
Về Đầu Trang Go down
Xem lý lịch thành viên
 
Điểm trên đoạn thẳ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