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

Chia sẻ: Hải Thọ | Ngày: | Loại File: PDF | Số trang:5

Thêm vào BST

Báo xấu

98
lượt xem 8
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

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.

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: 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 1 SỞ 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/2013 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 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 3 var 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 4 function 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ểm Bài 2: 5 Test, mỗi test đúng cho 2 điểm Chú ý: 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ét kỹ khi chấm bài. ---- Hết ----