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

63 0 12

41 54 46

33

5142.93

5460.08

54 19 48

2.4. Алгоритм для Turbo Pascal

RB1P1:=(((Pi)/180)*(GB1P1+(MB1P1/60)+(SB1P1/3600))); RB1P2:=(((Pi)/180)*(GB1P2+(MB1P2/60)+(SB1P2/3600))); RB2P2:=(((Pi)/180)*(GB2P2+(MB2P2/60)+(SB2P2/3600))); RB2P3:=(((Pi)/180)*(GB2P3+(MB2P3/60)+(SB2P3/3600)))

xP12:=x1+(((y2-y1)*sin(RB2P2))/(sin(Alfa12)*sin(RB1P1+RB2P2)))*cos(Alfa12-RB1P1); yP12:=y1+(((y2-y1)*sin(RB2P2))/(sin(Alfa12)*sin(RB1P1+RB2P2)))*sin(Alfa12-RB1P1); xP23:=x2+(((y3-y2)*sin(RB2P3))/(sin(Alfa23)*sin(RB1P2+RB2P3)))*cos(Alfa23-RB1P2); yP23:=y2+(((y3-y2)*sin(RB2P3))/(sin(Alfa23)*sin(RB1P2+RB2P3)))*sin(Alfa23-RB1P2);

^* процедура для определения приращений

^** процедура для нахождения румбов

^*** процедура для определение значения дирекционного угла и четверти

^**** процедура для перевода из радиан в градусы

Рис. 2.2

2.5 Текст программы

Program Zadacha2;

Uses CRT;

Var

GB1P1,MB1P1,SB1P1,GB1P2,MB1P2,SB1P2,GB2P2,MB2P2,SB2P2,GB2P3,MB2P3,SB2P3:integer;