关于在编程中复数的问题

复数是一个数学概念，与编程无关，在编写一些高等数学计算程序时，可能会用到复数。

PC LOGO FOR WINDOWS中的复数计算程序：
to jsq
pr"
pr [{a+bi}sign{c+di}or{a+bi}^power]
pr [sign input as 0.^ 1.+ 2.- 3.* 4./]
pr [r for last rusult]
pr [q for quit]
pr"
make "a 0
make "b 0
make "c 0
make "d 0
make "r1 0
make "r2 0
make "q 0
make "s1 0
make "p1 0
make "ra 0
make "rb 0
jsq2
stop
end

to jsq2
type[a=]
make "a read
if :a = "r make "a :ra make "b :rb make "r1 1
if :a = "q make "q 1 stop
if :r1 = 0 type [b=]
if :r1 = 0 make "b read
type [sign=]
make "s read
if :s = 0 y1 make "s0 [^] make "s1 1
if :s = 1 y2 make "s0 [+] make "s1 1
if :s = 2 y3 make "s0 [-] make "s1 1
if :s = 3 y4 make "s0 [*] make "s1 1
if :s = 4 y