Mr Map Phó thường dân
Tổng số bài gửi : 11 Registration date : 04/12/2007
| Tiê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? | |
|
ITer Phó thường dân
Tổng số bài gửi : 18 Age : 31 Location : Vị Thanh, Hậu Giang Registration date : 06/12/2007
| Tiê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. | |
|