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

Writeln(AlfaGr:6:0,' gradycov',AlfaMi:6:0,' minyt',AlfaS:6:0,' sekynd');

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

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

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

Writeln(AlfaGr1:6:0,' gradycov',AlfaMi1:6:0,' minyt',AlfaS1:6:0,' sekynd');

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

End;

Writeln('chtenie iz faila "dano.txt", zapis v "rezultat.txt"');

Close (t1);

Close (t2);

Readkey;

End.

1.6 Содержание фаила «dano.txt»

Задание А:

Точка 1.

Координата по оси X:

5119.94

Координата по оси Y:

6157.33

Точка 2.

Координата по оси X:

7182.27

Координата по оси Y:

4976.39

Задание B:

Точка 1.

Координата по оси X:

10932.84