Касты комплексных чисел
Демонстрация автоматических преобразований между типами вещ, цел и компл.
Разбор
вещ → компл
x := 3.14
a := x
вывод "Re=", Re(a), " Im=", Im(a), нс
Присваивание вещ в компл автоматически устанавливает Im = 0.
цел → компл
n := 7
b := n
вывод "Re=", Re(b), " Im=", Im(b), нс
компл → вещ и цел
y := a | берётся Re(a)
n := a | берётся int(Re(a))
Обратные касты извлекают действительную часть.
Полная программа
использовать Комплексные числа
алг
нач
вещ x, y
цел n
компл a, b
| вещ → компл
x := 3.14
a := x
вывод "вещ -> компл: Re=", Re(a), " Im=", Im(a), нс
| цел → компл
n := 7
b := n
вывод "цел -> компл: Re=", Re(b), " Im=", Im(b), нс
| компл → вещ (Re часть)
a := x
y := a
вывод "компл -> вещ: ", y, нс
| компл → цел
n := a
вывод "компл -> цел: ", n, нс
кон