Mời các bạn tham khảo 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 24/10/2013) của Sở Giáo dục và Đào tạo Đăk Lăk sau đây để biết được về quy định chấm điểm trong kỳ thi này đối với môn Tin học, với các giáo viên Tin học và các bạn yêu thích môn học này thì đây là tài liệu hữu ích.
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 MÔN: TIN HỌC (Hướng dẫn chấm gồm trang) Ngày thi: 24/10/2013 I Phần chương trình nguồn BÀI –TỪ ĐỐI XỨNG var f,g:text;st:string; Function tudao(st:string):string; Var i:integer;st1:string; Begin st1:=''; For i:=length(st) downto st1:=st1+st[i]; tudao:=st1; End; Function demtudx(st:string):integer; Var dem:integer;tu,tu1:string; Begin dem:=0; st:=st+' '; While length(st)>1 Begin While st[1]=' ' delete(st,1,1); tu:=copy(st,1,pos(' ',st)); if st'' then st:=' '+st; tu:=' '+tu; While pos(tu,st)>0 delete(st,pos(tu,st),length(tu)-1); tu1:=tudao(tu); If (pos(tu1,st)>0) and (st[pos(tu1,st)+length(tu1)-1]=' ') then inc(dem); demtudx:=dem; End; end; procedure xuly; Var st:string; Begin Assign(f,'bai1.inp'); Reset(f); Assign(g,'bai1.out'); Rewrite(g); While not eof(f) Begin Readln(f,st); Writeln(g,demtudx(st)); End; Trang Close(f); Close(g); End; Begin xuly; End BÀI – Biểu thức zero Program Zero_sum; Type MangStr = array[1 15] of string; Const Fi ='BAI2.INP'; Fo ='BAI2.OUT'; Dau : array[1 3] of string[1] = ('-','+',''); S : array[1 9] of char =('1','2','3','4','5','6','7','8','9'); ChuSo = ['1' '9']; Var N,k,dem: byte; D : array[2 9] of string[1]; F : Text; St : String; M : MangStr; Procedure Write_out; Var i : byte; Begin Assign(F,Fo); Rewrite(F); Writeln(F,dem); For i:= to dem writeln(F,M[i],' = 0'); Close(F); Halt; End; Procedure Read_inp; Begin Assign(F,Fi); Reset(F); Read(F,N); Close(F); If N < then write_out; End; Function DocSo(S : String): longint; Var M : longint; t : byte; Begin M:= 0; t:= 0; If S[k] in ['+','-'] then begin t:= k; Inc(k); end; While (km then Max:=n else Max:=m; end; { } Procedure MakeArrayOfQHD; Begin b[1,2]:=a[1,2]; for j:=1 to n b[j,1]:=-maxint; for i:=3 to n b[1,i]:=-maxint; for j:=2 to n begin for i:=2 to j+1 b[j,i]:=a[j,i]+max(b[j-1,i],b[j-1,i-1]); end; end; { -} Procedure FindMax; var max:integer; Begin max:=b[n,1]; for i:=2 to n if b[n,i]>max then max:=b[n,i]; assign(f,'bai3.out');rewrite(f); write(f,max); close(f); end; { } BEGIN Input; makearrayofQHD; FindMax; END II Hướng dẫn chấm Bài 1: Test, test cho điểm Bài 2: Test, test cho điểm + điểm test mẫu ví dụ Bài 3: Test, test cho điểm + điểm test mẫu ví dụ 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 ... b[1,2]:=a[1,2]; for j:=1 to n b[j,1]:=-maxint; for i:=3 to n b[1,i]:=-maxint; for j:=2 to n begin for i:=2 to j+1 b[j,i]:=a[j,i]+max(b[j-1,i],b[j-1,i-1]); end; end; { -} Procedure FindMax; var... in ['+', '-' ] then begin t:= k; Inc(k); end; While (k