De thi HSG L9 mon Tin hoc cap huyen 20122013

4 5 0
De thi HSG L9 mon Tin hoc cap huyen 20122013

Đang tải... (xem toàn văn)

Thông tin tài liệu

Bài 2: Chạy được chương trình - Nhập /đọc được chuổi - Nhập được ký tự cần đếm từ bàn phím - Đếm đúng số lần xuất hiện của ký tự vừa nhập Bài 3: Chạy được chương trình - Nhập /đọc được s[r]

(1)UBND HUYỆN CHÂU THÀNH PHÒNG GIÁO DỤC –ĐÀO TẠO - CỘNG HÒA XÃ HỘI CHỦ NGHĨA VIỆT NAM Độc lập – Tự – Hạnh phúc - KỲ THI HỌC SINH GIỎI TIN HỌC CẤP HUYỆN NĂM HỌC 2012-2013 Đề chính thức Môn thi: Tin học (thực hành) cấp THCS Ngày thi: 20/01/2013 Thời gian: 120 phút (không kể chép đề) Bài (6 điểm) Tính chu vi, diện tích hình chữ nhật Tên tệp chương trình: Bai1.PAS Viết chương trình tính chu vi, diện tích hình chữ nhật có cạnh a, b (được nhập từ bàn phím) và xuất kết màn hình Bài (6 điểm) Đếm số lần ký tự xuất chuỗi Tên tệp chương trình: Bai2.PAS Viết chương trình nhập vào chuỗi kí tự, sau đó nhập vào kí tự bất kì và đếm số lần xuất nó chuỗi đã nhập (Ví dụ: Nhập vào chuỗi “chuc mung nam moi” sau đó nhập vào ký tự bất kỳ, chẳng hạn là “m” kết đếm là 3) Bài (8 điểm) Đảo ngược số thứ tự Tên tệp chương trình: Bai3.PAS Viết chương trình cho phép nhập n số và in theo thứ tự ngược lại Ví dụ nhập 3, 5, (n=3) thì in 7, 5, - Hết - Ghi chú: * Bài 2, Bài thí sinh có thể nhập xuất kết file nhập từ bàn phím và xuất kết màn hình * Thí sinh không sử dụng tài liệu Giám thị không giải thích gì thêm (2) HƯỚNG DẪN CHẤM ĐIỂM KỲ THI HỌC SINH GIỎI MÔN TIN HỌC NĂM HỌC 2012-2013 1- Sinh hoạt cho học sinh tạo thư mục riêng cho có tên trùng với số báo danh mình (ví dụ: HS có tên Nguyễn Văn An có SBD: 001; thì tạo thư mục có tên “001”) trên ổ đĩa C:\ , sau đó lưu bài thi mình thư mục vừa tạo 2- Chấm thi: + Chỉ cho điểm chương trình đã chạy; đúng các yêu cầu nhập/đọc liệu và cho kết đúng tất các trường hợp Không chấm điểm cho giải thuật chương trình đúng với vài trường hợp định + Thời gian làm bài là 120 phút Nếu thí sinh hoàn thành bài thi trước thì báo cho giám khảo để tính thời gian làm bài thí sinh đó Đây là thứ (thứ là số điểm bài thi) Phòng GDĐT xét giải thưởng và lập đội tuyển dự thi cấp tỉnh môn Tin học Cụ thể: Bài 1: (6 điểm) Chạy chương trình: - Nhập kích thước chiều dài, chiều rộng từ bàn phím - Xuất màn hình kết đúng chu vi và diện tích hình chữ nhật Bài 2: Chạy chương trình - Nhập /đọc chuổi - Nhập ký tự cần đếm từ bàn phím - Đếm đúng số lần xuất ký tự vừa nhập Bài 3: Chạy chương trình - Nhập /đọc số N - Cho phép nhập vào N số - Xuất N số vừa nhập theo thứ tự ngược lại Lưu ý: Giám khảo tập hợp tất các bài thi vào thư mục “HDthi_PL(AN)20-0113”, nén lại và ghi đĩa CD nộp cho Phòng GDĐT (Thanh tra HĐ)./ (3) ĐÁP ÁN GỢI Ý KỲ THI HỌC SINH GIỎI TIN HỌC HUYỆN CHÂU THÀNH NĂM 2013 Bài (6 điểm) Tính chu vi, diện tích hình chữ nhật Tên tệp chương trình: Bai1.PAS Viết chương trình tính chu vi, diện tích hình chữ nhật có cạnh a, b (được nhập từ bàn phím) Program Bai1; uses crt; Var a, b, S, CV: real; Begin Clrscr; Write('Nhap chieu dai:'); readln(a); Write('Nhap chieu rong:'); readln(b); S := a*b; CV := (a+b)*2; Writeln('Dien tich hinh chu nhat la:',S:5:2); Writeln('Chu vi hinh chu nhat la:',CV:5:2); readln end Bài (6 điểm) Đếm số lần ký tự xuất chuỗi Tên tệp chương trình: Bai2.PAS Viết chương trình nhập vào chuỗi kí tự, sau đó nhập vào kí tự bất kì và đếm số lần xuất nó chuỗi đã nhập Ví dụ nhập vào chuỗi “chuc mung nam moi” sau đó nhập vào ký tự là “m” kết đếm là Program DEM_SO_KY_TU; Uses Crt; Var st:string[30]; x:char;i,dem:integer; Begin Clrscr; Writeln('DIEM SO LAN XUAT HIEN CUA KY TU'); Writeln(' '); Write('Nhap chuoi ky tu la:'); readln(st); Write('Nhap ky tu x='); readln(x); dem:=0; For i:=1 to length(st) If x= st[i] then dem:=dem+1; Writeln('so lan xuat hien cua ',x,' chuoi "', st,'" la: ',dem); Readln; End (4) Bài (8 điểm) Đảo số thứ tự Tên tệp chương trình: Bai3.PAS Viết chương trình cho phép nhập n số và in theo thứ tự ngược lại Ví dụ nhập 3, 5, (n=3) thì in 7, 5, Program Bai3; uses crt; var n, i: integer; M: array[1 100] of real; Begin write('Nhap so n: ');readln(n); for i:=1 to n Begin write('M[',i,']='); readln(M[i]); end; for i:= n downto write(m[i]:2:0,’ ,’); readln end Hết - (5)

Ngày đăng: 24/06/2021, 15:01

Tài liệu cùng người dùng

  • Đang cập nhật ...

Tài liệu liên quan