Даны координаты двух противоположных вершин прямоугольника: (x1, y1), (x2, y2). Стороны прямоугольника параллельны осям (программа Паскаль)
Вопрос посетителя
Даны координаты двух противоположных вершин прямоугольника: (x1, y1), (x2, y2). Стороны прямоугольника параллельны осям координат. Найти периметр и площадь данного прямоугольника
Ответ эксперта
var
x1, y1, x2, y2, a, b: real;
begin
writeln(‘Введите координаты x1 и y1: ‘);
readln(x1, y1);
writeln(‘Введите координаты x2 и y2: ‘);
readln(x2, y2);
writeln;
{ Вычисляем стороны прямоугольников: }
a := abs(x2 — x1);
b := abs(y2 — y1);
{ Выводим результат: }
writeln(‘Периметр: ‘, 2 * (a + b):0:2);
writeln(‘Площадь: ‘, a * b:0:2);
readln
end.
