phòng gd đt thị xã gia nghĩa đề thi học sinh giỏi năm học 2008 2009 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

Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (140.69 KB, 6 trang )

(1)<div class='page_container' data-page=1>

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.

C

âu 3: Viết chương trình giải hai bài tố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 ×n h t×m c¸c s è cã b a ch ÷ s è ví i ® iỊu k iƯn g i¸ tr Þ cđ a sè ® ã b »n g tỉ n g lËp
p h ¬ n g 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 ìn h đ a r a màn h ìn h b ¶n g cư u ch ¬ n g cã d ¹n g :

1 2 3 ... 9

2 18

. . .

. .

9 18 ... 81

b »n g h ai c¸ch.

C

âu 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 Tốn, Lý , Hố theo hệ số 2,1,1 sau đó xếp loại như
sau:

a. Loại Giỏi : ĐTB >= 8.0 và không có mơn nào dưới 6,5
b. Loại Khá : 6.5=<ĐTB < 8.0 và khơng có mơn nào dưới 5

c. Loại Trung bình : 5.0 =<ĐTB < 6.5 và khơng có mơn nào dưới 3.5
d. 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;

</div>
(2)<div class='page_container' data-page=2>

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]<a[j] then
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

</div>
(3)<div class='page_container' data-page=3>

for j:=1 to 50 do

if (i*4+j*2=100) and (i+j=36) then
writeln(i,' con cho, ',j,' con ga.');
readln;

end.

---Câu 4:

a) program pytago;
uses crt;

var n:integer;
begin

clrscr;

write(‘ nhap so n=’);readln(n);

if n<=2 then write(‘ so nhap vao khong hop le’)
else

if n*n=(n-2)*(n-2)+(n-1)*(n-1) then write(n,’la so Py ta go’)
else write(n,’ khong phai la so Py ta go’);

readln;
end.

b) program Bo_so_pitago;
uses crt;

var a,b,c:integer;
begin

clrscr;

write(‘Nhap so a=’);readln(a);
write(‘Nhap so b=’);readln(b);
write(‘Nhap so c=’);readln(c);

if (a*a=b*b+c*c) or(b*b=a*a+c*c) or*c*c=a*a+b*b) then
write(a,’’,b,’’,c,’la bo so Py- ta –go’)

else

write(a,’’,b,’’,c,’khong phai la bo so Py- ta –go’);
readln;

end.

---Câu 5:

var a,b,min,max,ucln:integer;
begin

write('moi nhap hai so can xac dinh: ');
readln(a,b);

max:=a;
min:=b;

if max mod min=0 then ucln:=min

else if min mod max=0 then ucln:=max
else

begin
repeat

</div>
(4)<div class='page_container' data-page=4>

else if max<min then min:=min-max;
until max=min;

ucln:=min;
end;

write('ucln ',ucln);

write('bcnn ',a*b/ucln:1:1);
readln;

end.

---Câu6:

Program bai1;
uses crt;
var

a,b,c,i:integer;
Begin

clrscr;

For i:=100 to 999 do
begin

a:=i div 100;

b:=(i div 10) mod 10;
c:=i mod 10;

if a*a*a+b*b*b+c*c*c=i then
begin

Writeln('So ',i,' co gia tri bang tong lap phuong cac chu so cua no.');
end;

end;
Readln;
End.

---Câu 7:

Program bonso;

Var haisodau, haisocuoi, i : integer;
Begin

Writeln( ‘ cac so thoa man dieu kien gom co’);
For i:=1000 to 9999 do

Begin

haisodau:=i Div 100;{lay 2 so dau tien ab}
haisocuoi:=i mod 100;{lay 2 so cuoi cd}
If i=SQR(haisodau + haisocuoi) then
write(i:5);

End;
Readln;
End.

C âu 8: program Bang_cuu_chuong;

Cách 1: 
Uses crt;

</div>
(5)<div class='page_container' data-page=5>

Begin
Clrscr;

For i:=1 to 9 do
 Begin

For j:=1 to 9 do

write(i*j:5);

writeln; writeln;
 End;readln;
End.

Cách 2:
Uses crt;

Var a:array[1..20,1..20] of integer;
Begin

Clrscr;

For i:=1 to 9 do

For j:=1 to 9 do
A[I,j]:=i*j;
For i:=1 to 9 do
Begin

For j:=1 to 9 do
Write(a[I,j]:4);
Writeln;
End;
Readln;
End.

---C

âu 9:

var n,t,ngay:integer;
begin

write('nhap thang:');readln(t);
write('nhap nam:');readln(n);
case t of

1,3,5,7,8,10,12: ngay:=31;
4,6,9,11:ngay:=30;

2: if n mod 4 = 0 then ngay :=29
else ngay:=28;

end;

writeln('Thang:',t,' nam:',n,' co: ',ngay,' ngay');
readln;

end.

---

---Câu 10:

program xep_loai_hoc_sinh;
uses crt;

</div>
(6)<div class='page_container' data-page=6>

xl:string;
begin

write('moi nhap diem toan: ');
readln(t);

write('moi nhap diem ly: ');
readln(l);

write('moi nhap diem hoa: ');
readln(h);

min:=l;

if min>t then min:=t;

if min>h then min:=h;
tbc:=(t*2+l+h)/4;

if (tbc>=8) and (min>=6.5) then xl:='Gioi';
 else if (tbc>=6.5) and (min>=5)

then xl:=’Kha’;

else if (tbc>=5) and (min>=3.5)
 then xl:='Trung binh'
 else xl:='yeu';

writeln(‘Diem trung binh:’,tbc:0:1,’ Xep loai:’,xl);
readln;

end.

</div>

phòng gd đt thị xã gia nghĩa đề thi học sinh giỏi năm học 2008 2009 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

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

.

Program bonso;

Tài liệu liên quan

Tài liệu bạn tìm kiếm đã sẵn sàng tải về