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

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

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

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

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

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

Readln(t1);

Readln(t1);

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

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

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

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

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

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

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

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

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

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

Readln(t1);

Begin

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

Prir(x1,x2,Dx);

Prir(y1,y2,Dy);

Prir(x3,x4,Dx1);

Prir(y3,y4,Dy1);

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

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

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

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

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