Kỳ thi học sinh giỏi cấp trường năm học: 2012 - 2013 môn: Tin học trường THCS Hoài Châu

	PHÒNG GD VÀ ĐT HOÀI NHƠN	KỲ THI HỌC SINH GIỎI CẤP TRƯỜNG
	TRƯỜNG THCS HOÀI CHÂU	NĂM HỌC: 2012-2013
	MÔN: TIN HỌC
Đề chính thức
	THỜI GIAN: 90 phút (không kể thời gian phát đề)
Tạo thư mục theo đường dẫn sau: E:\HSGTin. Hãy sử dụng ngôn ngữ lập trình Pascal để viết các chương trình theo các yêu cầu sau đây và lưu vào thư mục : E:\HSGTin (đã tạo).
Bài 1: (6,0 điểm). 	Tên tệp tin lưu: Bai1.pas
	Cho hai giá trị nguyên x, y nhập từ bàn phím. Hãy viết chương trình hoán đổi giá trị của x và y cho nhau và in chúng ra màn hình theo như ví dụ sau:
	Nhap gia tri x : 8
	Nhap gia tri y : 10
	Sau khi hoan doi :
	Gia tri x=10
	Gia tri y=8.
Bai 2: (6,0 điểm).	Tên tệp tin lưu: Bai2.pas
	Số N được gọi là chính phương khi bình phương của căn bậc hai N chính bằng số N. 
	Cho N (4 ≤ N ≤ 100) là số nguyên dương nhập từ bàn phím. Hãy viết chương trình kiểm tra xem số N nhập vào có phải là số chính phương hay không?
	Ví dụ :
	1/ Nhap N: 9
	 9 chinh la so chinh phuong !
	2/ Nhap N: 12
	 12 khong phai la so chinh phuong!
Bai 3: (8,0 điểm).	Tên tệp tin lưu: Bai3.pas
	Số nguyên tố là số chỉ chia hết cho 1 và chính nó (số 1 không gọi là số nguyên tố). Ví dụ các số nguyên tố : 2, 3, 5, 7, 11, 13, 17,
	Cho N (5 ≤ N ≤ 50) là số nguyên dương nhập từ bàn phím. Hãy viết chương trình tính trung bình cộng của các số nguyên tố kể từ 2 đến N theo như ví dụ sau:
	Ví dụ :
	Nhap N=7
	Trung binh cong cac so nguyen to nho hon hoac bang 7 la: 4.3
	Lưu ý: Số trung bình cộng này in đến 1 chữ số thập phân.
(Hết)
(Học sinh dự thi không được sử dụng tài liệu)
(Giáo viên coi thi không giải thích gì thêm)
Đáp án
Bài
Nội dung chương trình
Điểm
Bài 1 (6,0 điểm)
uses crt;
var x,y,t:integer;
begin
clrscr;
write('Nhap gia tri x: ');readln(x);
write('Nhap gia tri y: ');readln(y);
t:=x;
x:=y;
y:=t;
Writeln('Sau khi hoan doi:');
writeln('Gia tri x=',x);
writeln('Gia tri y=',y);
readln
end.
1,0
1,0
3,0
1,0
Bài 2 (6,0 điểm)
uses crt;
var n:word;
begin
 clrscr;
 write('Nhap N:');readln(N);
 if trunc(sqr(sqrt(N)))=N then
 write(N,' chinh la so chinh phuong')
 else write(N,' khong phai la so chinh phuong');
 readln
 end.
1,0
1,0
4,0
Bài 3 (8,0 điểm)
uses crt;
var i,j,N,dem:word;
 T:longint;
 kt:boolean;
begin
 clrscr;
 write('Nhap N=');readln(N);
 T:=0;dem:=0;
 for i:=2 to N do
 begin
 kt:=false;
 for j:=2 to i-1 do
 if i mod j=0 then
 begin
 kt:=true;
 break;
 end;
 if kt=false then
 begin
 T:=T+i;
 inc(dem);
 end;
 end;
 write('Trung binh cong cac so nguyen to nho hon hoac bang ',N,' la: ',T/dem:2:1);
 readln;
 end.
1,0
1,0
3,0
2,0
1.0