Необходимо определить координаты четвертой вершины - Turbo Pascal

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

Заданы координаты трех вершин прямоугольника. Необходимо определить координаты четвертой вершины.

Решение задачи: «Необходимо определить координаты четвертой вершины»

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

program koste;
uses crt, graph;
var   x3,y3,x1,y1,y2,x2,x4,y4,fl,fl2:integer;
      F:TEXT;
      driver,regim,a,i,DX,DY:integer;
Begin
 Repeat
 clrscr;
 assign(f,'input3.txt');
 reset(f);
 read(f,x1);
 read(f,y1);
 read(f,x2);
 read(f,y2);
 read(f,x3);
 read(f,y3);
 close(f);
 x4:=x3;
 y4:=y1;
Driver:=detect;
 initgraph(driver,regim,'');
 SetBkColor(0);
 clrscr;
 Setcolor(3);
 a:=0;
      For i:=1 to 64 do begin
                             Line(a,0,a,400);
                             a:=a+10;
                        end;
 a:=0;
 For i:=1 to 41 do begin
                        Line(0,a,640,a);
                        a:=a+10;
                   end;
 SetColor(1);
 Line(0,200,640,200);
 Line(320,0,320,400);
 OutTextXY(323,10,'Y');
 OuttextXY(620,190,'X');
 SetColor(15);
 rectangle(323+x2*40,200-y2*30,323+x4*40,200-y4*30);
 readln(fl);
 if fl<>0 then Closegraph; clrscr;
    writeln('x4=',x4:2,'y4=',y4:2);
 Readln(fl);
 Until fl<>0;
 end.

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

В программе используется библиотека графики crt и функция detectDriver из библиотеки graph для определения типа дисплея.
Четыре вершины графа представлены координатами x1, y1, x2, y2, x3, y3, x4, y4.
Координаты четвертой вершины хранятся в переменных x4 и y4.
Программа читает координаты вершин из файла input3.txt, используя функцию read.
После чтения координат, программа вычисляет координаты четвертой вершины, присваивая значения x4 и y4 переменным x3 и y3 соответственно.
Затем программа инициализирует графику, используя функцию initgraph.
Программа рисует четыре линии, соединяющие вершины графа, используя функцию Line.
Затем программа рисует прямоугольник вокруг четвертой вершины, используя функцию rectangle.
Программа читает следующую строку из файла, используя функцию readln.
Если значение в файле не равно нулю, программа закрывает графику и очищает экран, используя функции Closegraph и clrscr.
Затем программа выводит координаты четвертой вершины, используя функцию OutTextXY.
Программа повторяется, пока значение в файле не станет равным нулю.