PHÒNG GD&ĐT CAM LỘ ĐỀ THI HSG CẤP HUYỆN
MÔN : TIN HỌC THCS NĂM HỌC 2009 - 2010
Thời gian 120 phút (Không kể thời gian giao đề)



Yêu cầu:
- Các File bài làm được lưu theo tên bài. Ví dụ: BAI1.PAS.
- Tất cả các tệp đều được lưu trong thư mục theo đường dẫn: D:\SBD*. (* là số báo danh của thí sinh). Ví dụ: D:\SBD020.
- Em hãy dùng ngôn ngữ lập trình Pascal để lập trình giải các bài toán sau:

Bài 1 (2 điểm): Tìm số:
Viết chương trình tìm các số có ba chữ số sao cho số đó bằng n lần tổng các chữ số của nó. (n được nhập từ bàn phím).

Bài 2: (3 điểm).Viết chương trình nhập số tự nhiên n (n≤100) và tính giá trị biểu thức Sn:



Bài 3(3 điểm): Viết chương trình nhập vào từ bàn phím dãy số thực a.
Tính tổng a1 - a2 + a3 -.... . Kết quả được ghi vào tệp văn bản có tên là ketqua.txt.

Bài 4(2 điểm): Viết chương trình tính điểm trung bình 3 môn Toán _ Lý _ Hóa theo hệ số 2,1,1sau đó xếp loại như sau: sau:
Loại Giỏi: ĐTB >= 8.0 và không có môn nào dưới 6.5
Loại Khá : 6.5=<ĐTB < 8.0 và không có môn nàio dưới 5
Loại Trung bình : 5.0 =<ĐTB < 6.5 và không có môn dưới 3.5
Loại yếu: còn lại
-----------------------------------















Phòng GD - ĐT Cam Lộ


Hướng dẫn Chấm Thi Hsg Môn TIN HỌC
Năm học 2009 - 20109


Yêu cầu chung:
Yêu cầu chương trình chạy thông suốt. ( 2-3 điểm)
+ Hoàn thành đúng phần khai báo các biến: (0,25 điểm)
+ Viết đúng chương trình nhập mảng: (0,25 điểm)
+ Viết đúng thuật toán (cách giải) tính tổng: (1-2 điểm)
+ Viết đúng thủ tục tạo và ghi kết quả vào tệp: (0,5 điểm)
- Chương trình chạy cho kết quả đúng: khai báo đầy đủ, trình bày có cấu trúc rõ ràng cho điểm tối đa. Không khai báo mỗi biến trừ 0.25 điểm.
- Chương trình cho kết quả sai: Chỉ chấm phần các ý chính của thuật toán, mỗi ý đúng cho điểm không vượt quá 40% số điểm của câu.

Bài 1: (2 điểm)
Chương trình tham khảo:
Tìm số
Program Tim_so_co_ba_chu_so;
Uses crt;
Var a,b,c:0..9;
n,dem:byte;
Begin
clrscr;
write(`nhap so n lan: `);readln(n);
dem:=0;
For a:=1 to 9 do
For b:= 0 to 9 do
For c:=0 to 9 do
If 100*a+10*b+c = n*(a+b+c) then
Begin
writeln(a,b,c);
dem:=dem+1;
End;
If dem = 0 then write(`Khong tim thay so nay!`);
Readln;
End.

Bài 2: (3 điểm)
Uses Crt;
Var
N,i:Integer;
s:Real;
BEGIN
ClrScr;
Write(‘Nhap so tu nhien n=`);Readln(n);
s:=0;
For i:=1 to n do s:=s+i/(i+1);
Write(‘s=’,s:4);
Readln
END.
Mỗi test sau đây đúng được 1,0 điểm.

n nhập vào
Kết quả S trên màn hình

1
0.500

100
95.803

1000
993.514



Bài 3: (2 điểm)
Chương trình tham khảo:
{BAI 3}
Program bai3;
uses crt;
{Phần khai báo các biến}
var a: array[1..100] of real;
i,n,d: integer;
s: real;
f: text;
{Chương trình chính}
BEGIN
clrscr;
{Chương trình nhập mảng}
write(`Hay nhap vao n= `