haihongyuan.com
海量文库 文档专家
全站搜索:
您现在的位置:首页 > 初中教育 > 学科竞赛学科竞赛

回文数

发布时间:2013-12-18 11:35:56  

回文数{高精度运算}

若一个数(首位不为零)从左向右读与从右向左读都是一样,我们就将其称之为回 文数。例如:给定一个 10进制数 56,将 56加 65(即把56从右向左读),得到 121是 一个回文数。又如,对于10进制数87,

STEPl: 87+78= 165 STEP2:165+561= 726

STEP3: 726+627=1353 STEP4:1353+3531=4884

在这里的一步是指进行了一次N进制的加法,上例最少用了4步得到回文数4884。 写一个程序,给定一个N(2<n<=10,N=16)进制数 M.求最少经过几步可以得到 文数。如果在30步以内(包含30步)不可能得到回文数,则输出“Impossible” 样例:

输入:

9

87

输出:

6

参考程序:

type

arra=array[1..10000]of integer;

var

a:arra;

jiao,i,j,len,n:integer;

s:string;

function ok(var a:arra;len:integer):boolean;

var

i,j:longint;

begin

i:=1;

j:=len;

while (i<=j)and(a[i]=a[j]) do

begin

i:=i+1;

j:=j-1;

end;

if i<j then ok:=false

else ok:=true;

end;

begin

readln(n);

readln(s);

for i:=1 to 10000 do a[i]:=0;

len:=length(s);

for i:=1 to len do

if s[i]>='A' then a[len+1-i]:=ord(s[i])-ord('A')+10

else a[len+1-i]:=ord(s[i])-ord('0');

jiao:=0;

while (jiao<=30)and(not(ok(a,len))) do

begin

for i:=1 to len div 2 do a[i]:=a[i]+a[len+1-i];

for i:=1 to len div 2 do a[len+1-i]:=a[i];

if len mod 2 <> 0 then a[len div 2+1]:=a[len div 2 +1]*2; for i:=1 to len do

if a[i]>=n then begin

a[i+1]:=a[i+1]+1;

a[i]:=a[i]-n;

end;

if a[i+1]>0 then begin

len:=len+1;

end;

jiao:=jiao+1;

end;

if jiao<=30 then write(jiao)

else write('no');

writeln;

end.

上一篇:车厢重组
下一篇:单词接龙
网站首页网站地图 站长统计
All rights reserved Powered by 海文库
copyright ©right 2010-2011。
文档资料库内容来自网络,如有侵犯请联系客服。zhit326@126.com