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
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