用pascal编程 - Delphi论坛 - 编程论坛档案馆

编程论坛 → 开发语言 → 『 Delphi论坛』 → 用pascal编程

标题：用pascal编程

取消只看楼主

zqhvictor

等　级：新手上路
帖　子：17
专家分：0
注　册：2009-10-18
结帖率：60%

楼主

已结贴√ 问题点数：10 回复次数：2

用pascal编程

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

搜索更多相关主题的帖子: pascal　

2009-10-18 14:11

zqhvictor

等　级：新手上路
帖　子：17
专家分：0
注　册：2009-10-18

第 2 楼

得分:0

题目要求定义

2009-10-18 20:43

zqhvictor

等　级：新手上路
帖　子：17
专家分：0
注　册：2009-10-18

第 3 楼

得分:0

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.

2009-10-18 22:08

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-288997-1-1.html