Реферат Рішення геодезичних задач за допомогою мови програмування Turbo Pascal і табличного процесора Excel

Тема: Курсовые обзорные

na 3 = '); (dd, mm); _rad (dd, mm, rad);

dir [5,1]: = rad; ('na 9508 ='); (dd, mm);

v_rad (dd, mm, rad); [5,2]: = rad;

Writeln ('Stoim na tochke 9508'); ('na 4 ='); (dd, mm); _rad (dd, mm, rad);

dir [6,1]: = rad; ('na 9507 ='); (dd, mm);

v_rad (dd, mm, rad); [6,2]: = rad;

{кінець введення даних з клавіатури}

dir_ugol (x1, x2, y1, y2, AB);

dir_ugol (x3, x4, y3, y4, CD); [1]: = AB;

Corners [7]: = CD;

{обчислення кутів і нев'язки ходу}

for i: = +1 to 6 then for i: = 1 to 6 do dir [i, 3]: = dir [i, 3]-fb/6;

{Обчислення дирекційних кутів сторін теодолітного ходу}

for i: = 1 to 5 do [i +1]: = corners [i] + dir [i, 3]-pi; [0,1]: = x2; [0,2 ]: = y2; i: = 1 to 5 do {Обчислення прирощення

end; {Обчислення абсолютної лінійної нев'язки}

fx: = sx-(x3-x2);: = sy-(y3-y2); i: = 1 to 5 do: = sl + s [i];: = sqrt (sqr (fx) + sqr (fy));: = fabs/sl;

{розподілення нев'язки пропорційно приращениям по осях}

for i: = 1 to 5 do [i, 1]: = points [i, 1] - (points [i, 1] * fx/sx); [i, 2]: = points [i, 2] - (points [i, 2] * fy/sy);;

for i: = 1 to 5 do {Обчислення координат шуканих точок}

begin [i, 1]: = points [i, 1] + points [i-1, 1]; [i, 2]: = points [i, 2] + points [i- 1,2];; ( Iskomye velichiny '); i: = 1 to 5 do (i,'-aya tochka x = ', (points [i, 1]): 0:2 , 'y =', (points [i, 2]): 0:2);;

end.

.6 Результат програми

Koordinaty tochek

koordinaty tochek 9505 "xxxxx.xx yyyyy.yy"

.69 28100.17

koordinaty tochek 9506 "xxxxx.xx yyyyy.yy"

.82 28100.76

koordinaty tochek 9507 "xxxxx.xx yyyyy.yy"

.11 29568.25

koordinaty tochek 9508 "xxxxx.xx yyyyy.yy"

392056.16 29216.14dliny izvestnyh storon

- 1