Для перевода нужно умножить содержимое каждого разряда на его "вес" и результаты сложить. Начнём с первого разряда, в числе он расположен справа, и его "вес" равен 2 в нулевой степени ( 2^0 = 1 ) и далее будем двигаться к старшему разряду:
(здесь приведён полный расчёт, брались даже разряды в которых находятся нули; на практике разряды с нулями конечно можно не брать в расчёт, но при этом не перепутайте "вес" разрядов- он зависит от номера конкретного разряда).
procedure Polar(x, y: real; var r, f: real); begin r := sqrt(sqr(x) + sqr(y)); if x = 0 then if y = 0 then f := 0 else if y > 0 then f := Pi / 2 else f := -Pi / 2 else begin f := arctan(y / x); if x < 0 then if y >= 0 then f := f + Pi else f := f - Pi end end;
Count
Объяснение: