Найти координаты четвертого пункта - Pascal ABC

Формулировка задачи:

Даны три пункта с координатами (; ); (; ), (, ), которые являются вершинами некоторого прямоугольника со сторонами, параллельными осям координат. Найти координаты четвертого пункта.

Решение задачи: «Найти координаты четвертого пункта»

Листинг программы

//без проверки  водимых данных
uses crt;
var x1,y1,x2,y2,x3,y3,x4,y4:integer;
begin
writeln('Введите координаты трех вершин прямоугольника со сторонами,');
writeln('параллельными осям кординат');
readln(x1,y1,x2,y2,x3,y3);
if x1=x2 then x4:=x3
else if x1=x3 then x4:=x2
else if x2=x3 then x4:=x1;
if y1=y2 then y4:=y3
else if y1=y3 then y4:=y2
else if y2=y3 then y4:=y1;
writeln('Координаты четвертой вершины x=',x4,' y=',y4)
end.

Объяснение кода листинга программы

В первой строке кода используется директива uses crt;, которая подключает стандартную библиотеку Pascal, содержащую функции ввода и вывода.
Далее, переменной x1, y1, x2, y2, x3, y3 и x4, y4 присваиваются значения типа integer, что позволяет работать с целыми числами.
В строке 8 с помощью функции readln() происходит чтение координат четырех вершин прямоугольника.
Затем, с помощью условного оператора if, происходит проверка на равенство координат вершин. Если координаты первой вершины равны координатам второй вершины, то четвертая вершина присваивается координаты третьей вершины. Если координаты первой вершины равны координатам третьей вершины, то четвертая вершина присваивается координаты второй вершины. Если координаты первой вершины равны координатам второй вершины, то четвертая вершина присваивается координаты первой вершины. Если координаты второй вершины равны координатам третьей вершины, то четвертая вершина присваивается координаты второй вершины. Если координаты третьей вершины равны координатам второй вершины, то четвертая вершина присваивается координаты первой вершины.
В строке 17 с помощью функции writeln() выводится сообщение с координатами четвертой вершины.
Код завершается точкой с символом end..