proc InsertNum(String s)
//接受字符串
int SLenth,randA,i,j,k; //i,j,为循环变量,k为游标
char SAAr[],SAr[]; //SAAr[] 存放字符串的各个字符,SAr[]存放新产生的字符
SLenth:=Getlenth(s); //获取字符串的长度
change s to array and then save in SAAr[] //将字符串转化为字符数组并存放于SAAr[]中
k:=0;
for i from 0 to SLenth
randA=rand()%10; //第i位需要插入的随机数的个数
for j from 0 to randA
SAr[k]=int_to_char(rand()%10) //插入randA个随机数字并转换为字符,存放到SAr[]中
k++;
end{for}
SAr[k]:=SAAr[i]; //存放原串的第i个字符
end{for}
output(*SAr); //输出字符串如果只是显示则没有问题,若要返回字符串,还需将字符数组转换为字符串
end proc{InsertNum}