Курсовая работа: Программы в среде Turbo Pascal

end;

{*************1 zadanie********************}

procedure zadanie1;

label1;

var

x1,x2,x3,x4:integer;

y1,y2,y3,y4:integer;

q:array[1..4] of integer;

k:array[1..4] of integer;

l:array[1..4] of integer;

z,a,i:integer;

Dlin1,Dlin2,Dlin3:real;

Begin

1:;

ClrScr;

Writeln(‘Введитекоординатыточки A(x,y)’);

Readln(x1,y1);

Writeln(‘Введите координаты точки b(x,y’);

Readln)x2,y2);

Writeln(‘Введите координаты точки C(x,y)’);

Readln(x3,y3);

Writeln(‘Введите координаты точки D(x,y)’);

Readln(x4,y4);

K[1]:=x2-x1;

K[2]:=x3-x2;

K[3]:=x4-x3;

K[4]:=x1-x4;

L[1]:=y2-y1;

L[2]:=y3-y2;