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

Rymb (Dx23,Dy23,R23);

{проведение контроля полученных значений}

Writeln('Rymb 1-2');{вывод на экран надписи "Румб"}

Writeln(t2,'Румб 1-2');{вывод в фаил надписи "Румб"}

Writeln(R12:6:6);{вывод значения на экран}

Writeln(t2,R12:6:6);{вывод значения в фаил}

Writeln('Rymb 2-3');{вывод на экран надписи "Румб"}

Writeln(t2,'Румб 2-3');{вывод в фаил надписи "Румб"}

Writeln(R23:6:6);{вывод значения на экран}

Writeln(t2,R23:6:6);{вывод значения в фаил}

End;

Begin

Writeln('Dly 1-2');

Writeln(t2,'Для 1-2');

Analiz (Dx12,Dy12,R12,Alfa12);

Writeln('Dly 2-3');

Writeln(t2,'Для 2-3');

Analiz (Dx23,Dy23,R23,Alfa23);

End;

Begin

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

Gradyc (Alfa12,AlfaGr12,AlfaMi12,AlfaS12);

Gradyc (Alfa23,AlfaGr23,AlfaMi23,AlfaS23);

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

Writeln('Direkcionnii ygol 1-2 raven:');

Writeln(t2,'Дирекционный угол 1-2 равен:');

Writeln(AlfaGr12:6:0,' gradycov',AlfaMi12:6:0,' minyt',AlfaS12:6:0,' sekynd');

Writeln(t2,AlfaGr12:6:0,' градусов',AlfaMi12:6:0,' минут',AlfaS12:6:0,' секунд');

Writeln('Direkcionnii ygol 2-3 raven:');