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 hình chử nhật Wed Dec 19, 2007 7:58 am | |
| Lập chương trình xét xem điểm M(x;y) có nằm trên hình chử nhật ABCD hay không. Với tọa độ các điểm A(x1;y1), B(x2;y2), C(x3;y3), D(x4;y4), M(x;y) nhập từ bàn phím | |
|
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 hình chử nhật Wed Dec 19, 2007 8:07 pm | |
| Var x1,x2,x3,x4,y1,y2,y3,y4,x,y: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 C: ');readln(x3,y3); Write('Nhap toa do diem D: ');readln(x4,y4); Write('Nhap toa do diem M: ');readln(x,y); If (x<=max(max(x1,x2),max(x3,x4))) and (x>=min(min(x1,x2),min(x3,x4))) and (y<=max(max(y1,y2),max(y3,y4))) and (y>=min(min(y1,y2),min(y3,y4))) then write('M nam tren HCN ABCD') else write('M khong nam tren HCN ABCD'); readln; End. | |
|