定义一个函数,将一个整数(作为参数)转变为字符串,每个字符之间加一个空格,并将字符串输出。例如,将整数2013转化为字符串:“2 0 1 3”。编写主函数调用该函数!
用c语言!!!
procedure TForm1.Button1Click(Sender: TObject);
var
st1:integer;
begin
st1:=strtoint(edit1.Text);
edit2.Text:=tranint(st1);
end;
function TForm1.tranint(zhengshu:integer):string;
var
i:integer;
str,str2:string;
begin
result:='';
str:=inttostr(zhengshu);
for i:=1 to length(str) do
begin
str2:=copy(str,i,1);
result:=result+str2+' ';
end;
end;
end.
C语言我几乎都忘记了不过用PASCAL在DELPHI下实验过了你可以参考下。其思想是你先把你传入的整数转换为字符串,然后再分别取每位+‘’就可以了,然后再主函数里调用。
var
st1:integer;
begin
st1:=strtoint(edit1.Text);
edit2.Text:=tranint(st1);
end;
function TForm1.tranint(zhengshu:integer):string;
var
i:integer;
str,str2:string;
begin
result:='';
str:=inttostr(zhengshu);
for i:=1 to length(str) do
begin
str2:=copy(str,i,1);
result:=result+str2+' ';
end;
end;
end.
C语言我几乎都忘记了不过用PASCAL在DELPHI下实验过了你可以参考下。其思想是你先把你传入的整数转换为字符串,然后再分别取每位+‘’就可以了,然后再主函数里调用。
温馨提示:答案为网友推荐,仅供参考
第1个回答 2008-04-14
给个思路,Delphi程序
function AlertStr(str:string)
var
i:integer;
ss:string;
begin
for i:=0 to length(str)-1 do
begin
ss := ss[i]+' ';
end;
ss:=trim(ss);
end;
function AlertStr(str:string)
var
i:integer;
ss:string;
begin
for i:=0 to length(str)-1 do
begin
ss := ss[i]+' ';
end;
ss:=trim(ss);
end;