主题：求教,quickly,急死偶也
chyx
[专家分：450] 发布于 2007-07-13 09:23:00
偶是一个初学者,请教一下怎样编一个用字符串解决分离一个数各个位上的数字
最后更新于：2007-07-13 09:37:00
回复列表 （共4个回复）
沙发
Matodied [专家分：7560] 发布于 2007-07-13 11:03:00
VAR
a: STRING[100]; i, l: INTEGER;
BEGIN
READLN(a);
l := LENGTH(a);
FOR i:=1 TO l DO BEGIN
WRITELN(COPY(a, i, 1));
END;
END.
板凳
abcwuhang [专家分：1840] 发布于 2007-07-13 12:17:00
program fenli;
var mubiao:array [1..1000] of 0..9;
init:string;
i,changdu:integer;
begin
readln(init);
changdu:=length(init);
for i:=1 to changdu do
val(copy(init,i,1),mubiao[i],code);
for i:=1 to changdu do
write(mubiao[i]);
end.
功能:读入一数字字符串,将其每一位分离后存于"mubiao"数组中并将其输出.
3 楼
游侠UFO [专家分：1200] 发布于 2007-07-13 22:18:00
[quote]program fenli;
var mubiao:array [1..1000] of 0..9;
init:string;
i,changdu:integer;
begin
readln(init);
changdu:=length(init);
for i:=1 to changdu do
val(copy(init,i,1),mubiao[i],code);
for i:=1 to changdu do
write(mubiao[i]);
end.
功能:读入一数字字符串,将其每一位分离后存于"mubiao"数组中并将其输出.[/quote]
何必再开个数组来储存呢？直接输出不就完了，就像你楼上那位一样
4 楼
007bond [专家分：540] 发布于 2007-07-14 07:55:00
var a:string;i:integer;
begin
writeln(a);
for i:=1 to length(a) do writeln(copy(a,i,1));
end.
方便快捷,不占过多内存,绝对有效
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 求教,quickly,急死偶也