编程论坛 → Delphi论坛

用pascal编程

zqhvictor 发布于 2009-10-18 14:11， 863 次点击

定义一个函数digital（n，k），回送整数n从右边开始第k个数字，如digital（12345，2）=4

5 回复

lff30402009-10-18 19:09

midstr('n',k,1)

lff30402009-10-18 19:16

用midstr函数，midstr(str,4,1) 根本就不用自己定义函数

zqhvictor2009-10-18 20:43

题目要求定义

zqhvictor2009-10-18 22:08

program Project4;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
n,k,x,y,a,b:integer;
function digit(n,k:integer):integer;
begin
writeln('输入n,k的值:');
Readln(n,k);
while k>0 do
begin
x:=n mod 10;
y:=n div 10;
n:=y;
k:=k-1
end;
Writeln('回送的值为：',x);
Readln(x);
end;
begin
a:=0;b:=0;
digit(n,k);
readln;
end.

梁白白2012-01-23 12:41

var
  n,k:integer;
function digital(a,b:integer):integer;
var
  s:string;
begin
  str(a,s);
  val(s[k],digital);
end;
begin
  readln(n,k);
  writeln(digital(n,k));
end.