pascal能否编辑虚数??

如果你想的话可以自己编一个
Program xxxxx;
type
xushu = record
i1,i0 : extended;{i1是虚部系数 ，i0是实部}
end;
operator +(a, b: xushu)c: xushu;{定义虚数加法}
begin
b.i0 := a.i0 + b.i0;
b.i1 := a.i1 + b.i1;
c := b;
end;
operator -(a, b: xushu)c: xushu;{定义虚数减法}
begin
b.i0 := a.i0 - b.i0;
b.i1 := a.i1 - b.i1;
c := b;
end;
operator *(a, b: xushu)c: xushu;{定义虚数乘法}
begin
c.i0 := b.i0 * a.i0 - a.i1 * b.i1;
c.i1 := a.i0 * b.i1 + a.i1 * b.i0;
end;
procedure errorxushu;{定义虚数错误信息}
begin
writeln('Run time Error 106.....');
halt;
end;
procedure readx(var a: xushu);{定义虚数输入}
var
s, s1: string;
k: longint;
intcode: integer;
x, y: extended;
begin
readln(s);
k := 0;
k := pos('i', s);
if k = 0 then
k := pos('I', s);
if k = 0 then
errorxushu;
intc