Hướng dẫn chấm Đề thi lập đội tuyển dự thi quốc gia năm học 2013 - 2014 môn Tin học (Ngày thi 25/10/2013) của Sở Giáo dục và Đào tạo Đăk Lăk giúp các bạn biết được cách cho điểm đối với đề thi môn lập đội tuyển dự thi quốc gia năm học 1013 - 2014 trong môn Tin học. Mời các bạn tham khảo.
Trang SỞ GIÁO DỤC VÀ ĐÀO TẠO TỈNH ĐẮK LẮK KỲ THI LẬP ĐỘI TUYỂN DỰ THI QUỐC GIA NĂM HỌC 2013 - 2014 HƯỚNG DẪN CHẤM (Hướng dẫn chấm gồm có trang) I Phần chương trình nguồn Bài 1: program biendoixau; {$B-,Q+,R+} {$M 65500,0,655360} const maxN = 20; fi = 'BAI1.INP' ; fo = 'BAI1.OUT'; bd: array[1 9] of string[2]= ('aa','ab','ac','ba','bb', 'bc','ca','cb','cc'); type sN= string[maxN]; s9= string[9]; mang= array[1 maxN] of byte; var a, vt: mang; m,n: byte; u: sN; x: s9; w: char; f: text; procedure khoitao; var i:byte; begin assign(f,fi); reset(f); readln(f,n); u:= ''; x:= ''; m:= n-1; for i:=1 to n begin readln(f,w); u:=u+w; end; for i:=1 to begin readln(f,w); x:=x+w; end; read(f,w); close(f); end; procedure check; var t,i,kt: byte; s:sN; begin s:= u; for i:=1 to m begin t:= pos(bd[a[i]],s); if t = then exit; vt[i]:= t; delete(s,t,2); insert(x[a[i]],s,t); end; if pos(w,s) > then begin writeln(f,m); MÔN: TIN HỌC Ngày thi: 25/10/2013 Trang for i:= to m writeln(f,a[i],' ',vt[i], ' ',vt[i]+1); close(f);halt; end; end; procedure tim(i:byte); var j:byte; begin if i>m then check else for j:=1 to begin a[i]:= j; tim(i+1); end; end; procedure xuly; begin assign(f,fo); rewrite(f); tim(1); write(f,0); close(f); end; BEGIN khoitao; xuly; END BÀI 2: program doico; const tfi = 'BAI2.INP'; tfo = 'BAI2.OUT'; maxN = 1000; var fi, fo : text; N : integer; dd,x,a,b,csA,csB : array[1 maxN] of integer; DiemMax : integer; procedure Docdl; var i: integer; begin assign(fi,tfi); reset(fi); readln(fi,N); for i:=1 to N read(fi,a[i],b[i]); close(fi); end; procedure Doi(var u,v: integer); var w: integer; begin w:=u; u:=v; v:=w; end; procedure SortA(k,l: integer); Trang var i,j,mid: integer; begin mid:=a[(k+l) div 2]; i:=k; j:=l; repeat while a[i]mid dec(j); if ij; if j>k then SortA(k,j); if imid inc(i); while b[j]k then SortB(k,j); if ia[k] then inc(DiemMax,2) else inc(DiemMax,1); limit:=k-1; inc(i); end; until k=0; for j:=i to N begin repeat inc(k) until dd[k]=0; x[k]:=csB[j]; end; end; procedure inkq; var i: integer; begin assign(fo,tfo); rewrite(fo); writeln(fo,diemMax); for i:=1 to N writeln(fo,x[i]); close(fo); end; BEGIN Trang Docdl; SapXepA; SapXepB; Ghep; Inkq; END II Hướng dẫn chấm Bài 1: Test, test cho điểm Bài 2: Test, test cho điểm Chú ý: Kết có nhiều phương án khác yêu cầu giám khảo xem xét kỹ chấm Hết ... SapXepA; SapXepB; Ghep; Inkq; END II Hướng dẫn chấm Bài 1: Test, test cho điểm Bài 2: Test, test cho điểm Chú ý: Kết có nhiều phương án khác yêu cầu giám khảo xem xét kỹ chấm Hết ... x[csA[k]]:=csB[i]; dd[csA[k]]:=1; if b[i]>a[k] then inc(DiemMax,2) else inc(DiemMax,1); limit:=k-1; inc(i); end; until k=0; for j:=i to N begin repeat inc(k) until dd[k]=0; x[k]:=csB[j]; end;