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

Writeln(t2,'III четверть');

Writeln('Direkcionnii ygol raven(v radianax):');

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

Writeln(A:6:3);

Writeln(t2,A:6:3);

End;

If (X>0) and (Y<0) Then

Begin

A:=(2*(Pi)-R);

Writeln('IV chetvert');

Writeln(t2,'IV четверть');

Writeln('Direkcionnii ygol raven(v radianax):');

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

Writeln(A:6:3);

Writeln(t2,A:6:3);

End;

end;

Begin

ClrScr;{очистка экрана}

Assign (t1,'dano.txt');{привязка фаила к переменной}

Assign (t2,'rezultat.txt');

Reset (t1);

Rewrite (t2);

{чтение из фаила исходных значений}

Readln(t1);

Readln(t1);{пропуск строки "Точка 1."}

Readln(t1);{пропуск строки "Координата по оси X:"}

Readln(t1,x1);{чтение из фаила значения координаты по оси X для точки А}

Readln(t1);{пропуск строки "Координата по оси Y:"}