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) - Sở Giáo dục và Đào tạo Đăk Lăk

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.

Nội dung trích xuất từ tài liệu:
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) - Sở Giáo dục và Đào tạo Đăk Lăk Trang 1SỞ GIÁO DỤC VÀ ĐÀO TẠO KỲ THI LẬP ĐỘI TUYỂN DỰ THI QUỐC GIA TỈNH ĐẮK LẮK NĂM HỌC 2013 - 2014 HƯỚNG DẪN CHẤM MÔN: TIN HỌC(Hướng dẫn chấm gồm có 5 trang) Ngày thi: 25/10/2013I. Phần chương trình nguồnBà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 do begin readln(f,w); u:=u+w; end; for i:=1 to 9 do 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 do begin t:= pos(bd[a[i]],s); if t = 0 then exit; vt[i]:= t; delete(s,t,2); insert(x[a[i]],s,t); end; if pos(w,s) > 0 then begin writeln(f,m); Trang 2 for i:= 1 to m do 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 9 do 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 do 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 3var i,j,mid: integer;begin mid:=a[(k+l) div 2]; i:=k; j:=l; repeat while a[i]mid do dec(j); if ij; if j>k then SortA(k,j); if imid do inc(i); while b[j]k then SortB(k,j); if i Trang 4function TimA(r: integer): integer;var i: integer;begin for i:=n downto 1 do if (dd[csA[i]]=0) and (a[i]0 then begin 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 do 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 do writeln(fo,x[i]); close(fo);end;BEGIN Trang 5 Docdl; SapXepA; SapXepB; Ghep; Inkq;END.II. Hướng dẫn chấm.Bài 1: 5 Test, mỗi test đúng cho 2 điểmBài 2: 5 Test, mỗi test đúng cho 2 điểmChú ý: Kết quả có thể có nhiều phương án khác nhau do đó yêu cầu giám khảo xem xétkỹ khi chấm bài. ---- Hết ----