← Все примеры

Касты комплексных чисел

Демонстрация автоматических преобразований между типами вещ, цел и компл.

Разбор

вещ → компл

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, нс
кон

▶ Запустить пример