Найти координаты точек и диагональ прямоугольника - Turbo Pascal
Формулировка задачи:
нуждаюсь в помощи по задаче:
Вершины прямоугольника.
На плоскости заданы координаты двух противоположных вершин прямоугольника. Необходимо найти координаты двух остальных его вершин. Вывести на экран и записать в файл "output.txt" координаты всех вершин прямоугольника и значения диагонали.
Решение задачи: «Найти координаты точек и диагональ прямоугольника»
textual
Листинг программы
LengthDiag := sqrt( sqr(x1-x2) + sqr(y1-y2));
Объяснение кода листинга программы
- Задание: Найти координаты точек и диагональ прямоугольника.
- Переменные: x1, y1, x2, y2 - координаты точек прямоугольника.
- Вычисляется длина диагонали прямоугольника: LengthDiag := sqrt( sqr(x1-x2) + sqr(y1-y2));