先判断 b*b-4ac是否小于0,若小于0,则置标记flag:=1;
在输出根的时候,如果flag=1；那么
对b*b-4ac用函数ABS取绝对值后再开方,同时在其后面多输出一个字符i即可
在用delphi计算一元二次方程的根时,虚根如何表示?
先判断 b*b-4ac是否小于0,若小于0,则置标记flag:=1;
在输出根的时候,如果flag=1；那么
对b*b-4ac用函数ABS取绝对值后再开方,同时在其后面多输出一个字符i即可