Программа про координаты и вложенные прямоугольники

@Snow-man · Регистрация: 25.06.2013

Author24 — интернет-сервис помощи студентам

Дорогие форумчане прошу пожалуйста создайте программу для того чтобы определить:
-вложен ли 1-ый прямоугольник во 2-ой
или
-вложен ли 2-ой прямоугольник в 1-ый
Тест:
Ввод Вывод
1 1{координаты 1-ой точки 1-го прямоугольника,например x1,y1} |->2-ой прямоугольник
4 6{координаты 2-ой точки 1-го прямоугольника,например x2,y2} |->вложен в
2 2{координаты 1-ой точки 2-го прямоугольника,например n1,m1}|->1-ый
3 5{координаты 2-ой точки 2-го прямоугольника.например n2,m2}|->прямоугольник
Если что вывод это одна строка

Вот начало набросал:

Pascal

var
x1,x2:real;
y1,y2:real;
m1,m2:real;
n1,n2:real;
begin
write('координаты 1 точки 1-го прямоугольника:');
readln(x1,y1);
write('координаты 2 точки 1-го прямоугольника:');
readln(x2,y2);
write('координаты 1 точки 2-го прямоугольника:');
readln(n1,m1);
write('координаты 2 точки 2-го прямоугольника:');
readln(n2,m2);

Заранее большое СПАСИБО!

@Puporev · 25.06.2013, 11:32

Pascal

uses crt;
var
x1,x2,y1,y2,m1,m2,n1,n2:real;
begin
clrscr;
writeln('координаты левого верхнего угла 1-го прямоугольника:');
readln(x1,y1);
repeat
writeln('координаты правого нижнего угла 1-го прямоугольника:');
readln(x2,y2);
until(x2>x1)and(y2<y1);
writeln('координаты левого верхнего угла 2-го прямоугольника:');
readln(n1,m1);
repeat
writeln('координаты правого нижнего угла  2-го прямоугольника:');
readln(n2,m2);
until(n2>n1)and(m2<m1);
if(n1>x1)and(m1<y1)and(n2<x2)and(m2>y2)then
write('Второй прямоугольник вложен в первый')
else if(x1>n1)and(y1<m1)and(x2<n2)and(y2>m2)then
write('Первый прямоугольник вложен во второй')
else write('Прямоугольники не вложены');
readln
end.

	25.06.2013, 11:32