pascal中保留小数不四舍五入（实型）

我觉得你想问的应该不是高精度的做法吧（毕竟高精度怎么做百度都查得到） 所以，你应该是针对已经计算出来的数据，我在这里给出一个函数来解决。如下所示： function change(math:real):string; //用于将数字转换为易被人接受的形式 var i1,i2,i3,i4,i5,zx:longint; s,s1,s2:string; begin str(math,s); for i1:=1 to length(s) do begin if copy(s,