TRƯỜng thcs phú thanh đỀ tham khảo thi chọn học sinh giỏi huyện năm họC 2015-2016



tải về 33.69 Kb.
Chuyển đổi dữ liệu06.08.2016
Kích33.69 Kb.
#14000
TRƯỜNG THCS PHÚ THANH
ĐỀ THAM KHẢO THI CHỌN HỌC SINH GIỎI HUYỆN NĂM HỌC 2015-2016

Môn: Tin học 9

Thời gian làm bài : 90 phút (không kể thời gian giao đề)

Người ra đề: Nguyễn Thị Thúy Hồng
Hãy lập trình để giải các bài toán sau bằng ngôn ngữ lập trình Pascal

Bài 1 (4 điểm): Lập chương trình để tính tổng sau và in kết quả tính toán lên màn hình. Với n là số nguyên dương được nhập từ bàn phím (n>1).


Bài 2 (6 điểm): Diện tích các hình

Cho hình chữ nhật ABCD có chiều dài AB là a (cm), chiều rộng AD là b (cm) với a, b là các số nguyên dương không vượt quá 10000. Một điểm M trên đoạn BC, một điểm N trên đoạn CD sao cho độ dài (tính bằng cm) các đoạn BM, CN bằng nhau và là số nguyên không âm.


N

Yêu cầu:

1. Biết độ dài BM, tính diện tích hình chữ nhật ABCD và diện tích tam giác MCN.

2. Tìm giá trị lớn nhất và giá trị nhỏ nhất của diện tích tam giác AMN khi M, N thay đổi.

Dữ liệu vào: Dữ liệu của bài toán gồm ba số a, b, x (xba, x là độ dài BM trong yêu cầu 1) được nhập từ bàn phím.

Dữ liệu ra: Kết quả ghi ra màn hình trên 4 dòng:

Dòng thứ nhất là diện tích hình chữ nhật ABCD.

Dòng thứ hai là diện tích tam giác MCN

Dòng thứ ba là giá trị lớn nhất của diện tích tam giác AMN

Dòng thứ tư là giá trị nhỏ nhất của diện tích tam giác AMN

(Các giá trị diện tích được ghi trong dạng thập phân với 1 chữ số sau dấu phẩy).



Ví dụ:

NHẬP VÀO

IN RA

10 6 2

60

40

30



17.5


Bài 3 (6 điểm): Số Fibonacci

Các số Fibonacci F1, F2, … được định nghĩa như sau:

F1= F2=1

Fn=Fn-1+Fn-2; n≥3

Người ta viết liên tục, sát nhau các số Fibonacci thành dãy dài bắt đầu từ F1 và thu được dãy A: 1 1 2 3 5 8 13 …

Yêu cầu: cho số N (0

Ví dụ:


Dữ liệu vào

Dữ liệu ra

nhập n=6

Số hạng thứ 6 của dãy số Fibonacci là: 8


Bài 4 (4 điểm):

Một số nguyên K được gọi là số chính phương khi và chỉ khi tồn tại một số nguyên x sao cho x2 = K. Viết chương trình thực hiện các yêu cầu sau:



  1. Nhập vào 2 số nguyên dương N, M lớn hơn hoặc bằng 2. Chương trình có kiểm tra giá trị nhập vào.

  2. Nhập vào một mảng hai chiều A gồm N hàng và M cột.

  3. Tìm tất cả các số chính phương trong mảng ở câu b và lưu vào một mảng một chiều.

  4. In mảng một chiều chứa các số chính phương của mảng hai chiều A vừa tìm được ở câu c ra màn hình.

---------------Hết----------------



Chương trình test

Bài 1:

Program Tinhtong;

Uescrt;

Var n,i,mau:integer;



s,x,tu:real;

Begin


Clrscr;

Write(‘nhap n=’);readln(n);

Write(‘nhap x=’);readln(x);

s:=1;tu:=1;mau:=1;

For i:= 1 to n do

Begin


tu:=tu*x;

mau:=mau*i

if i mod 2 = 0 then

s:=s+tu/mau

Else

s:=s-tu/mau;



end;

Writeln(‘tong s=’,s:6:2);

Readln

End.


Bài 2:

program Dientich;

uses crt;

var a,b,x:word;

S_ABCD,S_MCN,S_AMN,Max,Min:real;

Begin


Clrscr;

Write(' nhap do dai canh AB: '); readln(a);

Write(' nhap do dai canh AD: '); readln(b);

Write(' nhap do dai canh BM: '); readln(x);

S_ABCD:=a*b;S_MCN:=1/2*x*(b-x);

Max:=1/2*S_ABCD;

Min:=Max;

For x:= 0 to b do

Begin

S_AMN:=S_ABCD-(a*x+x*(b-x)+b*(a-x))/2;



If S_AMN>Max then Max:=S_AMN;

If S_AMN

End;

Writeln(‘Dien tich hinh chu nhat ABCD la:’,S_ABCD:0:1);



Writeln(‘Dien tich tam giac MCN la:’,S_MCN:0:1);

Writeln(‘Gia tri lon nhat cua tam giac AMN la:’,Max:0:1);

Writeln(‘Gia tri nho nhat cua tam giac AMN la:’,Min:0:1);

Readln


End.

Bài 3:

Program Fibonacci;

Uses crt;

Var a,b,c,i,n:integer;

Begin

Clrscr;


Write(‘nhap n=’);readln(n);

While (n<0) or (n>20000) do

Begin

Write(‘nhap lai:’);readln(n);



end;

If (n=1) or (n=2) then c:=1

Else

Begin


a:=1;b:=1;

For i:= 3 to n do

begin

c:=a+b;


a:=b; b:=c;

end;


end;

Writeln(‘so hang thu ‘,n,’ cua day so Fibonacci la ’,c);

Readln

End.


Bài 4:

Program sochinhphuong;

Ues crt;

Var


i,j,k,M,N : integer;

a:array[1..10,1..10] of integer;

b:array[1..100] of integer;

Begin


Clrscr;

Write('Nhap N = '); Readln(N);

Write('Nhap M = '); Readln(M);

While (M<2) or (N<2) do

Begin

Write('Nhap lai N = '); Readln(N);



Write('Nhap lai M = '); Readln(M);

end;
k:=0;

For i:=1 to N do

For j:=1 to M do

Begin

Write('a[',i,',',j,'] = ');



Readln(a[i,j]);

if sqrt(a[i,j])=int(sqrt(a[i,j])) then

begin

k:=k+1;


b[k]:=a[i,j];

end;


End;

Writeln('Cac so chinh phuong la : ');

For i:=1 to k do Write(b[i]:4);

Readln


End.

tải về 33.69 Kb.

Chia sẻ với bạn bè của bạn:




Cơ sở dữ liệu được bảo vệ bởi bản quyền ©hocday.com 2024
được sử dụng cho việc quản lý

    Quê hương