{* Преобразование комплексного числа в тригонометрическую форму *}

Unit Z_NUMBER14;
Interface
Implementation
Begin
 writeln('Преобразование комплексного числа в тригонометрическую форму
');
End.

Program z_number;

Uses z_number14.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  RealPart      : real;
  ImaginaryPart : real;
Begin
  clrscr; {* Стираем всё с экрана *}
  writeln('Введите действительную часть комплексного числа');
  readln(RealPart);
  writeln('Введите мнимую часть комплексного числа');
  readln(ImaginaryPart);
  writeln; {* Пропускаем одну строку *}
  writeln('Число в тригонометрической форме');
  writeln('z = ', sqrt(sqr(RealPart) + sqr(ImaginaryPart)) : 0 : 2,   '(cos(', arctan(ImaginaryPart / RealPart) : 0 : 2, ') + isin(', arctan   (ImaginaryPart / RealPart) : 0 : 2, '))');
  readln; {* Ждем подтверждения пользователя *}
End.