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) - 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:4

Thêm vào BST

Báo xấu

151
lượt xem 16
download

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

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.

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 24/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 4 trang) Ngày thi: 24/10/2013 I. Phần chương trình nguồn BÀI 1 –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 1 do 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 do Begin While st[1]=' ' do delete(st,1,1); tu:=copy(st,1,pos(' ',st)); if st'' then st:=' '+st; tu:=' '+tu; While pos(tu,st)>0 do 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) do Begin Readln(f,st); Writeln(g,demtudx(st)); End;
Trang 2 Close(f); Close(g); End; Begin xuly; End. BÀI 2 – 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:= 1 to dem do 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 < 3 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 (k
Trang 3 If (t 0) and (S[t] = '-') then DocSo:= -M else DocSo:= M; End; Procedure Test; Var St : string; i : byte; T : longint; Begin St:= '1'; k:= 1; T:= 0; For i:= 2 to N do St:= St + D[i] + S[i]; While k < length(St) + 1 do T:= T + DocSo(St); If T = 0 then begin Inc(dem); M[dem]:= St; end; End; Procedure Try(i: byte); Var j : byte; Begin For j:= 1 to 3 do begin D[i]:= Dau[j]; If i = N then Test else try(i+1); end; End; BEGIN Read_inp; Try(2); Write_out; END. BÀI 3 – TAM GIÁC SỐ { QUY HOẠCH ĐỘNG} Program bai3; Uses crt; Type mang = array[1..100,1..100] of integer; Var f:text; i,j,n:integer; a,b:mang; Procedure Input; Begin clrscr; Assign(f,'bai3.inp'); reset(f); readln(f,n); for j:=1 to n do begin for i:=2 to j+1 do read(f,a[j,i]); end;
Trang 4 close(f); end; {----------------------------------} Function Max(m,n:integer):integer; Begin if n>m then Max:=n else Max:=m; end; {----------------------------------} Procedure MakeArrayOfQHD; Begin b[1,2]:=a[1,2]; for j:=1 to n do b[j,1]:=-maxint; for i:=3 to n do b[1,i]:=-maxint; for j:=2 to n do begin for i:=2 to j+1 do 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 do 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: 3 Test, mỗi test đúng cho 2 điểm. Bài 2: 3 Test, mỗi test đúng cho 2 điểm + 1 điểm test mẫu ví dụ. Bài 3: 3 Test, mỗi test đúng cho 2 điểm + 1 điểm test mẫu ví dụ 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 ----