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

AMi:=int(AM);

AS:=int(60*(AM-AMi));

end;

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

procedure Analiz (var X,Y,R,A:real);

begin

If (X>0) and (Y>0) Then

Begin

A:=R;

Writeln('I chetvert');

Writeln(t2,'I четверть');

Writeln('Direkcionnii ygol raven(v radianax):');

Writeln(t2,'Дирекционный угол равен(в радианах):');

Writeln(A:6:3);

Writeln(t2,A:6:3);

End;

If (X<0) and (Y>0) Then

Begin

A:=(Pi)-R;

Writeln('II chetvert');

Writeln(t2,'II четверть');

Writeln('Direkcionnii ygol raven(v radianax):');

Writeln(t2,'Дирекционный угол равен(в радианах):');

Writeln(A:6:3);

Writeln(t2,A:6:3);

End;

If (X<0) and (Y<0) Then

Begin

A:=(Pi)+R;