杭州交通信息网adn008磁力:pascal求助
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/04 05:19:12
写出两个1,然后在他们中间插入2,成121;下一步是在上面数中每两个相邻的和数为3的数之间插入3,成为13231;再下一步又在上面数中任意两个相邻的和数为4的数中间插入4,成为1432341;……
求源程序!
求源程序!
program Fun;
var
S: String;
m, n, i, j: Integer;
begin
Write('请输入插入数字的次数: ');
Readln(n);
S := '11';
for m := 1 to n do
begin
i := Length(S) - 1;
for j := i downto 1 do
S := Copy(S, 1, i) + IntToStr(StrToInt(S[i])+StrToInt(S[i+1])) + Copy(S, i+1, Length(S));
Writeln(S);
end;
end;
现编的, 没调试, 自己试一下吧. 注意, 如果你用的是TP或FP, 可能没有StrToInt和IntToStr这两个函数, 你要用Val和Str.
完全不对嘛！