Trang SỞ GIÁO DỤC & ĐÀO TẠO ĐẮK LẮK KỲ THI CHỌN ĐỘI TUYỂN HỌC SINH GIỎI TỈNH NĂM HỌC 2011-2012 MÔN : TIN HỌC 12 - THPT Ngày thi 29/11/2011 ĐÁP ÁN VÀ HƯỚNG DẪN CHẤM VÒNG I Phần chương trình nguồn BÀI {$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q-,R+,S+,T-,V+,X+} {$M 16384,0,655360} const max =250; fi ='BAI1.INP'; fo ='BAI1.OUT'; var l a,b,c :array[1 max+1,1 max+1]of byte; :string; procedure docf; var f :text; begin assign(f,fi); reset(f); readln(f,a);readln(f,b); close(f); end; function maxso(x,y,z:byte):byte; begin if x0)and(l[i,j]>m) then begin c:=ch;m:=l[i,j];end; end; i:=pos(c,a)+1;j:=pos(c,b)+1; for k:=m-1 downto for ch:='9'downto '0' begin x:=i;y:=j; Trang while (x= S1 Then Begin Trang Fillchar(B,SizeOf(B),0); B[i,j]: =1; Write_Output; End ; For S2 := S1 downto Begin Fillchar(B,SizeOf(B),0); B [1, 1]: =1; Try (1, 1,A [1, 1]);... i: =1 to M Begin For j: =1 to N Begin Read(F,A[i,j]); S:=S+A[i,j]; End; Readln(F); End; Close(F); End; Trang Procedure Innit ; Begin S1 := S div 2; Px [1] := ;Px[2]:= ;Px[3]: =1 ;Px[4]:= -1 ; Py [1] :=... Const Fi = 'BAI2.INP'; Fo = 'BAI2.OUT'; Var A : Array [1 20 ,1 20]Of Integer ; B : Array [1 20 ,1 20]Of ; Px,Py: Array [1 4] Of ShortInt ; M,N,S,S1,S2 : LongInt ; F : Text ; Procedure Read_Input ; Var