Đề HSG TX Gia Nghĩa

Phòng GD& ĐT Thị xã Gia Nghĩa Đề thi học sinh giỏi THCS năm học 2008-2009
Trường THCS Nguyễn Tất Thành Môn: Tin học


I. Đề ra:
Câu1: Hãy viết chương trình nhấn một phím bất kỳ từ bàn phím và thông báo là vừa nhập phím gì?
Câu2: Viết chương trình tạo một mảng số nguyên gồm n phần tử nhỏ hơn 1000. Sắp xếp mảng theo tứ tự tăng dần và giảm dần.
3: Viết chương trình giải hai bài toán cổ: 100 trâu 100 bó cỏ và vừa gà vừa chó 36 con 100 chân?
Câu 4: a)Viết chương trình để nhập một số tự nhiên từ bàn phím và in ra màn hình số đó có phải là số Py- tap-go hay không . Số n là số Py- ta-go nếu n>=3 và n2= (n-1)2+(n-2)2?
b) Viết chương trình nhập ba số tự nhiên a,b,c từ bàn phím và in ra màn hình thông báo chúng có là bộ số Py- ta- go hay không?
Câu 5: Viết chương trình tìm ước chung lớn nhất và bội chung nhỏ nhất của hai số nhập vào từ bàn phím?

Câu 6: Lập trình tìm các số có ba chữ số với điều kiện giá trị của số đó bằng tổng lập phương các chữ số của nó.
Câu 7: Gọi abcd là một số có 4 chữ số. Hãy lập chương trình tìm tất cả các số có 4 chữ số thỏa mãn biểu thức: abcd=(ab + cd)2
Ví dụ: số 2025=(20 + 25)2.
Câu 8: Lập trình đưa ra màn hình bảng cửu chương có dạng:
1 2 3 ... 9
2 18
. . .
. .
9 18 ... 81
bằng hai cách.
9 : Viết chương trình nhập vào tháng, năm và cho biết tháng đó có bao nhiêu ngày?
Câu 10 : Viết chương trình tính điểm trung bình 3 môn Toán, Lý , Hoá theo hệ số 2,1,1 sau đó xếp loại như 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ào dưới 5
Loại Trung bình : 5.0 =<ĐTB < 6.5 và không có môn nào dưới 3.5
Loại Yếu : Còn lại.


II. Đáp án- Biểu điểm:

Câu 1:
Program doc_phim;
Uses crt;
Var kt:char;
Begin
Clrscr;
Writeln(‘ moi ban hay nhap vào mot phim bat ky’);
Kt: readkey;
If(kt>=’A’) and (kt<+’Z’) then
Writeln(‘Ban vua nhap vao la ki tu in hoa’)
Else
If(kt>=’a’) and (kt<=’z’) then
Writeln(‘Ban vua nhap vao la ki tu in thuong’)
Else
If (kt>=0) and (kt<=9) then
Writeln(‘Ban vua nhap vao la ki tu so’)
Else
Writeln(‘Ban vua nhap vao ki tu la cac ki tu khac’);
Readln;
End.
-------------------------------------------------------------------------------------------------------------------------
Câu 2:

const n=10;
var i,j,tam:integer;
a:array[1..n]of integer;
begin
randomize;
for i:=1 to n do a[i]:=random(1000);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i] begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to n do
writeln(a[i]);
readln;
end.

-----------------------------------------------------------------------------------------------------------------------

Câu 3:
var d,n,g:integer;
begin
for d:=1 to 20 do
for n:=1 to 33 do
for g:=1 to 98 do
if d*5+n*3+g=100 then
writeln(`Trau dung:`,d,` trau nam:`,n,` trau gia:`,g);
readln;
end.
-----
var i,j:integer;
begin
for i:=1 to 25 do
for j:=1 to 50 do
if (i*