摘要：
pascal模板字符串转数组procedure change(var s:ansistring; var a:arraytype; var a1:longint);var t:longint;begin t:=length(s); for i:=t downto 1 do val(s[i],a[t-i+1]); a1:=t;end; 这段一般来说用处不大，但是初学时的一些程序常用的。高精加法procedure c1(var a,b,c:arraytype; var a1,b1,c1:longint);var i,j,k,x:longint;begin i:=1; x:=0; w... 阅读全文