tailieunhanh - 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.  | 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 GIA9 Năm Học 2013 - 2014 HƯỚNG DẪN CHẤM Hướng dẫn chấm gồm có 5 trang MÔN TIN HỌC 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 fo bd array 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 tfo maxN 1000 var fi fo text N integer dd x a b csA csB array 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 inc i while a j mid do dec j if i j then begin Doi a i a j Doi csA i csA j inc i dec j end until i j if j k then SortA k j if i l then SortA i l end procedure SapxepA var i integer begin for i 1 to N do csA i i SortA 1 N end procedure SortB k l integer var i j mid integer begin mid b k l div 2 i k j l repeat while b i mid do inc i while b j mid do dec j if i j then begin Doi b i b j Doi csB i csB j inc i dec j end until i j if j k then SortB k j if i l then SortB i l end procedure .

TỪ KHÓA LIÊN QUAN
crossorigin="anonymous">
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.