Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.



 
Trang ChínhTrang Chính  PortalliPortalli  GalleryGallery  Tìm kiếmTìm kiếm  Latest imagesLatest images  Đăng kýĐăng ký  Đăng NhậpĐăng Nhập  

 

 Điểm trên đoạn thẳng

Go down 
2 posters
Tác giảThông điệp
Mr Map
Phó thường dân
Phó thường dân
Mr Map


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

Điểm trên đoạn thẳng Empty
Bài gửiTiêu đề: Điểm trên đoạn thẳng   Điểm trên đoạn thẳng I_icon_minitimeMon 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
ITer
Phó thường dân
Phó thường dân
ITer


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

Điểm trên đoạn thẳng Empty
Bài gửiTiêu đề: Re: Điểm trên đoạn thẳng   Điểm trên đoạn thẳng I_icon_minitimeTue 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
 
Đ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