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 hình chử nhật

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 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
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 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.
Về Đầu Trang Go down
Xem lý lịch thành viên
 
Điểm trên hình chử nhật
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