інійної нев'язки та її розподіл
) Висновок х і у точок теодолітного ходу
.5 Текст програми
program teodxod;
var
i, j: integer;: string;: array [1 .. 6,1 .. 3] of real;: array [1 .. 7] of real;: array [0 .. 5,1 .. 2] of real;: array [1 .. 5] of real;: text;
{Процедура переведення градусів у радіани}
procedure v_rad (var a, b, rad: real),: = (a + (b/60)) * Pi/180;
end;
{Процедура обчислення дирекційних кутів твердих сторін за їх координатами}
procedure dir_ugol (var x1, x2, y1, y2, r: real);: = arctan ((y2-y1)/(x2-x1)); ((y2-y1)> 0) and ((x2-x1)> 0) then r: = r; ((y2-y1)> 0) and ((x2-x1) <0) then r: = pi-r; (( y2-y1) <0) and ((x2-x1) <0) then r: = pi + r; ((y2-y1) <0) and ((x2-x1)> 0) then r : = 2 * pi-r;
end;
{Вводимо дані з клавіатури}
Writeln ( Koordinaty tochek );
Writeln ('koordinaty tochek 9505 "xxxxx.xx yyyyy.yy"');
Readln (x1, y1);
Writeln ('koordinaty tochek 9506 "xxxxx.xx yyyyy.yy"');
Readln (x2, y2);
Writeln ('koordinaty tochek 9507 "xxxxx.xx yyyyy.yy"');
Readln (x3, y3),
Writeln ('koordinaty tochek 9508 "xxxxx.xx yyyyy.yy"');
Readln (x4, y4); ('Vvedite dliny izvestnyh storon'); ('9506 - 1 '); (s [1]); ('1 - 2'); (s [ 2]); ('2 - 3 '); (s [3]); ('3 - 4'); (s [4]); ('4 - 9508 '); (s [5]); ( Vvedite ugly '); (' Stoim na tochke 9506 ');
writeln ('na 9505 ='); (dd, mm); _rad (dd, mm, rad);
dir [1,1]: = rad; ('na 1 ='); (dd, mm);
v_rad (dd, mm, rad); [1,2]: = rad;
Writeln ('Stoim na tochke 1'); ('na 9506 ='); (dd, mm); _rad (dd, mm, rad);
dir [2,1]: = rad, ('to 2 ='); (dd, mm), _rad (dd, mm, rad), [2,2]: = rad; ('Stoim na tochke 2'); ('на +1 ='); (dd, mm); _rad (dd, mm, rad); [3,1]: = rad; writeln ('на 3 ='); (dd, mm); _rad (dd, mm, rad);
dir [3,2]: = rad; (Stoim na tochke 3 '); (' na 2 = '); (dd, mm); _rad (dd, mm, rad);
dir [4,1]: = rad; ('na 4 ='); (dd, mm);
v_rad (dd, mm, rad); [4,2]: = rad;
Writeln ( Stoim na tochke 4 '); (' ...
