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:
-
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.
-
Nhập vào một mảng hai chiều A gồm N hàng và M cột.
-
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.
-
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.
Chia sẻ với bạn bè của bạn: |