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]
Trang 1UBND HUYỆN CHÂU THÀNH CỘNG HÒA XÃ HỘI CHỦ NGHĨA VIỆT NAM PHÒNG GIÁO DỤC –ĐÀO TẠO Độc lập – Tự do – Hạnh phúc
-
-KỲ THI HỌC SINH GIỎI TIN HỌC CẤP HUYỆN NĂM HỌC 2012-2013
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 1 (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 quả ra màn hình
Bài 2 (6 điểm) Đếm số lần ký tự xuất hiện trong chuỗi.
Tên tệp chương trình: Bai2.PAS
Viết chương trình nhập vào một chuỗi kí tự, sau đó nhập vào một kí tự bất
kì và đếm số lần xuất hiện của nó trong 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 quả đếm được là 3).
Bài 3 (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 ra theo thứ tự ngược lại Ví dụ nhập 3, 5, 7 (n=3) thì in ra 7, 5, 3
Hết
-Ghi chú:
* Bài 2, Bài 3 thí sinh có thể nhập xuất kết quả bằng file hoặc nhập từ bàn phím và xuất kết quả
ra 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.
Đề chính thức
Trang 2HƯỚ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 mỗi học sinh tạo một thư mục riêng cho có tên trùng với số
báo danh của 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 của mình trong thư
mục vừa tạo
2- Chấm thi:
+ Chỉ cho điểm khi chương trình đã chạy; đúng các yêu cầu về nhập/đọc
dữ liệu và cho kết quả đúng trong tất cả các trường hợp Không chấm điểm cho giải thuật hoặc những chương trình chỉ đúng với một vài trường hợp nhất đị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 ngay cho giám khảo để tính thời gian làm bài của thí sinh đó Đây là căn cứ thứ 2 (thứ nhất là số điểm bài thi) để cho 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 được chương trình:
- Nhập được kích thước chiều dài, chiều rộng từ bàn phím
- Xuất được ra màn hình kết quả đúng của chu vi và diện tích hình chữ nhật
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ố N
- Cho phép nhập vào được 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ác bài thi vào thư mục
“HDthi_PL(AN)20-01-13”, nén lại và ghi ra đĩa CD nộp cho Phòng GDĐT (Thanh tra HĐ)./
Trang 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 1 (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 2 (6 điểm) Đếm số lần ký tự xuất hiện trong chuỗi.
Tên tệp chương trình: Bai2.PAS
Viết chương trình nhập vào một chuỗi kí tự, sau đó nhập vào một kí tự bất
kì và đếm số lần xuất hiện của nó trong 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ỳ
là “m” kết quả đếm được là 3.
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 1 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) do
If x= st[i] then dem:=dem+1;
Writeln('so lan xuat hien cua ',x,' trong chuoi "', st,'" la: ',dem);
Readln;
End
Trang 4Bài 3 (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 ra theo thứ tự ngược lại Ví dụ nhập 3, 5, 7 (n=3) thì in ra 7, 5, 3
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 do
Begin
write('M[',i,']='); readln(M[i]);
end;
for i:= n downto 1 do write(m[i]:2:0,’ ,’);
readln
end
- Hết