pascal题解.doc

1.var i,j,n,m,r,dx,dy,k:integer; a:array0.100,0.100 of char; wx:Array1.8 of integer=(1,1,1,0,0,-1,-1,-1); wy:array1.8 of integer=(-1,1,0,1,-1,0,1,-1);begin readln(n,m); for i:=1 to n do begin for j:=1 to m do read(ai,j); readln; end; for i:=1 to n do for j:=1 to n do if ai,j=k then begin k:=0; for r:=1 to 8 do begin dx:=wxr+i; dy:=wyr+j; if adx,dy=* then inc(k); end; ai,j:=chr(ord(k)+48); end; for i:=1 to n do begin for j:=1 to m do write(ai,j); writeln; end;end.2.var a:array1.100 of integer; s:string; i,j,t,k,k2:integer;begin readln(s); fillchar(a,sizeof(a),0); for i:=1 to length(s) do begin ai:=ord(si)-48; k:=k+ai; end; repeat t:=0; repeat inc(t); at:=k mod 10; k:=k div 10; until k=0; for i:=1 to t do k:=k+ai; until t=1; writeln(k);end.3.var a:array1.50 of longint; i,j,k,l,m,n:longint;begin readln(n,m); a1:=1;a2:=1; for i:=3 to n do ai:=ai-1+ai-2; l:=0; repeat for i:=1 to n do begin if ai0 then begin inc(k); if k=m then begin write(ai); ai:=0; k:=0; inc(l); end; end; end; until l=n;end.4.var n,i,k:longint; s:string;begin readln(n); for i:=1 to n do begin str(i,s); k:=k+length(s); end; writeln(k);end.5.var a:array1.100000 of longint; i,j,k,m,n:longint;procedure qs(l,r:longint);var i,j,m,t:longint;begin i:=l;j:=r;m:=a(l+r) div 2; repeat while aim do inc(I); while ajm do dec(j); if ij; if il then qs(l,j);end;begin readln(m,n); m:=n+1-m; for i:=1 to n do read(ai); qs(1,n); write(am, ); for i:=1 to n do if ai=am then inc(k); writeln(k);end.6.var a:array1.300,1.300of integer; i,j,k,m,n,p,q,max,i2,j2:integer;begin readln(n,m); for i:=1 to n do for j:=1 to m do read(Ai,j); for p:=1 to n do for q:=1 to m do for i:=1 to n+1-p do for j:=1 to m+1-q do begin k:=0; for i2:=i to i+p-1 do for j2:=j to j+q-1 do if ai2,j