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

Вариант 2

А) X1 = 5119.94 Y1 = 6157.33

X2 = 7182.27 Y2 = 4976.39

В) X1 = 10932.84 Y1 = 6112.26

X2 = 9115.24 Y2 = 4903.68

1.4. Блок схема для Turbo Pascal

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

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

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

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

Program Zadacha1;

Uses CRT;{использование библиотеки}

Var i,j,k:integer;{описание переменных}

x1,y1,x2,y2,x3,y3,x4,y4,Dy,Dx,Dx1,Dy1,R,R1,Alfa,alfa1,S,S1:real;

AlfaGr,AlfaMi,AlfaS,AlfaGr1,AlfaMi1,AlfaS1:real;

t1,t2:text;

{процедура для определения приращений}

procedure Prir (var k1:real; var k2:real; var Dd:real);

begin

Dd:=k2-k1;

end;

{процедура для перевода в грудусы}

procedure Gradyc (var A,AGr,AMi,AS:real);

Var

AG,AM:real;

begin

AG:=180*(A/Pi);

AGr:=int(AG);