TAILIEUCHUNG - 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

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.  | 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 4 trang MÔN TIN HỌC 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 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 of string Const Fi Fo Dau array of string 1 - S array of char 1 2 3 4 5 6 7 8 9 ChuSo 1 . 9 Var N k dem byte D array 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 length S and s k in ChuSo do begin m m 10 ord s k - ord O Inc k end 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 of integer Var

TỪ KHÓA LIÊN QUAN
TAILIEUCHUNG - Chia sẻ tài liệu không giới hạn
Địa chỉ : 444 Hoang Hoa Tham, Hanoi, Viet Nam
Website : tailieuchung.com
Email : tailieuchung20@gmail.com
Tailieuchung.com là thư viện tài liệu trực tuyến, nơi chia sẽ trao đổi hàng triệu tài liệu như luận văn đồ án, sách, giáo trình, đề thi.
Chúng tôi không chịu trách nhiệm liên quan đến các vấn đề bản quyền nội dung tài liệu được thành viên tự nguyện đăng tải lên, nếu phát hiện thấy tài liệu xấu hoặc tài liệu có bản quyền xin hãy email cho chúng tôi.
Đã 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.