Найти площадь части прямоугольника, лежащей во второй части координатной плоскости, если он задан координатами его вершин. ПАСКАЛЬ!!!! РЕШАТЬ ПРОСТЫМ СПОСОБОМ!!!
Ответы
Ответ:
Дано: координаты вершин прямоугольника A(x₁, y₁), B(x₂, y₂), C(x₃, y₃), D(x₄, y₄).
Найти: площадь части прямоугольника, лежащей во второй части координатной плоскости.
Решение:
1. Найдем координаты середины прямоугольника M((x₁ + x₃)/2, (y₁ + y₃)/2).
2. Если середина M лежит во второй четверти, то площадь части прямоугольника, лежащей во второй части координатной плоскости, равна площади прямоугольника AMCD. Если же середина M лежит в третьей четверти, то площадь части прямоугольника, лежащей во второй части координатной плоскости, равна площади прямоугольника BMDA.
Код на Pascal:
var
x1, y1, x2, y2, x3, y3, x4, y4, s: real;
begin
writeln('Введите координаты вершин прямоугольника:');
readln(x1, y1, x2, y2, x3, y3, x4, y4);
{находим координаты середины прямоугольника}
var xm := (x1 + x3) / 2;
var ym := (y1 + y3) / 2;
{проверяем, в какой четверти лежит середина}
if (xm < 0) and (ym > 0) then
s := abs(x1 - x3) * abs(y1 - y3) {площадь прямоугольника AMCD}
else if (xm > 0) and (ym < 0) then
s := abs(x2 - x4) * abs(y2 - y4) {площадь прямоугольника BMDA}
else
s := 0; {если середина лежит в других четвертях, то площадь равна 0}
writeln('Площадь части прямоугольника во второй четверти: ', s);
end.