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

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

Writeln('Po oci Y');{вывод на экран надписи "По оси Y"}

Writeln(t2,'По оси Y');{вывод в фаил надписи "По оси Y"}

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

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

Writeln('Prirasheniya zadaniya B');{вывод на экран надписи "Приращения для задания B"}

Writeln(t2,'Приращения для задания B');{вывод в фаил надписи "Приращения для задания B"}

Writeln('Po oci X');{вывод на экран надписи "По оси X"}

Writeln(t2,'По оси X');{вывод в фаил надписи "По оси X"}

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

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

Writeln('Po oci Y');{вывод на экран надписи "По оси Y"}

Writeln(t2,'По оси Y');{вывод в фаил надписи "По оси Y"}

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

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

End;

Begin

{нахождение величины румба}

R:=arctan(abs(Dy/Dx));

R1:=arctan(abs(Dy1/Dx1));

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

Writeln('RYMB zadaniya A');{вывод на экран надписи "Румб для задания А"}

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

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

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

Writeln('RYMB zadaniya B');{вывод на экран надписи "Румб для задания B"}

Writeln(t2,'Румб для задания А');{вывод в фаил надписи "Румб для задания B"}

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

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