Question

pascal程序 定义一函数digit（n，k） 使得他回送整数n的从右边开始数第k个数字的值

例如
digit(15327,4)=5

我写的程序如下
program zlx52;
var
n,k:longint;
function digit(n,k:longint):longint;
var
a,b:longint;
begin
a:=exp(k*ln(10));
b:=exp((k-1)*ln(10));
digit:=n mod a div b;
end;
begin
read(n,k);
writeln(digit(n,k));
end.

为什么不能执行呢

Answer 1

类形不匹配错误。

改正后的程序：
program zlx52;
var n,k:longint;
function digit(n,k:longint):longint;
var a,b:longint;
begin
a:=round(exp(k*ln(10))); //此处exp函数结果是实型(real),不能直接赋值给整型变量a和b
b:=round(exp((k-1)*ln(10))); //可以加一个四舍五入函数取整即可。
digit:=n mod a div b;
end;
begin
read(n,k);
writeln(digit(n,k));
end.

追问

那可不可以直接写成
digit:=n mod exp(k*ln(10)) div exp((k-1)*ln(10)); 呢？

追答

不能
mod div 都是只能进行整数之间的运算，不能进行实形数之间的运算。
而exp的结果是实型数。

Answer 2

别这样好吗！只需要div和mod就可以了，浮点数是,不精确的，不能很好的解决你的问题！

追问

请问为什么这个地方会产生浮点数呢

追答

exp和ln都是浮点函数，结果也是浮点数
k=1，d=n mod 10用循环就可以了！
if k > 1 then for i:=1 to k-1 do n=n div 10;
d=n mod 10;{这个就是结果}
何必用浮点函数做！浮点计算结果只怕不准确！