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

begin

writeln(‘неправильно введены координаты!’);

readln;

Goto 1;

End

Else

Writeln(‘координаты введены правильно!’);

End

Else

Begin

If q[3]=q[4] then

Writeln(‘неправильно введены координаты!’);

Readln;

Goto 1;

End;

End;

Dlin1:=abs(sqrt(sqr(x2-x1)+sqr(y2-y1)));

Dlin2:=abs)sqrt(sqr(x3-x4)+sqr(y3-y4)));

Dlin3:=(dlin1+dlin2)/2;

Writeln(‘Длиннасреднейлиниитрапеции ABCD=’,dlin3:10:2);

end;

{END OF ZADANIE1*******************************************}

{2 zadanie***********************************************}

{Процедура задания №2}

procedure Zadanie2;

const

n=5;

var

i,k,x1,y1:integer;