作业帮pascal程序 定义一函数digit（n,k） 使得他回送整数n的从右边开始数第k个数字的值例如digit(15327,4)=5我写的程序如下program zlx52;varn,k:longint;function digit(n,k:longint):longint;vara,b:longint;begina:=exp(k*ln(10));
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/16 22:53:51
pascal程序 定义一函数digit（n,k） 使得他回送整数n的从右边开始数第k个数字的值例如digit(15327,4)=5我写的程序如下program zlx52;varn,k:longint;function digit(n,k:longint):longint;vara,b:longint;begina:=exp(k*ln(10));
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.
为什么不能执行呢
pascal程序 定义一函数digit（n,k） 使得他回送整数n的从右边开始数第k个数字的值例如digit(15327,4)=5我写的程序如下program zlx52;varn,k:longint;function digit(n,k:longint):longint;vara,b:longint;begina:=exp(k*ln(10));
类形不匹配错误.
改正后的程序：
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.