De hsg

Đề Thi học sinh giỏi
Môn: Tin học 9
Thời gian làm bài 150 phút

Lưu ý:
Thí sinh phải tạo 1 thư mục: D:Baaithi+SBD. Ví dụ: D:Bàithi375.
Khi lưu: Tất cả các bài thi học sinh phải làm trên máy và lưu vào thư mục vừa tạo ra Ví dụ : D:Baithi357cau1.pas
Giám thị khi thu bài cần tạo trên USB các thư mục với số báo danh của từng học sinh sau đó copy thư mục bài thi của học sinh vào các thư mục có số báo danh tương ứng.
Đề ra
Câu 1 (2điểm): Hãy viết chương trình nhập từ bàn phím số nguyên n và tính giá trị của số hạng thứ n của dãy Fibonacci.
Biết nếu kí hiệu Fn là số thứ n của dãy Fibonacci, ta có:
F1 = F2 = 1, Fn = Fn-1 + Fn-2 , n3
Câu 2 (2điểm): Viết chương trình nhập vào một xâu kí tự từ bàn phím, đổi xâu vừa nhập thành chữ hoa sau đó in ra xâu đảo ngược. Cho phép ấn phím Enter để kết thúc.
Ví dụ: Xâu kí tự được nhập vào Tin hoc 9 được đổi thành: TIN HOC 9. đó đổi thành 9 COH NIT.
Câu 3 (2 điểm): Liệt kê các số có 3 chữ số có tổng lập phương các chữ số của nó bằng chính nó ( Những số này gọi là số Amstrong). Ví dụ: 153= 13 + 53 + 33
Câu 4 (4 điểm): Viết chương trình nhập vào một mảng gồm n số nguyên. Sắp xếp mảng theo thứ tự tăng dần và tính tổng các phần tử có giá trị chẵn trong dãy. In kết quả ra màn hình.
---------Hết--------
Đáp án đề thi học sinh giỏi Môn tin học 9
Câu 1 (2điểm)

Nội dung
Điểm


Program FIBONACCI;
Var
n,f,a,i,b:integer;



0.25 điểm

Begin
write(`Nhap n=`);
readln(n);
0.25 điểm

 if (n=1) or (n=2) then F:=1
0.25 điểm

 else
if n>=3 then
0.25 điểm

 Begin
a:=1;
b:=1;
0.25 điểm

 for i:=3 to n do
Begin
f:=a+b;
a:=b;
b:=f;
end;
0.5 điểm

 end;
write(`Gia tri f=`,f);
readln;
End.
0.25 điểm


Câu 2 (2điểm)

Nội dung
Điểm


Program Xau_dao;
Var
St,S: string;
i: Integer;


0.25 điểm

Begin
Writeln(`Nhap vao mot xau ki tu bat ki:`);
readln(st);

0.25 điểm

 writeln(` Doi xau vua nhap thanh ki tu hoa:`);
for i:= 1 to length(st)do st[i]:= Upcase(St[i]);

0.5 điểm

 writeln(`Xau vua doi la:`,st);
 0.25 điểm

 s:=``;
for i:= length(st) DownTo 1 do s:= s+st[i];
writeln(` Xau dao nguoc la:`,s);
 0.5 điểm


writeln(` Ban hay nhan phim Enter de ket thuc:`,s);
Readln;
End.
 0.25 điểm


Câu 3 (2 điểm)

Nội dung
Điểm

Program Amstrong;
Var
a,b,c: byte;
0.25 điểm

Begin
writeln(