基础代码汇总整理.docVIP

《基础代码汇总整理》 WQ @ YCOI 十进制转换K进制 function dectok(x,k:longint):string; const alph=0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ; var st:string; begin st:=; while x0 do begin st:=alph[x mod k+1]+st; x:=x div k; end; exit(st); end; K进制转换十进制 function ktodec(st:string; k:longint):longint; const alph=012456789ABCDEFGHIJKLMNOPQRSTUVWXYZ; var i,j,ans:longint; begin ans:=0; j:=1; for i:=length(st) downto 1 do begin inc(ans,j*(pos(st[i],alph)-1)); j:=j*k; end; exit(ans); end; 欧几里得算法 function gcd(a,b:longint):longint; begin if b=0 then exit(a) else exit(gcd(b,