作业帮谁能用pascal解这几道题?练习：1.在程序中定义函数digit(n,k),它能分离出整数n从右边数第k个数字,如digit(31859,3)=8,digit(2076,3)=0.2.在程序中定义一个函数check(n,d),如果数字d在整数n中出现,则函数值
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/28 06:28:54
谁能用pascal解这几道题?练习：1.在程序中定义函数digit(n,k),它能分离出整数n从右边数第k个数字,如digit(31859,3)=8,digit(2076,3)=0.2.在程序中定义一个函数check(n,d),如果数字d在整数n中出现,则函数值
谁能用pascal解这几道题?
练习：1.在程序中定义函数digit(n,k),它能分离出整数n从右边数第k个数字,如digit(31859,3)=8,digit(2076,3)=0.2.在程序中定义一个函数check(n,d),如果数字d在整数n中出现,则函数值为true,否则为false,如check(9687,7)=true,check(10345,6)=false.Max(a,b,c) Max(a+b,b,c)×Max(a,b,b+c) 3.已知m= ,输入a,b,c,求m.把求三个数的最大数max(x,y,z)分别定义成函数和过程来求做.4.用辗转相除法求m与n的最大公约数.辗转相除法是指对于m ,n（m>n）,要求它们的最大公约数,1）可以用m除以n,保存余数；2）然后由n做为被除数,上次的余数做为除数,再次相除,保存余数；3）重复动作2)直到除数为0,此时的被除数即为m与n的最大公约数.编程用此方法输入m和n（m>n）,输出它们的最大公约数.要求把求两个数的最大公约数的程序写成一个函数.
谁能用pascal解这几道题?练习：1.在程序中定义函数digit(n,k),它能分离出整数n从右边数第k个数字,如digit(31859,3)=8,digit(2076,3)=0.2.在程序中定义一个函数check(n,d),如果数字d在整数n中出现,则函数值
1 function digit(n,k:integer):integer; begin dec(k); while k> 0 do begin n:=n div 10; dec(k) end; digit:=n mod 10; end; var n,k:integer; begin readln(n,k); writeln(digit(n,k)); end. 2 function check(a,b:longint):boolean; var a1,b1:string; begin str(a,a1); str(b,b1); if pos(b1,a1)0 then check:=true else check:=false; end; var a,b:longint; begin readln(a,b); writeln(check(a,b)); end. 第三题题目貌似不全,希望能补充一下 4 function gcd(a,b:integer):integer; begin if a mod b=0 then gcd:=b else gcd:=gcd(b,a mod b); end; var a,b:integer; begin readln(a,b); writeln(gcd(a,b)); end.