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

Đề chính thức

ThuVienDeThi.com

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

ThuVienDeThi.com