На этой странице дано решение примеров Begin19 - Begin21 из задачника Абрамяна. Здесь рассматриваются решения задач, связанные с координатами точек в прямоугольной декартовой системе координат.
Begin19. Даны координаты двух противоположных вершин прямоугольника: (x1, y1), (x2, y2). Стороны прямоугольника параллельны осям координат. Найти периметр и площадь данного прямоугольника.
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
x1, y1, x2, y2, a, b:real;
beginwriteln('Введите координаты 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);
readlnend.
Begin20. Найти расстояние между двумя точками с заданными координатами (x1, y1), (x2, y2) на плоскости. Расстояние вычисляется по формуле
((x2 − x1)2 + (y2 − y1)2)1/2.
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
x1, y1, x2, y2, d:real;
beginwriteln('Введите координаты x1 и y1:');
readln(x1, y1);
writeln('Введите координаты x2 и y2:');
readln(x2, y2);
writeln;
{ Расстояние между двумя точками на плоскости: }
d :=sqrt(sqr(x2 - x1)+sqr(y2 - y1));
writeln('Расстояние = ', d:0:2);
readlnend.
Begin21. Даны координаты трех вершин треугольника:
(x1, y1), (x2, y2), (x3, y3).
Найти его периметр и площадь, используя формулу для расстояния между двумя точками на плоскости (см. задание Begin20). Для нахождения площади треугольника со сторонами a, b, c использовать формулу Герона: