Tải bản đầy đủ (.docx) (4 trang)
  1. Trang chủ
    2. >>
  2. Văn Hóa - Nghệ Thuật
    3. >>
  3. Âm nhạc

Đề thi HSG Tin 9 LQĐ - Website Trường THCS Lê Quý Đôn - Đại Lộc - Quảng Nam

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 (113.06 KB, 4 trang )

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

<b>PHÒNG GD&ĐT ĐẠI LỘC</b>



<b>ĐỀ THI HỌC SINH GIỎI LỚP 9 (NĂM HỌC 2013 - 2014)</b>


<b>Môn: Tin học : </b>



<b>Thời gian:</b>

150 phút


<b>Giáo Viên ra đề: </b>

Trần Đình Luận


<b> Đơn vị: </b>

Trường THCS Lê Quý Đôn


<b>I. ĐỀ BÀI.</b>



<b>Bài 1. </b><i><b>( 4 điểm) Tính tổng</b></i>


<i><b> V</b></i>iết chương trình nhập số tự nhiên n . Tính các tổng sau::
a/ S1 = 1- 2 + 3 – 4 +...+ n.


b/


1.2 2.3 3.4 .( 1)


...


3.4 4.5 5.6 ( 2)( 3)
<i>n</i>


<i>n n</i>
<i>S</i>


<i>n</i> <i>n</i>





    


  <sub> ( Sao cho 5 < n ≤100, nếu nhập sai yêu cầu </sub>


nhập lại)


<b>Ví du:</b>


Input Output


4 Nhap lai n thoa man 5 < n <=100, n =


5 1.879


6 2.462


<b>Bài 2.</b><i><b> (5 điểm)</b></i>


<i><b> </b></i>Viết chương trình nhập vào hai số tự nhiên x, y sao cho chương trình chỉ cho nhập các số tự
nhiên x, y thỏa mãn 4 <sub> x < 53 và 59 < y </sub><sub> 121.</sub>


- In ra màn hình các số lẻ chia hết cho 3 trong khoảng từ x đến y và đếm có bao nhiêu số
như vậy?


- In ra màn hình các số chính phương m sao cho x < m < y và đếm có bao nhiêu số m?


<b>Ví du:</b>


<b>Bài 3.</b><i><b> (6 điểm)</b></i><b> Mảng</b>



Viêtchưong trình Pasacl nhập vào một dãy số nguyên A gồm n phần tử với n nhập từ bàn phím.
a/ Hãy kiểm tra dãy số đã nhập có đối xưng hay khơng?


b/ Viết chương trình tạo dãy số B[1..n]. Trong đó B[i] là tổng giá trị của i phần tử đầu tiên của
dãy số A.


<b>Bài 4. </b><i><b>(5 điểm)</b></i><b> Ước nhiều nhất.</b>


Viết chương trình để khi nhập số tự nhiên n từ bàn phím thì in ra màn hình <b>số có nhiều ước nhất</b>
trong các số từ 1 đến n và số ước của nó.


Ví dụ: Nhập n=14 thi in ra:


Số có nhiều ước nhất từ 1 đến 14 là 12, có 6 ước số

<b>ĐỀ ĐỀ NGHỊ</b>



Input Output


3 64


4 64 Nhap lai x, y thoa man 4<=x< 53 va 59<y<=121Cac so le chia het cho 3 thoa man la:
9 15 21 27 33 39 45 51 57 63


Co tat ca: 10 so le chia het cho 3


Cac so chinh phuong lon hon 4 va nho hon 64 la:
9 16 25 36 49


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

<b>II. ĐÁP ÁN – BIỂU ĐIỂM</b>

<b>Bài 1</b>




<b>a/ </b>



<b>Chương trình tham khảo</b> <b>Điểm</b>


Var


n,i,s :Integer; 0,5


<b>BEGIN</b>


Write(‘Nhap so tu nhien n=');Readln(n);
s:= 0; d:=1;


For i:=1 to n do begin s:=s+ d*i ; d:=-d; end;
Write(‘Tong la s=’,s);


Readln
<b>END.</b>


1


b/



<b>Chương trình tham khảo</b> <b>Điểm</b>


Var


n,i:Integer;
s:Real;



0,5
<b>BEGIN</b>


Write(‘Nhap so tu nhien n=');Readln(n);
<b> </b>While ((n<=5) OR (n>100) do


Begin


Write(‘Nhap lai n thoa man 5 < n <=100, n = ');Readln(n);
end;


1


s:=0;


For i:=1 to n do s:=s+i*(i+1)/((i+2)*(i+3));
Write(‘tong la s=’,s:4:3);


Readln
<b>END.</b>


1


<b>Bài 2 </b>


<b>Chương trình tham khảo</b> <b>Điểm</b>


Uses Crt;



var x,y,i,d:longint;
<b>BEGIN</b>


ClrScr;
d:=0;


Write(‘Nhap so tu nhien x, y =');Readln(x,y);


<b> </b>While ((x<4) OR (x>=53) OR ( y<=59) OR (y>121) ) do
Begin


Write(‘Nhap lai x, y thoa man 4<=x< 53 va 59<y<=121’); Readln(n);
end;


writeln(‘Cac so le chia het cho 3 thoa man la:');


0,5


0,5


0,5
0,5
for i:=x to y do


if (i mod 2<>0)and(i mod 3=0) then
begin


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

write(i:6);


d: = d+1; end; 0,5



writeln;


writeln('Co tat ca:',d,' so le chia het cho 3');


writeln('Cac so chinh phuong lon hon’, x:4,’va nho hon’, y:4, ‘la: ‘);
d:=0;


For i: = x +1 to y -1 do


IF sqr(trunc(sqrt(i))) = i then


Begin write (I: 7); d:=d+1; end;


writeln; writeln(‘ Co tat ca ‘,d:6,’ so chinh phuong’);
readln;


<b>End.</b>


0,5
0,5
0,5
0,5
0,5
<b>Bài 3</b>


<b>Chương trình tham khảo</b> <b>Điểm</b>


Uses Crt;
Var



A,B: array[1..100] of Integer;i,j,n:integer; 0.5
Begin


Write(' nhap vao so phan tu cua mang'); Readln(n);
For i:= 1 to n do


Begin


Write('nhap phan tu a[',i,']='); readln(a[i]);
End;


0.5


I:=1;


While (i <= n div 2) and ( (a[i] = a[n-i +1]) do i:=i+1; 1.0
If i> (n div 2) then Writeln( ‘ Day da nhâp la day doi xung:’)


Else Writeln( ‘ Day da nhâp khong la day doi xung:’) 1.0
For i:= 1 to n do


Write(a[i]:5); 0,5


For i:= 1 to n do
Begin


B[i]:= 0 ;


For j:=1 to i do


B[i]:=B[i]+a[j];
End; Writeln;


2,0


Writeln(‘ Day b[i] tổng giá trị của i phần tử đầu tiên của dãy số A. la :');
For i:= 1 to n do


Write(B[i]:5);
Readln;


<b> End.</b>


0,5


<b>Bài 4.</b><i><b> (5 điểm)</b></i><b> </b>




<b>Chương trình tham khảo</b> <b>Điểm</b>


var max,i,n,j,dem:integer;


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

begin


write('nhap so n:'); readln(n);
for i:= 1 to n do


begin
dem:=0;



1.0


for j:=1 to i do
if i mod j=0 then


dem:=dem+1; a[i]:=dem;
end;


1.0


max:=a[1];
for i:=1 to n do


if a[i]>max then max:=a[i];


1.0


for i:=1 to n do


if a[i]=max then writeln(' so co nhieu uoc nhat la ',i);
readln


end.


1.0


</div>

<!--links-->

Tài liệu liên quan

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

Tải bản đầy đủ ngay
×