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

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