Курсовая работа: Использование современной компьютерной техники и программного обеспечения для решения прикладных

Begin

{определение значения дирекционного угла и четверти}

Writeln('Direkcionnii ygol i chetvert dly A');

Writeln(t2,'Дирекционный угол и четверть для задания А:');

Analiz (Dx,Dy,R,Alfa);

Writeln('Direkcionnii ygol i chetvert dly B');

Writeln(t2,'Дирекционный угол и четверть для задания B:');

Analiz (Dx1,Dy1,R1,Alfa1);

End;

Begin

{ВЫчисление горизонтального расстояния между точками}

S:=sqrt((Sqr(Dx)+sqr(Dy)));

S1:=sqrt((Sqr(Dx1)+sqr(Dy1)));

{вывод полученного значения}

Writeln('Gorizontalnoe Rasstoyanie mezdy tochkami Ravno(dly A):');

Writeln(t2,'Горизонтальное расстояние между точками равно(для задания А):');

Writeln(S:6:2);

Writeln(t2,S:6:2);

Writeln('Gorizontalnoe Rasstoyanie mezdy tochkami Ravno(dly B):');

Writeln(t2,'Горизонтальное расстояние между точками равно(для задания B):');

Writeln(S1:6:2);

Writeln(t2,S1:6:2);

End;

Begin

{перевод дирекционного угла в градусную меру}

Gradyc (Alfa,AlfaGr,AlfaMi,AlfaS);

Gradyc (Alfa1,AlfaGr1,AlfaMi1,AlfaS1);

{вывод полученного дирекционного угла}

Writeln('Direkcionnii ygol raven(dly A):');