年度奥赛参考实例.docVIP

2011年奥赛试题答案 1、 var i,j,k,m,n,l,st:longint;c:char; s,s1:string; begin assign(input,reverse.in); assign(output,reverse.out); reset(input); rewrite(output); readln(s);//读入 l:=length(s);//求长度 while (l0) and (s[l]=0) do//末尾为0 dec(l); st:=1; if s[st]=- then begin write(-);inc(st);end;//保留负号 s:=copy(s,st,l-st+1);//删除符号 l:=length(s);//再求长度 for i:=1 to l div 2 do//开始反转 begin c:=s[i]; s[i]:=s[l-i+1]; s[l-i+1]:=c;//回文反转 end; val(s,i,j);//直接化为数字 writeln(i);//输出 close(output); end. 2、 vari,l,ans,ans1:longint;s,s1,ch:ansistring;function pd(a:string):boolean;vari:longint;p:boolean;begin??????? p:=true;??????? if length(s)length(a) then p:=false??????? else begin??????????????? i:=length(s); ??????????????? while(i0)do??????????????? begin??????????????????????? if(a[i]=Z)and(a[i]=A) then a[i]:=chr(ord(a[i])-ord(A)+ord(a));??????????????????????? if a[i]s[i] then begin p:=false;?? break; end;??????????????????????? dec(i);??????????????? end; ??????? end;??????? pd:=p ;end; begin??????? readln(s);??????? l:=length(s);??????? for i:=1 to l do???????????? if (s[i]=Z)and(s[i]=A) then???????????????? s[i]:=chr(ord(s[i])-ord(A)+ord(a));??????? readln(s1);??????? l:=length(s1);??????? ch:=;??????? ans:=0;??????? ans1:=0;??????? for i:=1 to l do begin?????????????? if s1[i] then ch:=ch+s1[i]?????????????? else begin??????????????????????? if pd(ch) then begin??????????????????????????????? inc(ans);??????????????????????????????? if ans=1 then begin??????????????????????????????????????? ans1:=i-length(s)-1;??????????????????????????????? end;??????????????????????? end;??????????????????????? ch:=;?????????????? end;??????? end;??????? if ans=0 then writeln(-1)??????? else writeln(ans, ,ans1);end. 一、数字反转 没得满分只能说明一个问题，你的程序写的太少了。 program reverse; var s:string; i,sta:longint; begin assign(input,reverse.in);reset(input); assign(output,reverse.out);rewrite(outp