Задание:
На координатной плоскости своими действительными координатами (x1, y1) , (x2, y2) , (x3, y3) , (x4, y4) задан выпуклый четырехугольник. Проверить, является лион параллелограммом, если ДА – вычислите выражение | (a+b) 2+| с точностью до сотых, где а и b смежные стороны параллелограмма.
Решение:
Type Point=record x: integer; y: integer; end; var p1, p2, p3, p4: Point; function length (p1, p2: Point): real; begin length: =sqrt (sqr (p1.x — p2.x)+sqr (p1.y — p2.y); end; Begin readln (p1.x, p1.y); readln (p2.x, p2.y); readln (p3.x, p3.y); readln (p4.x, p4.y); if (length (p1, p2)=length (p3, p4) and (length (p3, p2)=length (p1, p4) then writeln ('P=', abs (2*(length (p1, p2)+length (p3, p2) else writeln ('No'); End.
Знаете другой ответ?