pascal中实型的输出问题
pascal中实型的输出问题
日期：2011-10-30 00:07:26 人气：1
超简单的，使用了数学的换底公式
var
a,b:double;
function lg(x:double):longint;
begin
exit(trunc(ln(x)/ln(10)));
end;
begin
readln(a);
b:=exp(lg(a)*ln(10));
write((a/b):0:10,'E');
if lg(a)>0 then write('+');
writeln(lg(a));