东家众筹什么意思:在用delphi计算一元二次方程的根时,虚根如何表示?

来源:百度文库 编辑:中科新闻网 时间:2024/05/17 06:19:58

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