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

Readln(t1,SB2P3);

Begin

{определение приращений координат}

Prir (y1,y2,Dy12);

Prir (x1,x2,Dx12);

Prir (y2,y3,Dy23);

Prir (x2,x3,Dx23);

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

End;

Begin

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